---

Hallo

Wie kann man mit VBA Parameter von Bemaßungen auslesen?
Z.b. Der Parameter eines Durchmesser ist d0 und hat den Wert 5.
Wie kann ich den Wert von d0 bestimmen? Wie greife ich auf d0 zu?

------------------
mechanical   

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

---

Hallo,

das müsste funzen:

Code:

---

Dim oApp As Inventor.Application
Dim oAsm As AssemblyDocument
Dim oNewDoc As PartDocument
Dim oTransGeom As TransientGeometry
Dim CurrentTransform As Matrix
Dim wert_neu as Double

Set oApp = GetObject(, "Inventor.Application")
Set oTransGeom = oApp.TransientGeometry
Set oAsm = oApp.ActiveDocument
Set CurrentTransform = oApp.TransientGeometry.CreateMatrix
CurrentTransform.SetToIdentity
 
Set oNewDoc = oApp.Documents.Open(dein_teil.ipt, False)

wert_neu = 5.8 'zB.

wert_neu = oAsm.UnitsOfMeasure.GetValueFromExpression(wert_neu, kDefaultDisplayLengthUnits)
oNewDoc.ComponentDefinitions(1).parameters("d0").Value = wert_neu

oNewDoc.Update

---

Der Code läuft extern, so wenn Du es als Makro laufen lassen möchtest, müsstest Du die Set oApp = ThisApplication... setzen.

------------------
Grüße daywa1k3r

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

---

Das müsste auch gehen
MfG K.W.

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

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

'Parameter auslesen

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

---

Danke
Werde es Morgen gleich ausprobieren.

------------------
mechanical   

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

---

Danke Leute, es funzt

VOSTA1 hat es genau getroffen.

------------------
mechanical   

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