Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Layerliste bilden

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Layerliste bilden (1006 mal gelesen)
Waldemar
Mitglied
Applikationsingenieur


Sehen Sie sich das Profil von Waldemar an!   Senden Sie eine Private Message an Waldemar  Schreiben Sie einen Gästebucheintrag für Waldemar

Beiträge: 264
Registriert: 06.09.2001

erstellt am: 25. Nov. 2005 10:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Brischke
Moderator
CAD on demand GmbH




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 25. Nov. 2005 10:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

CADchup
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 25. Nov. 2005 11:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

Waldemar
Mitglied
Applikationsingenieur


Sehen Sie sich das Profil von Waldemar an!   Senden Sie eine Private Message an Waldemar  Schreiben Sie einen Gästebucheintrag für Waldemar

Beiträge: 264
Registriert: 06.09.2001

erstellt am: 25. Nov. 2005 11:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

mkl-cad
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von mkl-cad an!   Senden Sie eine Private Message an mkl-cad  Schreiben Sie einen Gästebucheintrag für mkl-cad

Beiträge: 378
Registriert: 23.07.2003

ACAD 2002
Express Tools 1-9
Architektural Desktop
Windows XP
Server Windows 2003
3 GHz Rechner
1 GB RAM
80 GB Festplatte
ATI FireGL V3100
2 17" Flachbildschirme

erstellt am: 25. Nov. 2005 13:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 01. Aug. 2006 10:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 01. Aug. 2006 10:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 01. Aug. 2006 10:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 01. Aug. 2006 12:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Waldemar 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz