---

Hallo,

ich bin ein Anfänger was VBA in Inventor betrifft. Mein Ziel ist es, dass beim öffnen einer .ipt Datei ein Makro mit UserForm automatisch gestartet wird. So weit kein Thema. Nun soll in dem Form eine Schaltfläche für die derzeit verwendeten Parameter, eine Schaltfäche für Parameter änderung und eine Schaltfläche für aktualisieren und schließen des Userform enthalten sein. Das ganze bekomme ich hin wenn ich die ipt offen habe, sprich aktive ist, aber nicht wenn ich die Datei neu lade. Da kommt dann ein Fehler. Ich denke es liegt daran, dass ich im Code ThisApplication.ActiveDocument verwenden. Kann jemand weiter helfen, wie muss ich es ändern?

der bisherige Code ist (Funktionier einwandfrei bei geladenem ipt):

Option Explicit

Dim oPartdoc As Inventor.PartDocument
Dim oParams As Parameters
Dim hoehe_aktuell As Double
Dim hoehe_neu As Double

Private Sub CommandButton1_Click()

Set oPartdoc = ThisApplication.ActiveDocument
Set oParams = oPartdoc.ComponentDefinition.Parameters

'Parameter ändern

hoehe_neu = TextBox2.Value
oParams.Item("hoehe").Value = hoehe_neu / 10

End Sub

Private Sub CommandButton2_Click()

Set oPartdoc = ThisApplication.ActiveDocument
Set oParams = oPartdoc.ComponentDefinition.Parameters

'Parameter auslesen

hoehe_aktuell = oParams.Item("hoehe").Value * 10

TextBox1.Text = hoehe_aktuell

End Sub

Private Sub CommandButton3_Click()

ThisApplication.ActiveDocument.Rebuild
UserForm1.Hide

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

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

---

Hallo,

das Makro funktioniert natürlich nur wenn ein Bauteil aktiv ist (ActiveDocument). Trotzdem verstehe ich nicht, was du mit:

Zitat:

---

Das ganze bekomme ich hin wenn ich die ipt offen habe, sprich aktive ist, aber nicht wenn ich die Datei neu lade.

---

meinst?? 

------------------
Grüße Igor

FX64 Software Solutions

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

---

Damit ist gemeint, dass das Makro nicht funktioniert wenn ich die Datei öffne und keine andere Datei offen ist.
Das Problem habe ich zufälllig selbst gelöst bekommn. Musste anstatt sub AutoOpen(), sub AutoEdit() im Documentfile eintragen.

Aber eine Frage hätte ich trotzdem noch, wie kann man das bei einer Baugruppe händeln.

Gruß
Christian 

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

---

Zitat:

---

Original erstellt von WünschMirWas:
Damit ist gemeint, dass das Makro nicht funktioniert wenn ich die Datei öffne und keine andere Datei offen ist.

---

Verstehe ich immer noch nicht, aber egal, Hauptsache läuft 

Zitat:

---

Original erstellt von WünschMirWas:
Aber eine Frage hätte ich trotzdem noch, wie kann man das bei einer Baugruppe händeln.
 

---

Mal mit As Inventor.AssemblyDocument statt As Inventor.PartDocument probieren (evtl. später bei der Definition anpassen)...

------------------
Grüße Igor

FX64 Software Solutions

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