---

In einem ACAD-Dokument gibt es ja die Möglichkeit, mehrere Seiteneinrichtungen abzuspeichern, von denen dann eine fürs Layout als Vorgabe angewählt werden kann (Menü Datei-> Seiteeinrichten ..)

Gibt es die Möglichkeit (per Lisp oder sonstwie ) in diesen vordefinierten Seiteneinrichtungen den Plotter auszutauschen ? Wo speichert ACAD dies überhaupt ?

(ich meine aber nicht die Einstellungen für das Layout.., wie ich da den Plotter tausche ist klar!)

------------------
- Thomas -

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

---

(COMMAND "seinrichtimp" Dateiname Einrichtungsname)

Für diesen Befehl ist es erforderlich eine Musterzeichnung Dateiname.dwg anzulegen und dort die Seiteneinrichtung Einrichtungsname zu benennen.

------------------
Gruß aus Wien
Bernhard

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

---

Oder als komplettes Programm

(DEFUN C:S-IMP()
(COMMAND "seinrichtimp" "C:\\Cad\\Template\\def01.dwg" "Color")
(Command "-.plot" "Nein" "" "Color" "" "" "Ja" "Nein")
(PRINC)
)

Die Namen sind natürlich anzupassen.

------------------
Gruß aus Wien
Bernhard

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

---

@Bernhard ... und eben das Einrichten einer Muster.dwg wollte ich umgehen. Ich hab ne Vorlage, die ist ok. und daraus will ich halt eine neue ableiten und dabei die Plotter der Seiteneinrichtungen wechseln ... wollte mir die Arbeit per Hand ersparen.
Leider steht der Plotter auch physisch drin, und nicht als pc3.

------------------
- Thomas -

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

---

Servus CADmium,

ich verwende ein lisp von Rüdiger Küsch welches die Seiteneinrichtung löscht und von einer bestimmten Vorlagedatei neu importiert.

Wenn Du dir verschiedene Lisps machst mit jeweils den Seiteneinrichtungen bzw. Plottern dann kannst Du mit einem Klick die kompletten Seiteneinrichtungen oder Drucker umstellen.

http://ww3.cad.de/foren/ubb/Forum54/HTML/002777.shtml
;Programm von Ruedeger Kuesch
(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

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

---

@Wolli Schöner Ansatz .. hat ne Menge Suchzeit gespart ,kann ich was draus basteln  ... Danke

@Bernhard .. für das Updaten bestehender Zeichnungen ( per Script oder manuell ) ist natürlich "seinrichtimp" nicht zu verachten ..

------------------
- Thomas -

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

---

Für alle Interessierten..
(vl-load-com)

(defun DT:PLOTSETTING-PLOTTERSWITCH ( ALTER-PLOTTER NEUER-PLOTTER CHECK? / PLOTSETTING OK)
  (if (and(=(type ALTER-PLOTTER)'STR)(=(type NEUER-PLOTTER)'STR)
         
      )   
    (if (or (and CHECK?     
                (member(strcase NEUER-Plotter)
                        (mapcar '(lambda(X)(strcase X))(DT:PLOTTER-GET))
                )
            )
            (not CHECK?)
        )
      (progn
        (setq OK 'T)
        (vlax-for ITEM  (vla-get-PlotConfigurations
                          (vla-get-ActiveDocument
                            (vlax-get-acad-object)
                          )
                        )       
          (if (and(vla-get-CONFIGNAME ITEM)
                  (=(strcase(vla-get-CONFIGNAME ITEM))(strcase ALTER-PLOTTER))
              )
            (if(vl-catch-all-error-p
                  (vl-catch-all-apply
                    'vla-put-configname
                    (list ITEM NEUER-PLOTTER)
                  )
              )               
              (setq OK nil)
            )             
          ) 
        )
      )           
    ) 
  )
  OK
)

(defun DT:PLOTTER-GET ()
  (vla-RefreshPlotDeviceInfo
    (vla-get-activelayout
      (vla-get-activedocument
        (vlax-get-acad-object)
      )
    )
  )     
  (vlax-safearray->list
    (vlax-variant-value
      (vla-getplotdevicenames
        (vla-item
          (vla-get-layouts
            (vla-get-activedocument
              (vlax-get-acad-object)
            )
          )
          "Model"
        )
      )
    )
  )
)

------------------
- Thomas -

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

---

Hallo Thomas,

was macht das Ding?

Gruß Wolfgang

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