SolidWorks根据装配体生成工程图的宏程序讲诉.docVIP

在网上看到的：在WIN7 SW2014下现在不能用，看看改了能用不？烦请懂的人指点下，并将文件上传到群里来： SolidWorks 生成图纸CreateDrawViewFromModelView2和CreateUnfoldedViewAt3来替代。 一切准备完毕后就可以设计程序框架进行编码了：这里定义了三个过程，main、traverseasm、createdraw。它们的定义和完成的作用如下： Main（）：模块主函数没有参数和返回值，它得到当前打开装配体的路径、设置“工程图文件夹路径”、运行traverseasm过程。 Traverseasm(filepath as string):此过程接受一个装配体的存储路径字符串参数，完成装配体的递归遍历工作，得到每一个装配体，并让每一个装配体都作为参数运行createdraw过程。 Createdraw(filepath as string): 此过程接受一个装配体的存储路径字符串参数，生成此装配体的工程图。 ?? /************************************************************ drawcreator ： 根据装配体生成工程图 main: get opened asm model infomation: filepathname drawpathname make dir path is drawpathname call traverseasm with argument filepathname traverseasm: for itself call createdraw with argument itself traverse the asm model component for each sub asm model: call traverseasm createdraw: create a drawdoc with given DrawTemplate insert each sub part model component a sheet ************************************************************/ Option Explicit 定义部分： Dim SwApp As SldWorks.SldWorks Dim DrawPathName As String Dim File As String Dim nErrors As Long Dim nWarnings As Long Dim StatofanNo As Boolean Dim Pos As Integer /****************** sub main goes here: ******************* Sub Main() On Error Resume Next Dim ActModel As SldWorks.ModelDoc2 Dim YesOrNo As VbMsgBoxResult Set SwApp = CreateObject(SldWorks.Application) Set ActModel = SwApp.ActiveDoc If ActModel Is Nothing Then MsgBox 请先打开装配体 End If 得到装配体文件路径 File = ActModel.GetPathName 得到工程图保存路径 DrawPathName = Left(File, InStrRev(File, \) - 1) DrawPathName = Left(DrawPathName, InStrRev(DrawPathName, \)) DrawPathName = DrawPathName + 工程图\ 创建文件夹 MkDir (DrawPathName) 调试信息 : Debug.Print DrawPathName Debug.Print File should i set all object nothing ? Set ActModel = Nothing Set SwApp = Nothing YesOrNo = MsgBox(需要自动在零件工程图中插入模