---

Hallo Leute!

Ich hoffe es kann mir jemand einen Gedankenanstoss geben.
Die Situation is folgende: Wir bekommen sehr oft von anderen Firmen DWG Dateien mit vielen Layouts, und da sind immer die Druckerkonfiguration von der jeweiligen Firma gespeichert. Kennt sicher jeder die blöde Fehlermeldung.
Mein Gedanke ist, mir ein Lisp zu schreiben das alle Layouts durchschaut und alle Drucker auf den von mir definierten Drucker wechselt.
Meine Frage ist wie ich an die Daten der Layouts komme, um sie für mich abzuändern.

Vielen Dank im voraus

Peter

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

---

Zitat:

---

Meine Frage ist wie ich an die Daten der Layouts komme, um sie für mich abzuändern.

---

in diesem Fall würde ich Daten mittels ActiveX sammeln

Code:

---

(vlax-for layout (vla-get-layouts
  (vla-get-activedocument (vlax-get-acad-object))
)
  (setq rl (cons layout rl))
)

---

Siehe dir die Eigenschaften und Methoden mittels
(vlax-dump-object (car rl)'t);_ hier als Beispiel erstes Layout
an

Greets Rolf

------------------
CADmaro.de

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

---

Hi

Mittels ActiveX müsste es klappen (Eigenschaft ConfigName ändern):

Code:

---

;;;----------------------------------------------------
;;; Setzt ConfigName von allen Layouts auf 'newname'
;;;----------------------------------------------------
(defun layouts-put-configname (newname /)
  (vlax-for layout (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (vla-put-configname layout newname)
  )
)

---

Mit folgender Funktion kannst Du Dir die weiteren Eigenschaften/Methoden des aktiven Layouts angucken:

Code:

---

;;;-----------------------------------------------------
;;; Eigenschaften und Methoden von ActiveLayout anzeigen
;;;-----------------------------------------------------
(defun c:lay-dump (/)
  (vlax-dump-object (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))
                    't
  )
)

---

Grüße
Andi

Na toll ! da war einer schneller...

[Diese Nachricht wurde von andi2050 am 29. Jul. 2006 editiert.]

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

---

Hallo.
Erstmal danke für eure Antworten.
Das muß doch auch über Gruppencodes gehen oder? Ich kenn mich ActiveX überhaupt nicht aus.

danke im voraus

Peter

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

---

Hallo

Geht auch über Gruppencodes...
Die Layoutinfos sind in einem Dictionary gespeichert, da muß man sich erst mal durchhangeln !
Folgender Code gibt die DXF-Listen aller Layout im Textfenster aus.
Die zu ändernden Gruppencodes musst Du selber raussuchen.

Code:

---

(defun c:layouts-dxflist (/)
  (foreach item (entget (cdr (assoc 350 (member '(3 . "ACAD_LAYOUT") (entget (namedobjdict))))))
    (if (= 350 (car item))
      (progn (princ "\n******************\nDXF-Liste für LAYOUT:\n******************\n")
            (prin1 (entget (cdr item)))
      )
    )
  )
  (princ)
)

---

Ich finde aber, daß der Weg über ActiveX einfacher und elegenater ist.
Folgender Code ändert bei allen Layouts die Plotkonfiguration auf "FAX"

Code:

---

(defun c:change-configname (/)
  (vl-load-com)
  (vlax-for layout (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (vla-put-configname layout "FAX")
  )
)

---

Grüße
Andi

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

---

Hallo,
wir hatten das gleiche Problem. www.jobocad.de hat uns durch eine Software geholfen und seither drucken wir optimal und schnell aus.

Lass Dir einfach mal ein Angebot erstellen.

Irene

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