CADsite forum

Citaat van: EddyBeerke op di 16 03 2010, 07:56:51
Tja... een "UNDO-mark" daar had ik nog niet aan gedacht, ik ga jou lisp eens opnieuw bekijken.
Ik laat nog weten hoe mijn lisp is geworden. Alvast bedankt.

'
Zo is de MAIN-PROGRAM geworden:


(defun c:DoIt () ; ook te gebruiken met "BaBe" van Joop
(command "undo" "mark")
(printerkeuze)
(papierkeuze)
        (plotten)
(Command "FILEDIA" "1")
(princ "\nFILEDIA is set to 1")
(princ)
(command "undo" "back")
);end defun




;####################################################
; Regels die uitgevoerd worden bij het laden v/d Lisp

(princ "\nTpye: \"DoIt\" om te starten.")
(princ)

;####################################################



Citaat van: EddyBeerke op di 16 03 2010, 14:47:51
'
Zo is de MAIN-PROGRAM geworden:

Zou je de complete routine als bestand willen toevoegen aan dit forum.
Alvast bedankt.

Fred.

Omdat ik nog het een en ander het aangepast is ie iets anders dan in mijn vorige post.
Hier is de complete Lisp: PintAllLayouts.LSP rev1.0 (2010-03-18)
Deze is NIET te gebruiken met Babe, dit was wel mijn bedoeling maar het komt bij mij (nog) niet voor dat ik met Babe op deze manier ga printen.

Opmerking:
Let op dat er wel een gevonden CTB-file ingesteld moet zijn. (o.a. een reden om het niet met BaBe te gebruiken)
Het ondervangen van 'een gebrek aan CTB' moet nog toegevoegd worden.


Veel plezier met deze tool (kun je eindelijk weer eens bier, thee of koffie halen voor je collega's)

Eddy,

Misschien kun je iets met bijgaande lisp fiel. Ooit een keer gevonden op internet. Helaas is zit er geen commentaar bij.
Je kunt er wel de media die beschikbaar is voor je printer/plotter mee uitvragen

greetz stephan