index
{ width = 400 }
此VBA宏允许将SOLIDWORKS零件或装配体插入活动绘图或绘图模板的预定义视图中。
选择要插入模型的预定义绘图视图。如果未选择任何视图,则将填充所有预定义视图。
宏将显示文件浏览对话框以选择要插入的模型。
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Set swDraw = swApp.ActiveDoc
Dim filePath As String
filePath = swApp.GetOpenFileName("选择要插入预定义视图的模型", "", _
"SOLIDWORKS模型文件 (*.sldprt; *.sldasm)|*.sldprt;*.sldasm|所有文件 (*.*)|*.*|", 0, "", "")
If filePath <> "" Then
If False = swDraw.InsertModelInPredefinedView(filePath) Then
Err.Raise vbError, "", "无法将模型插入预定义视图"
End If
End If
End Sub