---

document_onchange.png

Gibt es irgendeine Funktion oder Callback das aufgerufen wird wenn man ein Dokument wechselt?
Denn ich möchte in einer Form immer die aktuellen iPropertie Werte vom derzeitig ausgewählten Dokument anzeigen.
Mir fällt derzeit nur ein Button ein wo man dann aktualisieren kann, das müsste man allerdings händisch machen.
Wenns automatisch geht wäre das schon besser.
Zur Info: Habe mit iLogic noch nicht gearbeitet bzw noch keine ahnung wie das geht.

Edit:
Habe etwas gefunden jedoch weiß ich nicht wie ich es anwenden soll.
Bild -->

Finde in der Hilfe auch nirgends Beispielcodes
------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 14. Nov. 2013 editiert.]

[Diese Nachricht wurde von axi92 am 14. Nov. 2013 editiert.]

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

---

Hallo

Das Stichwort heißt Klassenmodul. Damit kann man auch in VBA auf Events reagieren. Das OnChange-Event hat nichts mit einem Dokumentwechsel zu tun, sondern wird bei jeder Änderung im Dokument abgefeuert. Mach lieber einen Bogen um dieses Event. Damit kann man Inventor schnell nahezu unbenutzbar machen. OnEnvironmentChange wäre wahrscheinlich besser geeignet.

------------------
MfG
Ralf

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

---

Ok danke leider weiß ich noch immer nicht wie ich so etwas anwende.
Bis jetzt habe ich noch nie mit Klassen gearbeitet oder war mir dessen nicht bewust.
Ich habe so etwas hier gefunden:
http://ww3.cad.de/foren/ubb/Forum465/HTML/000107.shtml#000014
Aber das ist .NET

------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 14. Nov. 2013 editiert.]

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

---

Hallo

1. Beitrag

------------------
MfG
Ralf

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

---

Es tut mir ja leid aber ich werde aus dem Thread auch nicht schlau?
Habe mit so etwas noch nicht gearbeitet daher bringt mir das nicht viel, denke ich zu mindest.
Ich kenne es nur von einer anderen Sprache als Callback:
public OnEnvironmentChange()
{
   'Was geschehen soll
}
Und das wird halt immer aufgerufen laut Definition:
"Fires when the active environment changes"
------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 14. Nov. 2013 editiert.]

[Diese Nachricht wurde von axi92 am 14. Nov. 2013 editiert.]

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

---

Hallo

Eigentlich erklärt und zeigt dir der Beispielcode wie man in einem Klassenmodul einen Eventhandler erzeugt und wie man diesen in seiner Sub nutzt. Setze in deine Form folgendes:

Code:

---

Private Sub UserForm_Activate()
    ' Create a new clsEvents object.
    Dim oEvent As New clsEvents
   
    oEvent.LoopMe
End Sub

---

Jetzt erzeugst du ein neues Klassenmodul und nennst es clsEvents. Da fügst du dann das ein:

Code:

---

Option Explicit

' Declare the event objects
Private WithEvents oUIEvents As Inventor.UserInterfaceEvents

Public Sub LoopMe()
    Set oUIEvents = ThisApplication.UserInterfaceManager.UserInterfaceEvents
   
    ' Loop
    Do While UserForm1.Visible
        DoEvents
    Loop
End Sub

Public Sub oUIEvents_OnEnvironmentChange(ByVal Environment As Inventor.Environment, ByVal EnvironmentState As Inventor.EnvironmentStateEnum, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, ByRef HandlingCode As Inventor.HandlingCodeEnum)

' AFTER
If BeforeOrAfter = EventTimingEnum.kAfter Then
    'Update deiner Form mit aktuellen iProps
    'als Beispiel hier der aktuelle Dokumentname
    UserForm1.TextBox1.Text = ThisApplication.ActiveDocument.FullDocumentName
End If

End Sub

---

Das Problem an der Stelle ist das der Loop manchmal deine CPU auf Vollast laufen läßt. Mach dir mal ernsthaft Gedanken darüber auf .Net zu wechseln. Mit VBA kommst du schnell an Grenzen, wenn das Projekt wächst.

------------------
MfG
Ralf

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

---

Kann auf kein .NET wechseln da es in der Arbeit nicht installiert ist und auch nicht installiert werden darf.
Und zu hause habe ich kein IV.
Und am Tag nur 1 mal testen zu können ist unmöglich xD

------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 18. Nov. 2013 editiert.]

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

---

Danke nochmal habe es jetzt eingebaut so wie ich es benötige.
Jedoch wenn ich die App (das Makro) das erste mal starte läuft die Klasse.
Wenn ich dann auf das "X" drücke zum Schließen und dann erneut die App aufrufe bekomme ich:
Run-time error: '429':
ActiveX component can't create object

Und es zeigt mir den Fehler in dem Modul wo ich die "UserForm1.Show" aufrufe.

Wenn ich aber!
Nachdem ich das Makro über "x" beendet habe auch im VBA Editor auf "Reset" drücke dann kann ich es sehrwohl ohne Probleme wieder aufrufen.
Kann es sein das ich die Klasse irgendwie separat beenden muss?

Beendet wird es mit:

Code:

---

Private Sub UserForm_Terminate()
    End
End Sub

---

------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 18. Nov. 2013 editiert.]

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

---

Ralf kein Idee? 

------------------
Grüße aus Wien
Philipp

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

---

Hallo

das Phänomen hatte ich auch, aber keine Lösung gefunden. Wenn du kein VisualStudio installieren und auf .Net wechseln darfst, kannst du dein Glück nur noch mit iLogic und dessen Eventtriggern versuchen.

------------------
MfG
Ralf

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

---

Ok danke, kann man iLogic und VBA kombinieren? Also vom Einen das Andere aufrufen?

------------------
Grüße aus Wien
Philipp

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