importiern von Layer-Bema��ung-TextStyle / Lisp
Petra_Sp 16. Jun. 2004, 10:40

Hallo

Folgendes Problem:
Ich mchte in eine Zeichnung vordfinierte Standardlayer,Textstyle und Bemaungsstile (vordefinierte Firmenzeug eben) einfgen und das am besten per Knopfdruck.
Ich wei ich knnte sie mir ber den Designer Center immer wieder hineinziehen dauert mir aber zu Lange.
Ich hab mir eine Zeichnung-Vorlage angelegt wo ich das alles definiert und erstellt habe.
Wie kann ich jetzt am einfachsten ber Lisp, Sript pder dergeleichen diese vordefinierten Sachen per Knopfdruck einfgen. 1x fr Layer, 1x fr Bemasungstile und 1x fr Textstyle.
Sollte ich diese in eine Textdatei abspeichern (z.b. fr Layer xyz.las) oder gibt es auch noch andere Wege??
Hab auch unter Suchen geschaut und nichts gefunden

Vielleicht hat ja jemand eine Idee

Danke LG Petra

tom.berger 16. Jun. 2004, 11:32

Zitat:
Original erstellt von Petra_Sp:
Ich hab mir eine Zeichnung-Vorlage angelegt wo ich das alles definiert und erstellt habe.
Wie kann ich jetzt am einfachsten ber Lisp, Sript pder dergeleichen diese vordefinierten Sachen per Knopfdruck einfgen. 1x fr Layer, 1x fr Bemasungstile und 1x fr Textstyle.

Ich vermute, Du willst das in bereits bestehende Zeichungen einfgen, denn fr neue Zeichnungen hast Du ja schon Deine Vorlage. Das geht dann am einfachsten, indem Du die ansonsten leere Vorlagedatei als Block in Deine neue Zeichnung einfgst. Dabei bleiben allerdings die Stile und Layer, die mit selben Namen schon vorhanden sind, unverndert. In dem Fall hilft dann der umgekehrte Weg: hole die Zeichnung selbst als Block in die ansonsten leere Vorlagedatei.

Tom Berger

heidi 16. Jun. 2004, 11:34

Hallo Petra,
wenn du dies alles in deiner Vorlage-Datei eingerichtet hast und diese auch fr neue Zeichnungen verwendest, hast du doch automatisch alles in der neuen Zeichnung. Da brauchst du weder Lisp noch das DesignCenter dazu, oder versteh ich was verkehrt...

marc.scherer 16. Jun. 2004, 11:43

Hi,
hiermit kannst Du das Einfgen dann auf einen Knopf legen:
(vorausgesetzt u.a. code liegt im Acad-Suchpfad als "myimport.lsp")
^c^c(load "myimport");

Bei nachfolgendem Code mut Du natrlich noch den Wert fr BNAME von
"_layouts" auf Deinen Dateinamen (ohne erweiterung!) ndern.

Fr das Einfgen gilt natrlich das, was Tom bereits erwhnt hat.

Code:

(defun MYIMPORT (/ BFILE BNAME)
  (setq BNAME "_layouts"
        BFILE (findfile (strcat BNAME ".dwg"))
  ) ;_ end of setq
  (if BFILE
    (progn
      (command "_.-insert" BFILE "0,0,0" "1" "1" "")
      (entdel (entlast))
      (command "_.-purge" "_bl" BNAME "_n")
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

(MYIMPORT)
(princ)



..