' ******************************************************************************
' autodraw.swp - By PYCZT, Copyright 2016-2018 writed on 06/28/16
' Notes: Templatesfile must be in same directory as macro file 注意:工程图6+4.DRWDOT模板文件与宏文件同目录
'条件:当前开启零件或装配图
'结果:自动建立带有6个标准视图和4个轴测视图的工程图文件,并保存和另存为同名加后缀6+4的DWG文件
'如在模型图中更新前视视图,则得到理想的主视图,得到理想的DWG
'******************************************************************************
Dim swApp As Object
Dim swModel As Object
Dim swDraw As Object
Dim swModelName As String
Dim Templatesfile As String
Dim boolstatus As Boolean
Dim swView As Object
Dim vOutline() As Variant
Dim vPos() As Variant
Dim nNumView As Long
Dim box(3) As Single
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModelName = swModel.GetPathName '读取当前SW模型文档名(含路径)