iLogic: Skizzenumfang auslesen und in Benutzer-iProperty schreiben

'Variablen 
Dim Skizzenname As String
Dim Umfang As Double 
Dim iPropName As String

'Variablen Werte zuweisen
Skizzenname = "Skizze1"
'Hier wird die Skizzenlänge aus der Skizze mit dem in der Var. Skizzenname
'hinterlegten Skizze ausgelesen
Umfang = Measure.Perimeter(Skizzenname)
'Diese Var. enthält den Benutzer-iProp.-Name den ich aus dem Skizzennamen
'und dem Suffix _Umfang zusammensetze
iPropName = Skizzenname & "_Umfang"

'Wert ausgeben und in iProp. schreiben
MsgBox (Umfang)
iProperties.Value("Custom", iPropName)= Umfang

 

Download Beispiel-IPT (Inventor 2019)