Hallo zusammen,
gibt es einen Weg sich die benannte Ansicht (Modelview) einer Zeichenansicht per Api anzeigen zulassen?
Für Konfigurationen wäre es wie folgt:
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Debug.Print "File = " & swModel.GetPathName
' First drawing view is actually the first drawing sheet,
' so skip getting model name and configuration from
' the drawing sheet
Set swView = swDraw.GetFirstView
' Get first drawing view in first drawing sheet
Set swView = swView.GetNextView
Do While Not swView Is Nothing
Debug.Print " Drawing view = " + swView.Name
Debug.Print " Referenced model name = " & swView.GetReferencedModelName
Debug.Print " Referenced configuration name = " & swView.ReferencedConfiguration
Debug.Print " Referenced configuration persistent reference ID = " & swView.ReferencedConfigurationID
'Get next drawing view
Set swView = swView.GetNextView
Loop
End Sub
Ich würde mir gerne aber auch die benannte Ansicht anzeigen lassen!
[Diese Nachricht wurde von HoLu am 05. Mai. 2021 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP