Servus T. Bürger,
ich habe ein Lisp das mir aus einer bestimmten Vorlagedatei die Seiteneinrichtungen ausliest und in der aktuellen Zeichnung alle löscht und die aus der Vorlage einfügt.
Das Lisp stammt von Rüdiger Küch.
;Programm von Ruedeger Kuesch angepasst von Woflgang Behling
(defun DelPgSetups ( / appAcad colPgSetups docCurrent objPgSetup) ;Subroutine added to delete existing page setups before adding new ones
(vl-load-com) (setq appAcad (vlax-get-acad-object) ;get the ACAD application object
docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing ;get the ACAD_PLOTSETTINGS dictionary
colPgSetups (vla-get-PlotConfigurations docCurrent)) ;setq ;get each page setup in the ACAD_PLOTSETTINGS dictionary
(vlax-for objPgSetup colPgSetups (prompt "\nDeleting existing Page Setups...")
(princ (strcat "\nDeleting " (vla-get-name objPgSetup) "...")) (vla-delete objPgSetup) ;delete the page setup from the dictionary
(vlax-release-object objPgSetup) ;release the page setup
);vlax-for (princ "\n\nDone.") ;release objects from memory
(vlax-release-object colPgSetups) (vlax-release-object docCurrent) (vlax-release-object appAcad)
;(command "_redefine" "_plot")
) ;End of code for DelPgSetups Subroutine
(DelpgSetups) ;Calls subroutine then carries on remainder of the program
(SETQ CMDST (GETVAR "CMDECHO")) ;Save SMDECHO STATUS
(setvar "cmdecho" 0) (setq done T)
;(command "_PSETUPIN" "PLOTVORLAGE.dwg" "*")
;alter Eintrag von P (command "_PSETUPIN" "P:\\autodesk\\Lisp-VBA\\plot-Seiteneinrichtungen_aktualisieren\\Plotvorlage\\Plotvorlage.dwg" "*")
(command "_PSETUPIN" "C:\\Programme\\Acadm 6\\acadm\\Plotvorlage.dwg" "*")
;Import all the Pagesetups
(while (= (getvar "CMDNAMES") "_PSETUPIN") (command "y" ) (setq done nil)) ;end while
(setvar "cmdecho" CMDST) ;RESET CMDECHO Status
(prompt "\n New PageSetups have been imported")
(princ) ;End routine
ich hänge sicherheitshalber noch die Lispdatei als zip an.
Das lisp lade ich durch einen Eintrag in der acaddoc.lsp
(load "P:/Autodesk/Lisp-VBA-ACAD2002/Plot-Seiteneinrichtungen_aktualisieren/loe-plot-se-1.lsp")
Die Plotvorlage liegt in einem Supportpfad, bei mir C:\Programme\Acadm 6\acadm
Gruß Wolfgang
[Diese Nachricht wurde von Wolli am 11. Dezember 2002 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP