---

Sehr geehrte Damen, sehr geehrte Herren,

ist es möglich per VBA einen Benutzerparameter zu erstellen?

Ich habe es vergeblich mit ...AddByValue(Name As String, Value As Double, Units) As UserParameter etc. probiert, bekomme es aber nicht hin.

Über eine initialzündende Information würde ich sehr freuen.

mfg

Patrick

------------------

EINFACH sein, einfach SEIN!

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

---

Hallo,
ich hoffe das es das ist was gesucht wird.
++++++++++++++++++++++++++++++++++++++++++++
Sub Benutzer_Eigenschaft()

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim B_Eigenschaft As String
B_Eigenschaft = "U-Profil"
oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add B_Eigenschaft, "Benutzer_Eigenschaft"

End Sub
+++++++++++++++++++++++++++++++++++++++++++++++
Sub Benutzer_Parameter()

Dim oPartDoc As Inventor.PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

Dim Kommentar_Par_1 As String
Kommentar_Par_1 = "Länge, Rohrlänge"

Dim oUnit As String
Dim OName As String
Dim oWert As Double
   
   
oUnit = "mm"
OName = "Par_1"
oWert = 100 / 10 'Wichtig Zahl durch 10 Teilen, da Inventor nur cm kennt, wenn [mm] gewünscht!!!!
oPartDoc.ComponentDefinition.Parameters.UserParameters.AddByValue OName, oWert, oUnit
Set oItem = oPartDoc.ComponentDefinition.Parameters.UserParameters.Item("Par_1")
oItem.Comment = Kommentar_Par_1

End Sub

Der Wert Par_1 steht jetzt in der "fx" Tabelle

MFG VOSTA

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

---

Hallo Vosta,

vielen Dank für den Tipp. Genau das habe ich gesucht. Es funktioniert.

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

---

hallo
via VBA ist ist es so möglich:

Set ADI.Doc = ADI.App.Documents.Open(FFN), True)
Set ADI.ParaS = ADI.Doc.ComponentDefinition.Parameters
idTemp = ADI.ParaS.UserParameters.AddByValue("PName", PWert, "mm")
______________________________________________________________________

DLL's kannst Du mit VB5 oder VB6 oder .Net erstellen und unter ADI-VBA anhängen

------------------
das Leben ist schön, meint Ingolf

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