---

Hallo...
ich versuche zur Zeit ein Part in Assemblymodus (Visual Basic) aufzurufen.
Beispiel aus der Hilfe habe ich unter VBA ausprobiert und es
klappt auch. Nur unter Visal Basic will es einfach nicht.... "Typ unverträglich"??? sagt Inventor.... hat einer ne Idee, was ich falsch gemacht habe?
Den Quelltext habe ich mal mitgepostet.... Danke im Voraus...

.
.
.
Set oApp = AddInSiteObject.Application
.
.

Private Sub DrawSLine()

Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = oApp.ActiveDocument

Dim oMatrix As Matrix
Set oMatrix = oApp.TransientGeometry.CreateMatrix

Dim oOcc1 As ComponentOccurrence
Set oOcc1 = oAsmCompDef.Occurrences.Add("D:\Part.ipt", oMatrix)
oOcc1.Grounded = True

End Sub

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

---

Hi,

wo er Recht hat, hat er Recht:

Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = oApp.ActiveDocument

Du weist einer ComponentDefinition ein Document zu, das geht so nicht.
Du musst dir erst vom Document die ComponentDefintion holen.

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

---

Danke das war es :- )

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