| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Layer vorhanden ja/nein, Objekte auf neuen Layer kopieren (1400 mal gelesen)
|
Christian01
Mitglied
Technischer Zeichner
   Beiträge: 281
Registriert: 17.04.2007 Briscad V22
ACAD MAP 2019
Win 10 Pro 64bit
Intel, 4x 3,0 GHz, 8GB RAM
2 x 24" TFT
|
erstellt am: 06. Nov. 2013 10:50  <-- editieren / zitieren -->   Unities abgeben:          
Hallo liebe Community Ich habe ein Problem mit dem Code.
Habe leider noch nicht LISP richtig gelernt.
Habe folgenden LISP- Code geschrieben. Code:
; Layer LICHT
(setq aws(ssget "_X" '((8 . "Licht"))))
(command "_.-layer" "_M" "Licht_VP" "")
(command "_.copy" aws "" '(0.0 0.0) '(0.0 0.0))
(command "_.CHPROP" aws "" "_LA" "Licht_VP" "")
(command "_.-layer" "_col" "2" "Licht_VP" ""); Layer Boden
(setq aws(ssget "_X" '((8 . "Boden"))))
(command "_.-layer" "_M" "Boden_VP" "")
(command "_.copy" aws "" '(0.0 0.0) '(0.0 0.0))
(command "_.CHPROP" aws "" "_LA" "Boden_VP" "")
(command "_.-layer" "_col" "2" "Boden_VP" "") ; Layer 0 setzen
(command "_.-layer" "_se" "0" "")
(command "_._Zoom" "grenzen")
Mein Problem: Wenn es den den Layer Licht nicht gibt dann soll er diesen Codeabschnitt überspringen und bei Layer Boden weitermachen.
Habe im Netz schon geschaut, aber nichts gefunden. Wie schon gesagt, habe ich LISP nie richtig gelernt und daher ist es für micht nicht so einfach, nach was ich aussschau halten muss. Könnte Ihr mir bitte helfen. 
------------------
Grüße Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 06. Nov. 2013 10:53 <-- editieren / zitieren --> Unities abgeben: Nur für Christian01 
|
Christian01
Mitglied
Technischer Zeichner
Beiträge: 281
Registriert: 17.04.2007
|
erstellt am: 06. Nov. 2013 11:14 <-- editieren / zitieren --> Unities abgeben:
|
Brischke
Moderator
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 06. Nov. 2013 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für Christian01
|
Christian01
Mitglied
Technischer Zeichner
Beiträge: 281
Registriert: 17.04.2007
|
erstellt am: 06. Nov. 2013 12:44 <-- editieren / zitieren --> Unities abgeben:
Hallo CADmium, mit Cond funktioniert es nur bedingt. Denn wenn es beider Layer (Licht & Boden) gibt,
dann bearbeitet er mir nur die Codezeile: "LICHT" --> nicht aber die CodeZeile Boden.  Gibt es dafür eine Lösung?
------------------
Grüße Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm
Moderator
良い精神
Beiträge: 21533
Registriert: 03.06.2002 Alles
|
erstellt am: 06. Nov. 2013 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für Christian01
|
Geos
Mitglied
Vermessungstechniker i.R.
Beiträge: 1017
Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro
eigene Lisp's<P>HW: Core i7 860, 2.8 GHz
3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 13. Nov. 2013 18:07 <-- editieren / zitieren --> Unities abgeben: Nur für Christian01
Eigentlich ist ja die Frage, ob ein Layer vorhanden ist - das kann er auch sein, ohne dass Objekte drauf liegen - daher: Code:
Befehl: (tblsearch "LAYER" "0")
((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))Befehl: (tblsearch "LAYER" "gixigaxi")
nil
------------------
Schöne Grüße
Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
- 
