|
CoCreate Programmierung : Fehler in einer while Schleife
dki am 24.08.2011 um 00:23 Uhr (0)
Hallo zusammen,ich habe heute ein wenig mit Lisp herumprobiert, und wollte ein kleinen Makro schreiben, das mir alle Blätter einer Zeichnung einzeln als DXF abspeichert.In einer Schleife wollte ich jedes Blatt aufrufen und dann speichern. Hier der betreffende Teil: Code: (k_speichern () (setf blattliste (length (sd-am-inq-all-sheets))) (AM_CURRENT_SHEET "1") (setf AZAEHLER 1) (if SPDXF (while (= AZAEHLER blattliste) (AM_SAVE_SHEET_DXF :FILENAME (format nil "Blatt_~A" AZAEHLER)) (setf AZAEHLER (+ ...
| | In das Form CoCreate Programmierung wechseln |
 am_eb_speichern.lsp.txt |
CoCreate Programmierung : Annotation - Einzelblatt abspeichern
dki am 28.08.2011 um 12:31 Uhr (0)
Hallo zusammen,ich habe seit kurzen das Problem das ich einem Kunden alle Blätter einzeln in DXF abspeichern muss. Da wir keine Datenbank benutzen habe ich an ein wenig Lisp gewagt und mir ein Makro geschrieben das diese Arbeit für mich erledigen soll. Für meine Zwecke funktioniert es (glaube ich zumindest) aber ich bin mir sicher das es der ein oder andere Wolfgang verbessern kann .zum Makro:- der Speicherort kann angegeben werden- der Blattname ist frei wählbar- Teilauswahl der zu speichernden Blätter ...
| | In das Form CoCreate Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |