---

Hallo liebe Gemeinde,

Ich würde gern wissen, wie man die aktuelle Zeichnungsnummer lisp-technisch abfragt.
Ich möchte mir ein lisp, oder mit dem recorder eine Befehlskette schreiben.
Es soll machen:
(laden einer Zeichnung (.mi) aus Pfad ... )
ändern von Bearbeiter/Prüfer Namen (name1 in name3, name2 in name4)
Abspeichern unter selben Dateinamen im selben Pfad
pdf drucken (mit abfrage format) unter anderen Pfad aber selben Dateinamen (ohne .mi; dafür.pdf)
Zeichnung schließen/Lade menü öffnen

Ich hab das schon mal ansatzweise mit dem recorder versucht, mit mässigem Erfolg, heißt ja nicht jede Zeichnung gleich. (Zeichnungsnummer=Dateiname)

Code:

---

am_mod_text_edit :sel_text
(DOCU::DOCU-PROCESS-DIRECT-PICK -18012.689949784199
    -42433.466513843297)
(GPNTDOCU -18012.689949784199 -42433.466513843297 "Annotation")
"name3"
(DOCU::DOCU-PROCESS-DIRECT-PICK -18015.662922757201
    -42439.412459789201)
(GPNTDOCU -18015.662922757201 -42439.412459789201 "Annotation")
"name4" cancel_all
(SET-RECORD-STATUS :SUSPEND)
(SET-RECORD-STATUS :SUSPEND)
cancel
am_store_drawing
(FB-SET-TEMP-FILING-REVISION "2008 (16.00)")
:filename "Zeichnung1.mi"   verwrite :check_up_to_date 1
(END-FILE-MANAGER)
set_pers_context "Toolbar-relative" am_plot_ex   lotter_name_ra "CIB pdf brewer"   lotter_type_ra   nobiggrin:f   aper_format_ra "A3    (  420 mm x 297 mm  )" :Destination_browse cd "M:/TMP" cd "M:/" cd "M:/Projekte" cd "M:/Projekte/..." cd "M:/Projekte/.../..." cd "M:/Projekte/..." cd "M:/Projekte/.../..." cd "M:/Projekte/.../.../..." cd "M:/Projekte/.../.../.../..." :Destination "M:/Projekte/.../.../CD-neu/.../Zeichnung1.pdf"   lot cancel_all
(SET-RECORD-STATUS :SUSPEND)
(SET-RECORD-STATUS :SUSPEND)
cancel
am_store_drawing
(FB-SET-TEMP-FILING-REVISION "2008 (16.00)")
cd "M:/Projekte/.../.../.../.../.../ME10_2008" :filename "Zeichnung1.mi"   verwrite :check_up_to_date 1
(END-FILE-MANAGER)

---

LG aus Berlin

KJ

[Diese Nachricht wurde von RobCraven am 30. Jul. 2009 editiert.]

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

---

Manchmal zeichnet der Recorder ziemlich viel auf. Das ist genauso wie beim guten alten Kassettenrecorder mit dem in seiner Kindheit versucht hat, ein Hörspiel aufzunehmen: viel Rauschen, deutliche Nebengeräusche, der eigentlich 'Ton' geht fast unter, die Verständlichkeit der Akteure ist .. schwierig.   Ich filter jetzt mal vor...

Was Du *eigentlich* aufgezeichnet hast.

Code:

---

(am_mod_text_edit
:sel_text -18012.689949784199,-42433.466513843297 "name3"
:sel_text -18015.662922757201,-42439.412459789201 "name4")

---

Zwei Texte editiert. mit den absoluten Koordinaten wirst du auf dauer nicht glücklich werden! nur so als Tip. Frage am Rande: arbeitest Du in mikrometer als Unit?

Code:

---

(am_store_drawing  :filename "Zeichnung1.mi"  :Overwrite)

---

hier wuerde mir der absolute Pfad-Datei-Name fehlen.

Code:

---

(am_plot_ex :Plotter_name_ra "CIB pdf brewer"   :Plotter_type_ra   :Paper_format_ra "A3    (  420 mm x 297 mm  )" :Destination "M:/Projekte/CD-neu/Zeichnung1.pdf" :Plot)

---

Beim Aufzeichnen den Filebrowser zu nutzen, erweist sich wieder mal als Quelle der Unuebersichtlichkeit.  Schlussendlich hast du auch hier ein Ziel zum speicher Deiner neuen PDF datei ausgwählt. Das herumhangeln im Dateisystem (finde das richtige Verzeichnis) sollte man dann später durch einfache Angaber der absoluten Dateinamens umgehen.

Code:

---

(am_store_drawing  :filename "M:/Projekte/ME10_2008/Zeichnung1.mi"  :Overwrite)

---

Und hier wird die Zeichnung ein 2. Mal gespeichert.

Das Laden der Zeichnung (siehe Deine Beschreibung) hast du nicht aufgezeichnet?

Unter dem Betreff hätte ich eigentlich nur die Frage nach der IntergrationKit Funktion (sd-am-inq-drawing-no) vermutet, denn die liefert auf LISP ebene die Zeichnungsnummer.

PS: ich habe NIX ausprobiert, das dauert mir hier zu lange.

------------------
● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

[Diese Nachricht wurde von der_Wolfgang am 30. Jul. 2009 editiert.]

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

---

Hi Wolfgang,

Zitat:

---

arbeitest Du in mikrometer als Unit?

---

nein, eigentlich nicht, sondern in mm, jedenfalls ist das die Einstellung im Modeling
Wie kann ich das mit den absoluten Koordinaten umgehen?

Zitat:

---

hier wuerde mir der absolute Pfad-Datei-Name fehlen.

---

ja, da war scheinbar noch das currentworkdir gesetzt, deshalb auch weiter unten die zweite Speicherung mit Pfadauswahl

Zitat:

---

Das herumhangeln im Dateisystem (finde das richtige Verzeichnis) sollte man dann später durch einfache Angaber der absoluten Dateinamens umgehen

---

genau das will ich machen, nur fehlen mir da noch die entsprechenden Kenntnisse.
also ich mein die Eingabe des Pfades ist schon irgendwie klar, aber setz ich dann einfach (sd-am-inq-drawing-no) dahinter?

Code:

---

(am_store_drawing  :filename "M:/Projekte/ME10_2008/(sd-am-inq-drawing-no).mi"  :Overwrite)

---

Zitat:

---

Unter dem Betreff hätte ich eigentlich nur die Frage nach der IntergrationKit Funktion (sd-am-inq-drawing-no) vermutet, denn die liefert auf LISP ebene die Zeichnungsnummer.

---

aber im Grunde genommen ist das schon das was ich gesucht hatte, nur das drumherrum ist mir nicht wirklich klar.

Ja das Laden hatte ich da nicht aufgezeichnet, weil mir erst später bewußt wurde, dass man das ja gleich mit einbauen könnte.

Danke schonmal für deine Antwort.

KJ

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