objekte auf einem Layer ablaufen (Autodesk/AutoCAD VBA) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: objekte auf einem Layer ablaufen (537 mal gelesen)
michimueller Mitglied Beiträge: 7 Registriert: 25.08.2015	erstellt am: 02. Sep. 2015 09:25 <-- editieren / zitieren --> Unities abgeben: Hallo ich hab folgendes Problem zu folgendem Code: Dim oEntity As AcadEntity For Each oEntity In ThisDrawing.ModelSpace If oEntity.layer = "Raumstempel" Then mach was end if next Mein Problem ist nun das es bei größeren Dateien ewig braucht bis alle Objekte abgelaufen sind. Wie kann ich es so gestallten das nur Objekte auf einem Layer durchsucht werden? Also sozusagen: For Each oEntity In ThisDrawing.ModelSpace (auf dem Layer "Raumstempel") .... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Ehrenmitglied V.I.P. h.c. 良い精神 Beiträge: 22477 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 02. Sep. 2015 10:53 <-- editieren / zitieren --> Unities abgeben: Nur für michimueller Da Layer keine Ebenen sind gibt es das nicht, wenn einem TopLevel Elemente ausreichen(keine Verschachtelten Objekte), so könnte man eine AUSWAHLSATZ erstellen und diesen durchlaufen / selectionset. Nutze das mal als Suchbegriff! ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin Beiträge: 2855 Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004 Civil 3D 2005 - 2025 Plateia, Canalis Visual Basic	erstellt am: 02. Sep. 2015 11:11 <-- editieren / zitieren --> Unities abgeben: Nur für michimueller Hallo Michi, Wie cadffm schon schrieb geht das am einfachsten mit setzen eines Filters auf den Layer in einem Selectionset Ein Beispiel dazu findest Du hier Grüße Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
michimueller Mitglied Beiträge: 7 Registriert: 25.08.2015	erstellt am: 07. Sep. 2015 14:25 <-- editieren / zitieren --> Unities abgeben: Danke euch, ich probier es mal, hab gerade noch mehrere Baustellen :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)