---

Hallo zusammen,

ich habe schon hier im Forum gesucht, aber leider keine bei mir funktionierende Lösung gefunden.
Das hier schien mir eine heiße Spur: http://ww3.cad.de/foren/ubb/Forum54/HTML/003171.shtml

Aufgabenstellung: Jedesmal, wenn ich eine Datei öffne, soll eine Seiteneinrichtung (enthalten in t:\Vorlagen\A-CAD Vorlagen\vorlage.dwt, Name der Seiteneinrichtung: "NDF A4") importiert werden und dann "aktuell" geschaltet werden.

Ich habe folgende zwei Zeilen in die acaddoc.lsp ergänzt:
_.FILEDIA;0;_PSETUPIN;"T:/VORLAGEN/A-CAD Vorlagen/vorlage.dwt";NDF A4;_.FILEDIA;1
_pagesetup ndf a4

Das funktioniert so leider nicht, ich denke es ist ein Syntaxproblem. Wäre schön, wenn mir jemand helfen könnte. Vielen Dank schon mal im voraus :-)

Gruß,
Onkel Hotte

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

---

Willkommen auf cad.de und guck dir mal das an...

------------------
  - 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,

scheint so, als ob es zur Lösung des Problems mehr als 2 Zeilen braucht...
Ich vermute, daß diese Funktion gemeint ist:

;;; add a new page setup name to current layout-type based on current plot configuration
;;; (addPageSetup <AcadDocument> <PageSetupName> )
;;; (addPageSetup (vla-get-activedocument (vlax-get-acad-object)) "PageSetupName")
(defun addPageSetup (doc name / space pc lay)
  (deletePageSetup doc name)
  (if (= (getvar "ctab") "Model")
    (setq space :vlax-true
          lay (vla-get-Layout (vla-get-ModelSpace
                (vla-get-activedocument (vlax-get-acad-object)))))
    (setq space :vlax-false
          lay (vla-get-ActiveLayout (vla-get-activedocument
                (vlax-get-acad-object))))
  )
  (setq pc (vla-add
            (vla-get-plotconfigurations doc)
            name
            space))
  (vla-CopyFrom pc lay)
  (vla-put-name pc name)
)

An welchen Stellen muß ich denn dort meine Vorlagendatei und den Namen der Seiteneinrichtung eintragen? Ich bin leider was Lisp angeht komplett frei von Vorkenntnissen...

Danke+Gruß, Peter

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

---

loe-plot-se-1.zip

Servus Otte,

ich habe dazu ein lisp das ich über die acaddoc.lsp bei jedem Öffnen einer Zeichnung ausführe.
Dieses lisp schmeißt erstmal alle Seiteneinrichtungen raus und importiert
die Seiteneinrichtung aus einer Vorlagedatei.

Somit muss ich bei Änderung der z.B. Druckerumgebung... nur die Seiteneinrichtung in der Vorlagedatei ändern und habe auch beim Öffnen alter Zeichnungen immer die aktuellen zur Verfügung.

Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

[Diese Nachricht wurde von Wolli am 20. Nov. 2008 editiert.]

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

---

Hallo Wolfgang,

danke für Dein Lisp.
Habe es angepasst und eingefügt, die Seiteneinrichtung wird auch eingelesen (bzw. die SeiteneinrichtungEN, da in der Vorlage mehrere gespeichert sind).

Kannst Du mir noch sagen, wie ich die meistens gewünschte Seiteneinrichtung ("NDF A4") auf "Aktuell" setzen kann?

Danke+Gruß, Peter

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

---

(command "._plot" "_n" layout newpsn "" "" "_y" "_n")

aus obigen Link .. Layout und newpsn mußt du anpassen ...

oder für alle Layouts (außer Modell)

(mapcar
'(lambda(X)
  (command "._plot" "_n" X ("NDF A4"  "" "" "_y" "_n")

  )
  (layoutlist)
)

------------------
  - 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 zusammen,

habe alles zusammengebaut und es funktioniert. Perfekt, danke für Eure Mithilfe!

Gruß, Peter

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