---

Guten Morgen,

Für einen automatische Archivierung von pdf Dateien aus Zeichnungen (Annotation) würde ich die Zeichnungsversion (Hauptversion) vom Model Manager im Lisp benötigen.
Von 3D Teilen bekomme ich die Info per:

>>
(setf index (first(last(oli::sd-string-split(first(oli::sd-string-split (oli::sd-inq-item-attribute (<<ITEM>>)"DB-DREF" :UNIQUE_ID_STRING attachment :contents) "]")) "["))))
>>

Kann mir jemand eine Tipp geben wie man dieses Infos von Zeichnungen auslesen kann, mit

>>
(sd-am-inq-info-attributes item)
>>

komme ich leider nicht weiter und

>>
(display(oli::sd-am-inq-info-attributes (oli::sd-am-inq-curr-sheet)))
>>

gibt nur NIL zurück...

Herzlichen Dank im Voraus für euer Bemühen und die Mitarbeit in diesem tollen Forum!

Liebe Grüße, Harald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn die Zeichnung in Anno geladen ist, kann man mit ME10-Makros arbeiten:

Code:

---

DEFINE IWG_inq_draw_version
  LOCAL Numtext
  INQ_SELECTED_ELEM SELECT GLOBAL INFOS 'TR:tb:VERSION:*' CONFIRM
  IF ((INQ 403)=TEXT)
    LET Numtext (INQ 902)
  ELSE
    LET Numtext "1"
  END_IF
  LET lispstring (DOCU_CSTRING_TO_LSTRING Numtext)
  LET isopen (DOCU_OPEN_CONNECTION_TO_SD)
  LET done (DOCU_ADD_LINE_TO_SD lispstring)
  LET isclosed (DOCU_CLOSE_CONNECTION_TO_SD)
END_DEFINE

---

Aus LISP ruft man das dann so auf:

Code:

---

    (setf vnr (sd-execute-annotator-function :fnc "IWG_inq_draw_version"))

---

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hr. Geppert,

Herzlichen Dank für die Antwort und den Code!

Bring die Funktion aber leider nicht zum laufen bzw. es kommt nur NIL raus.
ME10 war leider vor meiner Zeit, daher habe ich mit diesen Makros keine Erfahrung...

Soweit ich rausgefunden habe, muss ich das ME10 Makro als *.mac abspeichern und mittels diesem Kommando laden:
(oli::sd-execute-annotator-command :cmd "INPUT 'C:\\temp\\Index_auslesen_Drafting.mac'")

Wenn ich dann bei geladener Zeichnung in Annotation dieses Kommando absetze, bekomme ich nur NIL raus.
(display(oli::sd-execute-annotator-function :fnc "IWG_inq_draw_version"))

Können Sie mir bitte nochmal auf die Sprünge helfen?
Falls es mit der Version zusammenhängt, ich habe soeben meine SystemInfo aktualisiert. Wir arbeiten jetzt auf 18.1.

Herzlichen Dank nochmals!
Schöne Grüße, Harald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP