---

Hallo Forum,
wie finde ich zu einer Arbeitsebene den dazugehörenden Parameter?

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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

---

Hallo,

der Parameter ist in der Liste "fx".

am besten eine leere *.ipt öffnen und nur eine neue Arbeitsebene erzeugen.

Nun ist der Wert in der Tabelle die über das "fx" Icon aufgerufen werden kann.

die Masse werden von d0, d1 , d2 aufwärts automatisch nummeriert!
(können aber beliebig verändert werden zB. von d0 in Länge_1).

Diesen Wert kann man auch mit VBA ändern:

Sub Parameter()
Dim oPartDoc As Inventor.PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

Dim oParams As Parameters
Set oParams = oPartDoc.ComponentDefinition.Parameters

'Parameter auslesen
Dim AB_1 as double

AB_1 = oParams.Item("d0").Value * 10
MsgBox (AB_1)

'UserParameter  auslesen

Dim oUserParams As UserParameters
Set oUserParams = oParams.UserParameters
     
'Neue Parameter einlesen
Dim AB_3 As Double
     
AB_3 = oUserParams.Item("AB_3").Value * 10
MsgBox (AB_3)

d0_neu = 10.8895

oParams.Item("d0").Value = d0_neu * 10

AB_3_neu = 1000.456
oUserParams.Item("AB_3").Value = AB_3_neu * 10

End Sub

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

---

1Basisebene.ivb.txt

Danke, ich hab es so gelöst (siehe Anhang).

------------------
Gruß
Hans-Peter

Der Wahnsinn in Sachen Musik.

  Das Saxregister

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