Ich will nach speichern oder nach dem ich das Dokument schlisse eine PDF-Plott auslösen. Dazu habe ich ein Reaktor.
Nur der Reaktor kann nicht mit command “Plot“ umgehen was mir auch klar ist.
Wie kann ich die BDE-PDF Funktion umbauen das sie durch den Reaktor gestartet wird.
Ich will noch die Gelegenheit nutzen und auf diesem Weg ein frohes Weihnachtsfest und einen guten Rutsch ins neue Jahr 2007 allen CAD.de Usern wünschen.
(vlr-remove-all :vlr-editor-reactor)
(vlr-editor-reactor nil
'((:vlr-beginClose . beginCloseCallback)
(:vlr-endDwgOpen . endOpenCallback)
(:vlr-saveComplete . saveCompleteCallback)
)
);_editor reactor
(defun beginCloseCallback (reactor value / )
(BDE-PDF)
)
(defun endOpenCallback (reactor value / )
(BDE-PDF)
)
(defun saveCompleteCallback (reactor value / )
(BDE-PDF)
)
(defun BDE-PDF ( / pltcfgliste layoutliste)
(vl-load-com)
(vlax-for item (vla-get-PlotConfigurations
(vla-get-ActiveDocument(vlax-get-acad-object))
)
(setq pltcfgliste(cons (list (strcase(vla-get-NAME item)) item)pltcfgliste))
);_vlax for
(vlax-for item (vla-get-Layouts
(vla-get-ActiveDocument(vlax-get-acad-object))
)
(setq layoutliste (cons (list (strcase(vla-get-NAME item)) item)layoutliste))
)
(setq pltcfgliste (reverse pltcfgliste))
(setq zehler 0)
(alert "Vor repeat")
(repeat (- (length layoutliste) 1)
(command "plot" "nein" (car(nth (+ zehler 1) layoutliste)) (caar pltcfgliste) "BDE_PDF.pc3" "nein" "ja" "ja")
(setq zehler (+ zehler 1))
);_repeat
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP