---

Hallo Gemeinde

ich habe eine iLogic regel welche Bauteile und Gruppen in der Obersten Baugruppenebene Fixiert. Nun würde ich diese auch gerne auf die Bauteile der Unterbaugruppen anwenden. Also alles bis in die letzte ebene Fixieren. Hat jemand eine IDE?

grüße und Danke
Steffen

Sub Main ()
Dim doc As  AssemblyDocument
doc = ThisApplication.ActiveDocument

Dim occ As AssemblyComponentDefinition
occ  = doc.ComponentDefinition

Dim iCounter As Integer = 0

Call FixAll (doc)

End Sub

Sub FixAll (Doc As Document)
For Each occ In doc.ComponentDefinition.Occurrences
If Not occ.Suppressed Then
occ.Grounded = True
End If
Next

 
End Sub

------------------
Wer einen Fehler gemacht hat und ihn nicht korrigiert, begeht einen zweiten!

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

---

selbst gelöst :-)

http://inventortrenches.blogspot.de/2012/05/working-with-unconstrained-imported.html

------------------
Wer einen Fehler gemacht hat und ihn nicht korrigiert, begeht einen zweiten!

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