---

Hallo zusammen,

wie kann ich in einer Zeichnung ein Bauteil/Baugruppe über ein DrawingCurvSegment wählen und dieses im Browser selektieren?

Den ersten Teil hätte ich:

Public Sub SelSetTest3()

    Dim oDrwCrvSeg As Object
    Set oDrwCrvSeg = ThisApplication.ActiveDocument.SelectSet(1)

If Not oDrwCrvSeg Is Nothing Then

      Dim oDrwCrv As DrawingCurve
      Set oDrwCrv = oDrwCrvSeg.Parent
   
      Dim oEdge As Edge
      Set oEdge = oDrwCrv.ModelGeometry
         
      Dim oSrfBody As SurfaceBody
      Set oSrfBody = oEdge.Parent
   
      Dim oCompDef As ComponentDefinition
      Set oCompDef = oSrfBody.ComponentDefinition
   
      Dim oDoc As Document
      Set oDoc = oCompDef.Document
   
      MsgBox oDoc.FullFileName
   
      Dim oDrwView As DrawingView
      Set oDrwView = oDrwCrv.Parent

      MsgBox oDrwView.Name

    End If

End Sub

Wie kann ich jedoch das Teil im Browser selektieren?

Vielen Dank

Georg

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

---

Hallo

Das könnte vielleicht mit der GetBrowserNodeFromObject-Methode funktionieren.

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

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

---

Hallo Ralf,

ich habe verschiedene Beispiele gefunden:

http://adndevblog.typepad.com/manufacturing/2013/04/get-browsernode-of-an-occurrence.html

http://adndevblog.typepad.com/manufacturing/2014/10/hide-component-in-drawingview-using-controldefinition.html

http://adndevblog.typepad.com/manufacturing/2012/09/parse-browsernodes-for-a-specified-node-and-perform-userinterface-commands.html

Leider komme ich damit nicht weiter. Kannst Du mir da weiter helfen?

Vielen Dank

Georg

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

---

Hi

Warum willst du denn ein Bauteil/Baugruppe im Browser selektieren?

Was willst du machen, vielleicht braucht man ja gar nicht im Browser selektieren?

Gruß
Berno

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

---

Hallo Berno,

die Funktion macht es dem Anwender einfacher. Man sieht auf einen Blick wo die Baugruppe oder das entsprechende Teil verbaut ist.

Grüße

Georg

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

---

Du meinst

Rechte Maustaste "In Browser suchen?"

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

---

Im Prinzip genau diese Funktion - nur eben per VBA.

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

---

Hi

So ich hab was!
Ist das selbe wie rechte Maustaste "In Brauser suchen"

Der Code funktioniert allerdings nur wenn du vor Scriptaufruf auf Bauteil umgestellt hast.

Code:

---

  Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppFindInBrowserCtxCmd")
    Call oControlDef.Execute

---

Auf Bauteil umstellen kannst du mit

Code:

---

Set oControlDef = oCommandMgr.ControlDefinitions.Item("DrawingSelectPartCmd")

---

Wieder zurück auf Kante mit

Code:

---

Set oControlDef = oCommandMgr.ControlDefinitions.Item("DrawingSelectEdgeCmd")

---

Aber es funktioniert leider nicht wenn man im selben Script auf Bauteil umstellt

Gruß
Berno

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

---

Hallo Berno,

vielen Dank für den Ansatz. Nur leider kann ich damit das Bauteil nicht wählen. Gibt es hierfür eine Lösung?

Georg

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