---

Hallo

wir haben über Jahre unsere Zeihnungen erstellt und abgelegt in einen Ordner und Unterordner.
Jetzt haben wir einen neuen Drucker bekommen. Jetzt muß in jeder Zeichnung mit "_pagesetup" der Drucker umgestellt werden. Geht das vielleicht auch einfacher?
Wie Ihr vorstellen könnt sind es ja sehr viele Dateien und da sitzen wir einige Zeit dran um das umzustellen.

GRuß Hajo

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

---

Mein Tipp : mit PC3 Dateien arbeiten ... und dann einfach eine neue gleichnamige PC3-Datei mit dem neuen Drucker erstellen .. aber dafür ist es ja wohl jetzt zu spät?!  Ansonsten .. hier findest du evtl. Ansätze..

Es gibt über Lisp auch noch direkt die Möglichkeit , den Plotter im Layout-Objekt zu tauschen .. aber da muß man dann wissen, was man tut  .. auch Scriptpro sollte ein Stichwort sein..
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

ich bin nur normaler Anwender von AutoCad. Da ich aber Fragen im Excelforum beantworte habe ich immer die Aufgabe falls es ein Problem gibt das ich die Fragen stellen muß.

Also von den Sachen die dort besprochen wurden habe ich wohl fast garnichts verstanden um nicht zu schreiben Null Komma nichts.

Gruß Hajo

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

---

nicht ganz ausgereift hatte ich auch hier noch was ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo THomas,

ich habe mal die lsp Datei angelegt. Wie starte ich Sie nicht durch "PLOTSETTING-PLOTTERSWITCH" ?

Gruß Hajo

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

---

Aufruf in der Befehlszeile
(DT:PLOTSETTING-PLOTTERSWITCH "ALTER-PLOTTER" "NEUER-PLOTTER")

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

ich habe jetzt folgendes eingegeben.

(DT:PLOTSETTING-PLOTTERSWITCH "kyocera FS-1750 (Schacht 1)" "Kyocera
Mita KM-2030 KX")

Es kommt die Meldung zu wenig Argumente.
Ich vermute mal der Befehl ist auch nur für die zur Zeit geöffnete Datei. Es soll aber für zig dateien ausgeführt werden. Entweder alle mit einmal durchlaufen (ordner und Unterordner) oder der Befehl muß automatisch gleich beim Start ausgeführt werden.

der Code in de lsp Datei sieht wie folgt aus
(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"
        )
      )
    )
  )
)

Gruß Hajo

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

---

(DT:PLOTSETTING-PLOTTERSWITCH "kyocera FS-1750 (Schacht 1)" "Kyocera
Mita KM-2030 KX" 'T)

wäre der Aufruf .. und betreffs der vielen Zeichnungen : Scriptpro verwenden oder eine entsprechende andere Programmierung ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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