---

Hallo,
mein Kollege hat das Problem:
Wie bekomme ich per API aus einer Baugruppen-Zeichnung den Dateinamen oder eine Dateieigenschaft des angewählten (angeklickten) Teiles ausgelesen?

------------------
Grüße aus dem Allgäu
Conrad

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

---

Makro von hier -> open part/assembly of selected from drawing

Code:

---

Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim SelMgr As SldWorks.SelectionMgr
Dim MyDwgComp As SldWorks.DrawingComponent
Dim MyComp As SldWorks.Component2
Dim Part2Open As SldWorks.ModelDoc2
Dim myView As SldWorks.View
Dim modRefByView As SldWorks.ModelDoc2
Dim dummy As Long
Sub main()
'On Error GoTo ERROROUT
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
If Part.GetType = swDocNONE Or Part.GetType = swDocPART Then
    MsgBox "Open Assembly or Drawing for this function"
    Exit Sub
End If
If Part.GetType = swDocDRAWING Then
    If SelMgr.GetSelectedObjectType2(1) = swSelDRAWINGVIEWS Then
        Set myView = SelMgr.GetSelectedObject5(1)
        Set modRefByView = myView.ReferencedDocument
        If modRefByView.GetType = swDocPART Then
            Set Part2Open = swApp.ActivateDoc2(modRefByView.GetPathName, False, dummy)
        ElseIf modRefByView.GetType = swDocASSEMBLY Then
            If SelMgr.GetSelectedObjectCount = 2 Then
                Set MyDwgComp = SelMgr.GetSelectedObjectsComponent2(2)
                Set MyComp = MyDwgComp.Component
                Set Part2Open = swApp.ActivateDoc2(MyComp.GetPathName, False, dummy)
            End If
        End If
    ElseIf SelMgr.GetSelectedObjectType3(1, -1) = swSelCOMPONENTS Then
        Set MyDwgComp = SelMgr.GetSelectedObject6(1, -1)
        Set MyComp = MyDwgComp.Component
        Set Part2Open = swApp.ActivateDoc2(MyComp.GetPathName, False, dummy)
    End If
Else
    Set MyComp = SelMgr.GetSelectedObjectsComponent2(1)
    Part.ClearSelection2 True
    MyComp.Select2 False, 1
    Part.OpenCompFile
    swApp.ActiveDoc.Visible = True
End If
ERROROUT:
End Sub

---

------------------
21 ist nur die halbe Antwort.

[Diese Nachricht wurde von HenryV am 16. Jun. 2021 editiert.]

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

---

Super! Danke!
hat funktioniert!

------------------
Grüße aus dem Allgäu
Conrad

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