Hallo zusammen,
ich bin auf der Suche nach einem Weg wie ich über die Document Manager Api die Anzahl der sichtbaren Komponenten in einer Zeichenansicht auslesen kann. Leider komme ich da gerade nicht weiter.
Über die Solidworks Api ist es möglich und es ist mir auch bekannt. Ich suche aber nach einer Möglichkeit es über den Document Manager zu machen.
Bereits herzlichen Dank im Vorraus!
Solidwors Api Beispiel:
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swView As SldWorks.View
Dim swComp As SldWorks.Component2
Dim vComps As Variant
Dim boolstatus As Boolean
Dim itr As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
boolstatus = swModel.ActivateView("Drawing View1")
boolstatus = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) w
Set swView = swSelMgr.GetSelectedObject6(1, -1)
swModel.ClearSelection2 True
'Get all visible components in the Drawing View1
vComps = swView.GetVisibleComponents
' Print the number of visible components
Debug.Print "Number of components:"
Debug.Print " " & UBound(vComps)
' Iterate through the visible components and print each one's name
Debug.Print "Names of components:"
For itr = 0 To UBound(vComps)
Set swComp = vComps(itr)
Debug.Print " " & swComp.Name2
Next itr
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP