---

Guten Tag
Nach Jahren der Enthaltsamkeit versuche ich mich wieder in der VBA-Programmierung.

Als erstes würde ich gerne im Modellbaum (das ist doch die Auflistung der in einer Assembly enthaltenen Occurences) nach dem Displaynamen ein gesuchtes Objekt suchen und markieren.
Suchen in den Occurences geht ja, rekursiv durchlaufen, aber wie kann ich dann im Inventor das gefundene Element markieren?
Ich finde kein "Select", "Activate" oder sonst etwas Hilfreiches.....

Gruss
Roland

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

---

evtl. hilfreich, zu finden in der Hilfe: Navigation between browser and data API Sample

das mit dem Markieren: muss das im Modellbrowser sein?
ThisApplication.ActiveDocument.SelectSet.Select (Object)
markiert das Object bzw. fügt es der Auswahl hinzu (falls schon was markiert ist). Siehe ggf. Hilfe zum SelectSet.

------------------
Gruß KraBBy

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

---

Danke für den Hinweis.
Ich habe es so gelöst.
Aber - ?? bin ich im falschen Forum ??
Kann ich das verschieben?

Code:

---

        //  Selektiert alle per Name übergebenen Elemente
        public void SelectElement(Application InvApp, string DisplayName = "", string FullFileName = "")
        {
            if (InvApp.ActiveDocumentType == DocumentTypeEnum.kAssemblyDocumentObject)
            {

                AssemblyDocument AssDoc = (Inventor.AssemblyDocument)InvApp.ActiveDocument;
                AssDoc.SelectSet.Clear();

                foreach (ComponentOccurrence Occ in AssDoc.ComponentDefinition.Occurrences)
                {
                    if (Occ.ReferencedDocumentDescriptor.FullDocumentName == FullFileName | | Occ.ReferencedDocumentDescriptor.DisplayName == DisplayName)
                    {
                        AssDoc.SelectSet.Select(Occ);
                    }

                    if (Occ.DefinitionDocumentType == DocumentTypeEnum.kAssemblyDocumentObject)
                    {
                        SelectElementSub(InvApp, ref AssDoc, Occ, DisplayName, FullFileName);
                    }

                }
            }
    }

        // Unterfunktion zum Markieren von Elementen im Browersbaum
        public void SelectElementSub(Inventor.Application InvApp, ref AssemblyDocument AssDoc,
            ComponentOccurrence Cocc, string DisplayName="", string FullFileName = "")
        {

            foreach (ComponentOccurrence Occ in Cocc.SubOccurrences)
            {
                if (Occ.ReferencedDocumentDescriptor.FullDocumentName == FullFileName | | Occ.ReferencedDocumentDescriptor.DisplayName == DisplayName)
                {
                    AssDoc.SelectSet.Select(Occ);
                }
                if (Occ.DefinitionDocumentType == DocumentTypeEnum.kAssemblyDocumentObject)
                {
                    SelectElementSub(InvApp, ref AssDoc, Occ, DisplayName, FullFileName);
                }
            }
        }

---

Nun kommt aber die nächste Frage:
Im Inventor > Modellbaum kann ich ein markiertes Element im Zusammenbau suchen [In Fenster suchen].
Weiss jemand, wie ich das per Code ausführen kann?

Gruss Roland

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

---

Schaue dir mal den Commandmanager Execute an 

------------------
************************************
 

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

---

Guten Morgen

Zitat:

---

Original erstellt von Frank_Schalla:
Schaue dir mal den Commandmanager Execute an  

---

Guten Morgen
Da finde ich keine Lösung für mich, um das Element, welches im SelectSet steht, Zoomen zu können.

Es geht mir um die Umsetzung des Kontextmenübefehls "In Fenster suchen", wenn ich ein Element im Modelbaum markiert habe.
Oder sehe ich wieder den Wald vor lauter Bäumen nicht?

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

---

Hallo

Ich denke es war gemeint:

Code:

---

ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomSelectCmd").Execute

---

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

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

---

Ok erst mit dem Select den gewünschten Eintrag wählen dann

Run_CMD ("AppZoomSelectCmd")

Function Run_CMD(ByVal cmd As String) As Boolean
    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager

    ' Get control definition for the line command.
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item(cmd)
    ' Execute the command.
    Call oControlDef.Execute
End Function

------------------
************************************
 

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

---

Vielen Dank, es funktioniert.

In C# habe ich folgende Syntax eingesetzt:

Code:

---

//  Das Element, welches gezoomt werde soll, ist dem SelectSet vorgängig zugeilt worden.
//  InvApp ist die aktuell aktive Inventor Applikation, welche der Funktion übergeben wird.

  ControlDefinition ControlDef = InvApp.CommandManager.ControlDefinitions["AppZoomSelectCmd"];
  ControlDef.Execute();

---

Somit wird auf das Element gezoomt, wobei es je nach Ansicht natürlich hinter irgend so einem Blech verborgen bleibt.
Aber das Ziel ist erfüllt.
Danke euch.
Gruss Roland

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

---

warum nicht vorher ein
"AssemblyIsolateCmd"

Dann kann man es auch schön sehen 

------------------
************************************
 

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