Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  gleiche objekte auswählen

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:  gleiche objekte auswählen (963 mal gelesen)
kickdown
Mitglied



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

Beiträge: 39
Registriert: 23.08.2006

erstellt am: 16. Apr. 2007 15: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

hi

habe das lisp "sellay" von xanadu, falls nicht bekannt: man klickt auf ein objekt und es wählt alle objekte des layers aus.

nun würde ich eine änderung brauchen, und zwar soll nicht der gesamte layer ausgewählt werden sondern objekte mit den selben eigenschaften(auf den angewählten layer)

zb: wenn ich eine schraffur anwähle, sollen alle schraffuren des layers selektiert werden. bei einem kreis alle kreise etc.

ist es möglich das lisp ohne großen aufwand umzuschreiben? hab nämlich keine ahnung von programmieren.
kann mir da jemand helfen?

danke mal im vorraus

mfg k.d.

hier noch das SELLAY lsp:

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
(setq e (nentsel "Select entity on a layer: "))
(if e (setq ss (ssget "_X" (list(cons 8 (cdr (assoc 8 (entget (car e)))))))))
(if (zerop (getvar"CMDACTIVE"))
  (progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
)
ss
)

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

runkelruebe
Ehrenmitglied V.I.P. h.c.
Straßen- / Tiefbau



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

Beiträge: 8075
Registriert: 09.03.2006

sw:
Win7-x64
Office 365 ProPlus
C3D (& LT )
ET; DACH; Extensions
-------------------
hw:
FX3800
i5 CPU 670
8GB RAM

erstellt am: 16. Apr. 2007 15: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 Nur für kickdown 10 Unities + Antwort hilfreich

Vielleicht gibt es sowas schon?
Guckst Du: http://ww3.cad.de/foren/ubb/Forum54/HTML/015389.shtml
Ist es das?
Bei Fragen zum code: den Ersteller fragen ;-)

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 16. Apr. 2007 15:47    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 kickdown 10 Unities + Antwort hilfreich

Hallo Kickdown,
damit müßte es eigentlich gehen:
Code:

;(C) 2007 XANADU - www.xanadu.cz
(defun C:SELLAY ( / e lay ss)
(setq e (nentsel "Select entity on a layer: "))
(if e (setq ss (ssget "_X" (list

;;;Gruppencode 0 berücksichtigen
(cons 0(cdr (assoc 0 (entget (car e)))))
;;;Gruppencode 0 berücksichtigen

      (cons 8 (cdr (assoc 8 (entget (car e)))))))))
(if (zerop (getvar"CMDACTIVE"))
  (progn (sssetfirst ss ss)(princ"Use 'P' for this selection set: "))
)
ss
)


------------------
viele Grüße

Jörn

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

kickdown
Mitglied



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

Beiträge: 39
Registriert: 23.08.2006

erstellt am: 16. Apr. 2007 16:09    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

danke, funktioniert bestens

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