Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Layer isolieren nach Namen

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:  Layer isolieren nach Namen (1098 mal gelesen)
Andrina08
Mitglied
Vermessung


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

Beiträge: 11
Registriert: 17.06.2019

AutoCAD 2020

erstellt am: 29. Aug. 2019 07:48    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

Guten Morgen
Ich möchte mittels LISP alle Layer, die mit UW beginnen isolieren, um deren gesamten Inhalte zu löschen....

Ich kämpfe nur leider bereits mit dem Ansatz.. 

Dankeschööööön.

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: 29. Aug. 2019 08:14    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 Andrina08 10 Unities + Antwort hilfreich

servus,

Code:
(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_off" "*" "" "_on" (strcat "*" layt "*") ""))

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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: 29. Aug. 2019 08:19    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 Andrina08 10 Unities + Antwort hilfreich

Die Vorgehensweise finde ich gut, denn "um deren gesamten Inhalte zu löschen" machst du damit genau NICHT (nicht in jedem Fall)
Sind UW* Layer in verschachtelten Objekten verwendet, oder in anderen Layout, so werden diese Objekte bei deinem Vorgehen nicht gelöscht (gut).

Dennoch kannst du ein alle "TopLevel"-Objekte im aktuellen Bereich auf diesen Layern direkt auswählen und löschen.
Per Hand Beispielsweise mit Befehl: SAUSWAHL oder FILTER

Im Makro oder Script wie von dir vorgeschlagen, wenn du das Makro oder Script erstellt hast brauchts auch kein Lisp mehr
Alternativ per Lisp (ssget), wenn ExpressTools installiert sind auch über SSX.

Wie man LÖSCHEN und LAYISO in der Befehlszeile bedient findest du heraus? Dann andere Beispiel:

Beispiele

; ==== Per Hand wenn Expresstools installiert sind (kannst die nächsten 13 Zeilen direkt kopieren und in die Befehlszeile einfügen zum testen. ==== ;
-LAYER
ENTSPERREN
UW*

LÖSCHEN
'SSX

LAYER
UW*

VORHER


;==== schnipp =====

An sowas dachtest du vermutlich

(defun c:UWe ()
  (if (ssget "_X" (list '(8 . "UW*")(cons 410 (getvar 'CTAB))))
      (command "-LAYER" "ENTSPERREN" "UW*" "" "LÖSCHEN" "VORHER" "")
  )
  (princ)
)

tschö

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

TC17pro
Ehrenmitglied V.I.P. h.c.
TZ der hilft --> PM



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

Beiträge: 3082
Registriert: 20.08.2013

erstellt am: 29. Aug. 2019 08:20    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 Andrina08 10 Unities + Antwort hilfreich

Hallo Bernd P,

OT an:

Zitat:
Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

Dein "hier" geht ins Nirvana. Besser diesen Link benutzen. 

OT aus:

------------------
Freundliche Grüße
TC17pro

Über eine Rückmeldung würde ich mich freuen, Danke.
Meine Version TurboCAD V 17.2.77.1 Professional
Für die erstellten Beiträge ist die Haftung, Garantie und Gewährleistung ausgeschlossen.
Nettiquette-----Sys-Info-----Richtig fragen
Dateianhänge hochladen
So sagt man Dankeschön - Unities

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: 29. Aug. 2019 09:23    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 Andrina08 10 Unities + Antwort hilfreich

danke, ist geändert.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

Andrina08
Mitglied
Vermessung


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

Beiträge: 11
Registriert: 17.06.2019

AutoCAD 2020

erstellt am: 29. Aug. 2019 13:27    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

perfekt, genau an das dachte ich... 

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