有没有大佬能修改下这个宏的，提供宏代码

zxt0824 · 发表于 2023-11-2 13:53:05

此代码也是在论坛上找到的，感谢论坛及作者
此宏是在工程图里输出“平板形式” ，哪位大佬能改下，变成输出为 “三视图”+“平板形式”

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDrawing As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim retval As String
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
retval = swApp.GetUserPreferenceStringValue(swDefaultTemplateDrawing)

Set swModel = swApp.NewDocument(retval, 0, 0, 0)
Set swDrawing = swModel

'Set swView = swDrawing.CreateDrawViewFromModelView3(swPart.GetPathName, "平板型式", 0.1, 0.14, 0)

boolstatus = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)

boolstatus = swDrawing.ActivateView("Drawing View1")
swModel.ClearSelection2 True

End Sub