---

Hallo Forum,

habe ein kleines Problem und zwar, ein vorhandenes Makro habe ich in ein Addin umgeschrieben und es funktioniert auch bis auf eine Kleinigkeit, das die Form immer im Vordergrund ist. Ich möchte aber während des Ausführens z.B. Messen können, dies geht jedoch nicht.

Unter VBA habe ich die Eigenschaft „ShowModal“ der Form auf „false“ gesetzt und das funktionierte.

Unter VB.net müsste das die Eigenschaft „Modal“ sein, dies Funktioniert leider nicht.

Hat jemand eine Idee?

Gruß

Andreas

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

---

Hallo, probier mal die TopMost Eigenschaft der Form auf True zu setzen.

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

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,

hat leider auch nicht funktioniert.

Gruß

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

---

Poste mal ein wenig Code. Wie rufst du deine Form auf, normal oder als Dialog?

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

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,

ich muss vielleicht vor ab sagen das ich mir vb selber beigebracht habe, bzw. ich bin immer noch dabei (zur Zeit fast keine Zeit dafür), also hier ist der Codeschnipsel:

'....
    Private Sub Run_Bohrtabelle_OnExecute(ByVal contex As Inventor.NameValueMap) Handles m_Bohrtabelle_MaskeDef.OnExecute

        Dim m_Bohrtabelle As frm_Bohrtabelle
        m_Bohrtabelle = New frm_Bohrtabelle
        m_Bohrtabelle.TopMost = True
        m_Bohrtabelle.ShowDialog()

    End Sub
'...

reicht das?

Gruß
Andres

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

---

Zitat:

---

Original erstellt von Andreas01:
reicht das?

---

Könnte sein. Probier mal statt ShowDialog nur Show zu benutzen (TopMost auf True setzen).

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

FX64 Software Solutions - Inventor Tools

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

---

Danke, Danke, Danke es hat funktioniert.

ich hätte da noch eine Frage, vielleicht kannst Du mir da auch weiter Helfen.

Problemstellung:
ich habe manchmal zwei oder mehr Inventor Sitzungen offen, (sollte man zwar nicht machen aber es geht manchmal nicht anders). Wenn ich jetzt ein Makro oder ein Addin ausführe was ich selbst Programmiert habe bezieht sich das Makro immer auf die erste Instanz von Inventor, wie kann ich das Ändern.
Ich müsste wahrscheinlich beim aufruf des Makros dem Makro mitteilen mit welcher Inventor Instanz es "kommunizieren" soll. Nur wie geht so was?

Ich hoffe Du weißt was ich meine.

Gruß
Andreas

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

---

Ich weiß jetzt nicht wie dein AddIn aufgebaut ist, aber normalerweise wird das ApplicationObject (Inventor Instanz) aus dem addInSiteObject geholt, und damit ist es nur für diese Instanz gültig. Ich habe es gerade getestet und konnte dein Problem nicht nachvollziehen.

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

FX64 Software Solutions - Inventor Tools

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

---

TEST.zip

So jetzt wird's für mich kompliziert. Ich habe ein vorhandenes AddIn für mich umgeschrieben und es läuft bis auf die vorhin geschilderte Problematik. Ich stelle den Code einfach rein, wenn Du Lust hast kannst Du da mal reinschauen, ich würde Dir gerne die Frage beantworten kann ich leider nicht.

Gruß

Andreas 

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

---

Ja, wie vermutet wird die Inventor Instanz im AddIn geholt. Du holst dir in der Form aber immer die laufende Instanz mit:

Code:

---

    Dim oInventorApp As Object = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")

---

und, da wirst du immer die erste von mehreren Instanzen bekommen. Du sollst dein InventorObject aus dem AddIn (m_InventorApp = AddInSiteObject.Application) überall benutzen.

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

FX64 Software Solutions - Inventor Tools

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

---

Danke Igor,

ich weiß was Du meinst, muss es nur noch Codetechnisch richtig machen. Ich werde es am Wochenende versuchen.

Wünsche Dir ein schönes Wochenende.

Gruß
Andreas

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

---

Ich finde deine Einstellung gut, nicht um Code zu betteln, sondern es selbst zu versuchen. Daher auch ein paar Stichworte:

Klasse
Konstruktor
Konstruktor überladen
Argumente

Als Ansporn: Wenn du es verstanden hast, kannst du dein Problem mit paar Zeilen lösen.

Schönes Wochenende

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

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,

also ich habe folgendes versucht:

In der Form habe ich folgende Prozedur eingefügt:

    Public Sub New(ByVal objInventorApp As Object)
        oInventorApp = objInventorApp
        MsgBox(oInventorApp.ActiveDocument.DisplayName.ToString)
    End Sub

das Funktioniert schon, d.h. wenn ich mehrere Instanzen von Inventor offen habe bekomme ich hier als Beispiel den richtigen Namen angezeigt. Jedoch wir dir Form nicht mehr dargestellt, bzw. es wird eine leere Form dargestellt ohne den restlichen Inhalt.

Folgendermaßen rufe ich die Form auf:

    Private Sub Run_Bohrtabelle_OnExecute(ByVal contex As Inventor.NameValueMap) Handles m_Bohrtabelle_MaskeDef.OnExecute

        Dim m_Bohrtabelle As frm_Bohrtabelle
        m_Bohrtabelle = New frm_Bohrtabelle(m_InventorApp)
        m_Bohrtabelle.TopMost = True
        m_Bohrtabelle.Show()

    End Sub

weiter komme ich leider nicht.

Gruß

Andreas

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

---

Hi Andreas,

ja, ist schon mal gut. Was dir noch fehlt ist der Befehl um die Form zu zeichnen (InitializeComponent()). Probier mal das hier:

Code:

---

Public Sub New(ByVal objInventorApp As Object)
  ' This call is required by the Windows Form Designer.
  InitializeComponent()

  oInventorApp = objInventorApp
  MsgBox(oInventorApp.ActiveDocument.DisplayName.ToString)
End Sub      

---

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

FX64 Software Solutions - Inventor Tools

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

---

Danke Igor,

Du hast mir echt weitergeholfen.

Gruß

Andreas

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