Hallo Allerseits,
ich habe ein Bauteil, welches parametergesteuerte ("H_Beine") Stützen hat, welche bis auf die XY-Ebene reichen. Die Stützen sollen sich automatisch nach der Lage im Raum verlängern/verkürzen. Das Ganze funktioniert zwar als selktiertes Bauteil in der Baugruppe mit VBA-Routine:
Sub beine()
mess = False
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim sel As SelectSet
Set sel = oApp.ActiveDocument.SelectSet
If sel.Count = 1 Then
Set sel_me = ThisApplication.ActiveDocument.SelectSet.Item(1)
Dim para As UserParameters
Set para = sel_me.Definition.Parameters.UserParameters
For i = 1 To para.Count
Select Case para.Item(i).Name
Case "H_Beine"
para.Item("H_Beine").Value = sel_me.Transformation.Translation.Z
mess = True
Exit For
End Select
Next
If mess = False Then MsgBox "Beinparameter nicht enthalten"
ThisApplication.ActiveDocument.Update
End If
End Sub
Das muss ich aber erst starten, auf anderen Rechnern einbinden, etc.
Gibt es eine Möglichkeit die Funktionsweise über iLogic Regeln direkt ans Bauteil zu koppeln?
Generell: Kann normaler VBA code in die Regeln geschrieben werden oder gibt es eine eigene Referenz?
Habt Ihr eine Idee, wie man die Funktion am elegantesten auslösen könnte (am Besten wäre ja: ich merke selbst, daß man mich bewegt, also mess ich die Höhe und mache die Stützen so lang..). Oder sollte man das über einen Trigger lösen?
VG Tom
------------------
Einfach mal rechts fahren....
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP