---

Hallo liebes Forum,

versuche mit Lisp ein Programm zu schreiben in dem ich nach Auswahl der Objekte alle anderen Layer ausschalte außer der auf denen die Objekte Liegen. So weit hab ich es schon geschafft, dass Objekte die gewählt werden ausgeschaltet werden. Beim Bilden einer Liste komme ich leider nicht weiter. Kann mir jemand einen "Schubser" geben wie ich es am besten erreiche.

(defun C:LAYSELWP (/)
      ;(/ CM AU LA ZA)
 
  ;Systemvariablen werden gespeichert
  (Setq CM (Getvar "Cmdecho"))

  ;Systemvariablen werden gesetzt
  (Setvar "Cmdecho" 0)

  ;Auswahlsatz wird gebildet
  (Princ "\nSelektierte Layer anzeigen:")
  (If ;Wenn
    (Setq AU (ssget)) ;Objektauswahl wird erstellt
    (Progn ;dann, Progn arbeite das ab
      (Setq ZA 0) ;Zähler setzen
      (Repeat (Sslength AU) ;wiederholt (Repeat) so oft wie Sslength aus AU bekommt
(Setq LA (Cdr (Assoc 8 (Entget (Ssname AU ZA))))) ;gibt den letzten Layernamen aus dem ges. Auswahlsatz

;LISTE DER LAYER DIE NICHT AUSGESCHALTET WERDEN
;(Setq LI )

;Prüfung ob Layer ausgeschaltet werden kann
;      (If ;Wenn
;   (= LA (Getvar "Clayer")) ;Objektauswahl = Aktueller Layer
;   (Princ (Strcat "\nLayer '" LA "' ist aktuell. Kann daher nicht gefroren werden!")) ;dann Meldung
;   (Progn ;sonnst
;     (Command "_.LAYER" "_FREEZE" LA "") ;Layer ausschalten und
;          (Princ (Strcat "\nLayer '" LA "' wurde eingefroren!")) ;Bildschirmmeldung
;   ) ;Progn
; ) ;If

    (Command "_.LAYER" "_OFF" "*" "_YES" "_FREEZE" "*" "") ;Layer ausschalten und frieren
    (Command "_.LAYER" "_ON" LA "_THAW" LA "") ;Layer einschalten und tauen

(Setq ZA (+ ZA 1)) ;Zähler um 1 erhöhen
      ) ;Repeat
    ) ;Progn
   
    (Alert "Es wurden keine Objekte ausgewählt.")
  );If

 
;Systemvariablen werden zurückgesetzt
  (Setvar "Cmdecho" CM)

  (princ)
  ) ;Defun

(prompt "\n\nProgramm starten mit LAYSELWP")

; ********** Ende **********

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

---

zum liste bilden eignet sich cons
z.b.
(setq i -1)
(repeat (sslength AUSWAHL)
  (if(not(member
            (setq LAYER(cdr(assoc 8(entget(ssname (setq i(1+ i)) Auswahl)))))
            LAYERLISTE
          )
      )
    (cons LAYER LAYERLISTE)
  ) 
) 
 

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Hi,

will dich jetzt nicht demoralisieren, aber in den Express Tools gibt's schon LAYISO und LAYUNISO.

Gruß
CADchup

------------------
www.cadditions.de

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

---

Hallo Holger,

danke für den Tipp. Ich werde es versuchen.

Hallo CADchup,

die Befehle aus den ExpressTools haben mich darauf gebracht.
Um meine Lisp Kenntnisse zu verbessern quelle ich mich mit den kleinen Makros durch.

Schöne Grüße
Waldemar

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

---

Hallo

Vielleicht hilft das auch: http://ww3.cad.de/foren/ubb/Forum145/HTML/001037.shtml#000010

Kann man in vielen Lisp-Programm gebrauchen da es wirklich alles liefer.

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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

---

Moin

Hat wer Info ob das schon funktioniert??

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

selbst wenn nicht, was möchtest du denn eigentlich ?

ErSieEs wollte den efehl LAYISO ais den ETools nachbauen,
will man die Funktionalität so nutzt man einfach die
ETools, will man Lisp-lernen so hilft es auch nicht das es
andere bereits hinbekommen haben, man muß es selber machen.

Was möchtest du ? <frage nur weil der Thread fast 1 Jahr alt ist>

------------------
< Fr. & Sa. beim CAD.de-Treffen in Stuttgart dabei >

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

---

Ooh hab mich verlessen, dachte er wollte ein LayerisoInvert

Die Layer der Objekte die gewählt sind sollen ausgeschalten werden.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

wie auch immer, das gibts ja in den ETools auch 
Er hat wohl nur etwas "üben" wollen und die Express-Lisp´s haben
dabei sehr geholfen. (so habe ich es verstanden)

------------------
< Fr. & Sa. beim CAD.de-Treffen in Stuttgart dabei >

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