---

Guten Morgen !

Ich bin schon eine weile am rumtüfteln, aber leider nicht so fit in VBA.

Ich habe ein Formular über iLogic erstellt über das ich eine Wert in den Iproberties ändere. (Länge des Bauteiles)
Nun benötige ich ein Makro das den Wert des Iproperties auf das richtige Maß in den Parametern überträgt.

Zudem muss das ja irgendwie so gemacht werden das sich das Makro automatisch nach dem ändern des Ipropertie Wertes ausführt.

Schon mal Danke für eure Hilfe !

Chrisi

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

---

Hallo Chrisi,

andersrum wirds einfacher.
Parameter mittels iLogic Formular ändern geht recht einfach.
Wenn du die Parameter als Exportparamter definierst, tauchen sie auch in den Iproperties auf ohne das du etwas programmieren musst.

------------------
Gruß, Gandhi
"Dem guten Frager ist schon halb geantwortet" - Friedrich Nietzsche

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

---

Ahh, das ist ja viel einfacher als ich gedacht habe!

Nur habe ich das Problem das wenn der Wert in den IProberties geändert wird sich der Wert nicht in den Parametern ändert ... : (

Habe das ganze mal im inhaltscenter aufgebaut. Nun benötige ich nur noch das Feld "stangenlänge" wenn ich das Bauteil einfüge, um die länge zu ändern !
Weis jemand wie das funktioniert?

Chrisi

[Diese Nachricht wurde von TheSon am 18. Jun. 2015 editiert.]

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

---

Ich weiß nicht, ob ich dich richtig verstanden habe, aber wenn du via VBA einen Parameter ändern möchtest kannst du folgenden Code verwenden:

Code:

---

Dim oDoc as Inventor.Document:          Set oDoc = ThisApplication.ActivDocument
Dim oCD As Inventor.ComponentDefinition: Set oCD = oDoc.ComponentDefinition
Dim oParams As Inventor.Parameters:      Set oParams = oCD.Parameters
Dim oParam As Inventor.Parameter
Dim retval as Variant
For Each oParam In oParams
  If oParam.Name = "stangenlänge" Then
  retval = oParam.value
  Exit For
  End If
Next 'oParam

---

Anmerkungen: du kannst natürlich oParam.value nicht nur zum Auslesen sondern auch zum schreiben verwenden

gruß DerBrain87

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