| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Auf dem Weg zur digitalen Auftragsmappe. , ein Anwenderbericht
|
|
Autor
|
Thema: Ilogic - Unsichtbare löschen (2213 / mal gelesen)
|
BenediktKuepper
Mitglied
   Beiträge: 13
Registriert: 12.05.2016 Autodesk Product Design Suite Ultimate 2016 64-Bit-Edition
SP1 Update 1
|
erstellt am: 30. Mai. 2017 13:42  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, ich habe folgende frage: Wie kann ich am besten mit Ilogic unsichtbare Bauteile in einer Baugruppe löschen? Hintergrund ist der: ich habe eine Master-Baugruppe, möchte nur bestimmte Komponenten beibehalten und den Rest weglöschen. Vielen Dank im Voraus!  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BenediktKuepper
Mitglied
Beiträge: 13
Registriert: 12.05.2016 Autodesk Product Design Suite Ultimate 2016 64-Bit-Edition
SP1 Update 1
|
erstellt am: 30. Mai. 2017 14:01 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe doch etwas gefunden wie ich es realisieren kann: Code:
Dim oComp As ComponentOccurrence
Dim oComps As ComponentOccurrences
oComps = ThisDoc.Document.ComponentDefinition.Occurrences
For Each oComp In oComps
If Component.IsActive(oComp.Name) = False Then oComp.Delete
Next
Es wird geschaut, ob die Komponenten Unterdrückt sind, wenn ja, werden sie gelöscht. Wenn jemand etwas besseres hat, kann er es ja gerne ergänzen   Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nightsta1k3r
Ehrenmitglied V.I.P. h.c.
plaudern
Beiträge: 11279
Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 30. Mai. 2017 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für BenediktKuepper 
|
Ruzy5624
Mitglied
Konstruktionsleiter / staatl. gepr. Techniker
Beiträge: 280
Registriert: 01.07.2015 Product Design Suite 2018 Ultimate
Visual Studio 2017
Windows 10 Pro
Intel Xeon E3-1245 v5 @ 3,5GHz
Nvidia Quadro M4000 8GB
RAM 32GB
2x 24" Monitore FullHD
SpaceMouse Pro
|
erstellt am: 30. Mai. 2017 18:48 <-- editieren / zitieren --> Unities abgeben: Nur für BenediktKuepper
Hier der VBA Code um Unsichtbare Komponenten aus einer Baugruppe zu löschen: Code:
Public Sub RemoveInvisivble()
Dim ThisDoc As Document
Set ThisDoc = ThisApplication.ActiveDocument
Dim oComps As ComponentOccurrences
Set oComps = ThisDoc.ComponentDefinition.Occurrences
Dim oComp As ComponentOccurrence For Each oComp In oComps
If oComp.Visible = False Then oComp.Delete
Next
End Sub
------------------
Mit Besten Grüßen Ruzy5624 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ruzy5624
Mitglied
Konstruktionsleiter / staatl. gepr. Techniker
Beiträge: 280
Registriert: 01.07.2015 Product Design Suite 2018 Ultimate
Visual Studio 2017
Windows 10 Pro
Intel Xeon E3-1245 v5 @ 3,5GHz
Nvidia Quadro M4000 8GB
RAM 32GB
2x 24" Monitore FullHD
SpaceMouse Pro
|
erstellt am: 30. Mai. 2017 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für BenediktKuepper
Und hier nochmal das ganze als iLogic Regel: Code:
Dim ThisDoc As Document = ThisApplication.ActiveDocument
Dim oComps As ComponentOccurrences = ThisDoc.ComponentDefinition.Occurrences
Dim oComp As ComponentOccurrence For Each oComp In oComps
If oComp.Visible = False Then oComp.Delete
Next
------------------
Mit Besten Grüßen Ruzy5624 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BenediktKuepper
Mitglied
Beiträge: 13
Registriert: 12.05.2016 Autodesk Product Design Suite Ultimate 2016 64-Bit-Edition
SP1 Update 1
|
erstellt am: 31. Mai. 2017 08:16 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
