---

Hallo liebe Cad-Gemeinde,

ich habe da ein klizekleine Frage:
Ich möchte über lisp einen neuen Papierbereich
einfügen und konfigurieren.
Mit welchen Befehlen geht das 

Grüsse

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Papierbereich gibt es nur einen. Du meinst sicherlich ein Layout.

am einfachsten ist es mit:
(command "_layout" "_N" "NAMEdesLAYOUTS")

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Zur Konfiguration über benannte Seiteneinrichtungen => Beitrag über Suchfunktion gefunden.

------------------
MfG Proxy

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

---

Zitat:

---

Original erstellt von Brischke:
Papierbereich gibt es nur einen. Du meinst sicherlich ein Layout.

am einfachsten ist es mit:
(command "_layout" "_N" "NAMEdesLAYOUTS")

Grüße Holger

---

sehr schön, wie ich seine Seiteneinrichtung importiere( mit seinrichtimp ) weiß ich auch schon, aber wie setze ich die importierte Seiteneinrichtung auf aktuell? Am liebsten mit einem Command-Befehl!

Grüsse

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

mit command ist da IMHO nix, aber vielleicht wirst du hier fündig..

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

ich habe den Beitrag nur überflogen, aber kann man nicht mit
(setvar "CTAB" "DeinLayoutname") das Layout auf aktuell stellen??

------------------
viele Grüße

Jörn

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

---

@jörn:

das sind dann aber keine benannten Seiteneinrichtungen, sondern Layouts - ist ein grosser, aber grober Unterschied.. 

Also bleibt nur CADmiums Weg...

------------------
Grüsse

Thomas

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

---

na dann war ich ja voll auf dem Holzweg

------------------
viele Grüße

Jörn

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

---

Hi,

ich hab's   - es geht ganz einfach.
Ok, es sind hier ein paar gegen command, aber ich bin nicht so tief in der Materie drin, und schreibe nur ganz kleine einfache Hilfsprogramme. Aber das reicht mir.

Hier nun die Lösung, die ich durch Eure Hilfe und Links rausgefunden habe:

(setq neulayout "00-000")
(setq seiteneinrichtung "ausdrucke")
(setq seitenquelle "x:\\xxxxx...\\seiteneinrichtung-ausdrucke.dwg")
(command "_layout" "_N" neulayout
        "ctab" neulayout
        "filedia" "1"
        "-seinrichtimp" seitenquelle seiteneinrichtung
        "-plot" "n" neulayout seiteneinrichtung "" "n" "j" "n"
        "filedia" "0")

Ich definiere erst mal den Namen des neuen Layouts (00-000)
dann die Seiteneinrichtung (ausdrucke) und dann noch die Quelldatei, in der die Seiteneirichtung vorkommt (Pfadangabe mit Datei)
Das kann man jetzt variabel nutzen und ein feines Programm mit Dialogbox basteln.
zum Command:
erst wird das neue Layout angelegt, dann wird zum neuen Layout gegengen. Jetzt die Variable filedia auf 1 setzen, damit kein Dialogfeld kommt und die seiteneinrichtung mit den entsprechenden Variablen starten. anschließend den plot-Dialog starten und die entsprechenden Einstellungen vornehmen. Wichtig ist das speichern der Seiteneinrichtung und danach einfach nicht plotten.
Das wars 

Danke für die Hilfe und viele Grüsse

p.s. ich bräuchte noch eine kleine Abfage, das ich das neuanlegen verhindere wenn die Seiteneinrichtung schon vorhanden ist. Für einen weiteren Tip wäre ich dakbar. Ich stecke, wie gesagt, nicht so tief in LISP drin.

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Na dein Lösungsweg wurde eigentlich in dem von mir geposteten Link aufgezeigt ... und zu deinem letzten Prob:

die Liste aller vorhandenen benannten Seiteneinrichtungen bekommst du hiermit:
(vlax-for ITEM (vla-get-PlotConfigurations
                  (vla-get-ActiveDocument(vlax-get-acad-object))
               )       
(if(not(vl-catch-all-error-p   
          (setq NAME(vl-catch-all-apply
                      'vla-get-name (list ITEM)
                    )
          )
        )
    )   
   (setq LISTE (cons NAME LISTE))        
)

und mit (member (strcase "GESUCHTE")(mapcar 'strcase LISTE))
kannst du feststellen lassen ob deine Seiteneinrichtung schon vorhanden ist..
     

P.S.wer kein ActivX mag , kann sich auch durch die Dictioinaries hangeln ..
------------------
  - 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