Hi Crash,
ist dein Name Programm, dann bist Du beim Inventor richtig!!!!
Also aus Sample (Inventor6 Programming Help), dort sind auch noch ne ganze Menge anderer Bsp:
Public Sub MoveOccurrence()
' Set a reference to the assembly component definition.
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
' Get an occurrence from the select set.
On Error Resume Next
Dim oOccurrence As ComponentOccurrence
Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
If Err Then
MsgBox "An occurrence must be selected."
Exit Sub
End If
On Error GoTo 0
' Get the current transformation matrix from the occurrence.
Dim oTransform As Matrix
Set oTransform = oOccurrence.Transformation
' Move the occurrence honoring any existing constraints.
oTransform.SetTranslation ThisApplication.TransientGeometry.CreateVector(2, 2, 3)
oOccurrence.Transformation = oTransform
' Move the occurrence ignoring any constraints.
' Anything that causes the assembly to recompute will cause the
' occurrence to reposition itself to honor the constraints.
oTransform.SetTranslation ThisApplication.TransientGeometry.CreateVector(3, 4, 5)
Call oOccurrence.SetTransformWithoutConstraints(oTransform)
End Sub
Also viel Spaß
SEHER
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP