---

Hallo Ihr,

ist es möglich, und wenn wie, den im Seiteneinrichtungsmenü
(Modell oder Layout) zugewiesenen Plotstil mittels Lisp
auszulesen ???

Grüße
T. Bürger

ACAD2000 pur

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

---

loe-plot-se-1.zip

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

---

Hallo Wolli,

erst einmal Danke für die schnelle Antwort. Aber ich glaube das
ist es nicht so ganz. Mit Deiner Lispelei ersetze ich ja, wenn
ich das so richtig verstanden habe, die Komplette
Seiteneinrichtung. Das wollte ich eigentlich nicht.

Ich wollte nur den Plotstil (ctb/stb) im Modell/Layout zur weiteren
Bearbeitung aus der Seiteneinrichtung auslesen.

Dank Dir trotzdem, das scheint mit Vlisp ja wohl zu gehen, aber wie?

Grüße
T. Bürger

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

---

so speicherst Du die aktuelle in der Variablen plotstr
(setq plotstr (vla-get-StyleSheet
  (vla-get-ActiveLayout
    (vla-get-ActiveDocument
      (vlax-Get-Acad-Object)
    )
  )
)
)

------------------

gruß
Stephan

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

---

Hallo StephanJP,

das ist es, besten Dank.

Damit hast Du dir viele Unities verdient!

Grüße
T. Bürger

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