Xref sub Entitys einschalten (Autodesk/AutoCAD VBA)


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

	Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Xref sub Entitys einschalten (391 mal gelesen)
c.schojer Mitglied Beiträge: 299 Registriert: 23.05.2007 Autocad 2018	erstellt am: 27. Feb. 2008 20:32 <-- editieren / zitieren --> Unities abgeben: Hallo Leute mal eine wichtige Frage wie kann ich die Einzelelemente wenn ich diese mit getentity vorher ausgeschalten habe nun wieder einschalten?? Bzw wie greife ich auf Xref generell zu?? Mfg chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
c.schojer Mitglied Beiträge: 299 Registriert: 23.05.2007 Autocad 2018	erstellt am: 27. Feb. 2008 21:11 <-- editieren / zitieren --> Unities abgeben: Hat sich schon erledigt Danke!! Sub SUBELEMENTE_EIN() 'Programmiert am:27.02.2008 'Verwendung: Subelemente in Blöcken/Xrefs einschalten 'Programmiert von Ing. Schojer Christian Dim ent, Ent2, Object For Each ent In ThisDrawing.Modelspace Debug.Print ent.Objectname If ent.Objectname = "AcDbBlockReference" Then Set Object = ThisDrawing.Blocks(ent.NAME) For Each Ent2 In Object Ent2.Visible = True Next Ent2 End If Next ent ThisDrawing.Regen acActiveViewport End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X