Folgendes Problemstellung
Beim ONOPEN einer Baugruppe(Before und After) wird ja für jeden Member das Event ausgelöst.
Ok dachte ich kein Problem, ich brauche das Event nur beim AFTEr der BG also wenn fertig.
Also schlau nachgelesen, aha also den Context auslesen von
*********************************************
Private Sub m_appEvents_OnOpenDocument(ByVal DocumentObject As Inventor._Document, ByVal FullDocumentName As String, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, ByRef HandlingCode As Inventor.HandlingCodeEnum) Handles m_appEvents.OnOpenDocument
Dim tt As Inventor.NameValueMap = Context.Value(1)
MsgBox(tt.ToString)
If Not (Context.Name(1)) = "TopLevelFilename" Then
'tmpstr = DocumentObject.FullDocumentName.ToString
If BeforeOrAfter = EventTimingEnum.kBefore Then
' MsgBox("llb")
Me.Activate()
lstViewItem = lv_CONVERSION_AGENT.Items.Add("ON OPEN")
lstViewItem.SubItems.Add("BEFORE")
lstViewItem.SubItems.Add(FullDocumentName)
lstViewItem.SubItems.Add("Not handled")
ElseIf BeforeOrAfter = EventTimingEnum.kAfter Then
' MsgBox("lla")
lstViewItem = lv_CONVERSION_AGENT.Items.Add("ON OPEN")
lstViewItem.SubItems.Add("AFTER")
lstViewItem.SubItems.Add(FullDocumentName)
lstViewItem.SubItems.Add("Not handled")
End If
End If
End Sub
*********************************************
Ich bekomme jedoch immer nur TopLevelFilename und nicht den Wert.
Eigentlich will ich eben nur auf das Event der Baugruppe und nicht der Komponenten reagieren.
Ich hoffe jemand hilft mir auf die Sprünge
------------------
"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!
[Diese Nachricht wurde von Frank_Schalla am 10. Feb. 2012 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP