---

Hallo,

mit VBA erstelle ich eine abgeleitete Komponente und möchte diese auch direkt spiegel. Wenn ich diese Funktion manuell über Inventor 11 aufrufe habe ich dort die möglich das Kästen "Bauteil spiegeln" zuwählen. Nur wie mach ich das über VBA?

Code:

---

Sub Test()
a = "C:\B03890.ipt"

Dim Doc As PartDocument

Set Doc = ThisApplication.ActiveDocument

Dim oDef As DerivedPartUniformScaleDef

Set oDef = Doc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.CreateUniformScaleDef(a)

oDef.IncludeBody = True

Doc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Add oDef

End Sub

---

Gruß, Tim

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