SolidWorks根据装配体生成工程图的宏程序

SolidWorks依据装配体生成工程图的宏程序(总8页)-CAL-FENGHAI.-(YICAI)-CompanyOne1-CAL-本页仅作为文档封面，使用请直接删除10在网上看到的：在WIN7SW2014下现在不能用，看看改了能用不烦请懂的人教导下，并将文件上传到群里来：SolidWorks下面代码是工程图助手中的“生成工程图”模块内容。它依据我们的图纸存solidworks面对一个问题，我们在试图使用VBA来改善工作的时候，可以参考下面的思路来进展，固然，这也只是个人的一些阅历之说，并不是最好的工作方式：首先我们需要了解实际工作状况，觉察问题所在：工艺人员在试图提高solidworks工作效率的时候提到了使用SolidWorksTaskScheduler来自动出图纸的方法〔具体方法就不争论了〕。大家经过一段时间的使用后觉察，使用SolidWorksTaskScheduler有肯定的局限性，需要问题在于，它将每个solidworks文件—包括零件、装配体—都生成了一个工程图文件。然而这样得。然后，我们要考虑可行性：思考了SolidWorksTaskScheduler的实现，觉察使用VBA在技术方面可以实现此类功能，并且有肯定的规律可以遵守而不需要太多的人为推断就可以到达要求。这里插一句，在使用SolidWorksTaskScheduler时我觉察了一个选项：备份任务文件，而这个任务文件上所记录的正VBA接下来，需要现场调研确定需求目标：在了解了solidworks使用相应的标准和工艺员在实际工作中的要求后我们对问题目标有了一个比较明确的概〔solidworks〕同级的名目下的“工程图”文件夹里。描述其大致方法：后缀名“.sldasm”来得到一个名目下全部的装配体；也可以通过遍历一个产品总装配体的组件来得到每一个子装配体模型。实际的编码中我们选择了后者，由于它虽然给编写代码构造带来了简单度，但是正确性和稳定性都要好过前者。装配体的组件是一个树型构造，使用递归式是比较敏捷的方法，前面章节也已经介绍过。2、生成工程图并插入零件的模型三视图：SolidWorksTaskScheduler使用入图纸时，就不能够继承图纸模版的预定义试图了。所以需要使用CreateDrawViewFromModelView2和CreateUnfoldedViewAt3来替代。main、traverseasm、createdraw。它们的定义和完成的作用如下：traverseasmTraverseasm(filepathasstring):此过程承受一个装配体的存储路径字符串参createdrawCreatedraw(filepathasstring):此过程承受一个装配体的存储路径字符串参数，生成此装配体的工程图。”/************************************************************”drawcreator”main:” getopenedasmmodelinfomation:” filepathname” drawpathname” makedirpathisdrawpathname” calltraverseasmwithargumentfilepathname””traverseasm:” foritselfcallcreatedrawwithargumentitself” traversetheasmmodelcomponent” foreachsubasmmodel:” ”createdraw:” createadrawdocwithgivenDrawTemplate” inserteachsubpartmodelcomponentasheet””************************************************************/OptionExplicit”定义局部：DimSwApp AsDimDrawPathName AsStringDimFile AsStringDimnErrors AsLongDimnWarnings AsLongDimStatofanNo AsBooleanDimPosAsInteger”/******************”submaingoeshere:”*******************SubMainOnErrorResumeNextDimActModelAsDimYesOrNoAsVbMsgBoxResultSetSwApp=CreateObject(““)SetActModel=IfActModelIsNothingThenMsgBoxEndIf”得到装配体文件路径File=”得到工程图保存路径DrawPathName=Left(File,InStrRev(File,“\“)-1)DrawPathNameLeft(DrawPathNameInStrRev(DrawPathName“\“))DrawPathNameDrawPathName\“”创立文件夹MkDir(DrawPathName)File”shouldisetallobjectnothingSetActModel=NothingSetSwApp=NothingYesOrNoMsgBox(“需要自动在零件工程图中插入模型工程么“,vbOKCancel,“提示“)IfYesOrNo=vbOKThenStatofanNo=TrueElseStatofanNo=FalseEndIf=False”调用函数遍历装配体组件TraverseAsmFile=TrueEndSub”/************************”subtraverseasmgoeshere:””*************************SubTraverseAsm(FilePathAsString”TraverseAsm遍历ASMDimSwModel2AsDimSwConf2AsDimSwRootComp2AsDimSwChildComp2AsDimvChildComp2AsVariantDimFileType2AsStringDimnAsLongSetSwApp=CreateObject(““)IfSwAppIsNothingThenMsgBoxSWExitSubEndIfSetSwModel2=(FilePath,2,0,““,nErrors,nWarnings)”fileopengoodIfSwModel2IsNothingThenMsgBoxExitSubEndIfSetSwConf2=”needtochangeSwModeltotraverseSetSwRootComp2=vChildComp2=Forn=0ToUBound(vChildComp2)SetSwChildComp2=vChildComp2(n)FileType2=UCase(Right,6))IfFileType2=“SLDASM“ThenTraverseAsmEndIfNextIfNotMid12ThenCreateDrawEndIfEndSub”subcreatedrawgoeshere:SubCreateDraw(FilePathAsString)DimSwModel AsDimSwSave AsDimSwDraw AsDimSwChildCompAsDimSwChildCmp2AsDimSwConf AsDimSwRootCompAsDimCurSheet AsDimSwView AsDimvChildCompAsVariantAsStringDimSpadStr AsStringDimAsmFile AsStringDimDrawFiel AsStringDimDrawDir AsStringDimDrawTemp AsStringDimDeString AsStringDimtmpString AsStringDimsTmpStr AsStringDimFileType AsStringDimSheetName AsStringDimViewName AsStringDimsFileName AsStringDimFile AsStringDimi AsLongDimisOk AsBooleanDimwGood AsIntegerAsmFile=FilePathDrawDir=DrawPathName”foreasytouseispecifiedatemplatefileDrawTemp=&“\lang\chinese-simplified\Tutorial\“SheetArr=“ardenmakeastupidwaybutrunsok“SetSwApp=CreateObject(““)IfSwAppIsNothingThenMsgBoxSWExitSubEndIfSetSwModel=(AsmFile,2,0,““,nErrors,nWarnings)IfSwModelIsNothingThenMsgBoxExitSubEndIfdrawdocDrawTempSetSwDraw=(DrawTemp,2,,IfSwDrawIsNothingThenMsgBoxExitSubEndIfSetCurSheet=isOk(AsmFile)IfisOk=FalseThenMsgBoxEndIfDeString=tmpString=Left(DeString,InStrRev(DeString,“.“)-1)IfInStrRev(tmpString,““,-1,vbTextCompare)<=0ThenDeString=tmpString”notice:needtowritemoretomodifyitElseDeString=Replace(tmpString,Left(tmpString,InStrRev(tmpString,““)-1),““)EndIf”sheet〔不包括物料编码〕+三视图(DeStringSetSwView=Truedoesitworksright””“thesheetnameis&destring+“三视图“”savedrawfilebutdonotopenitwGood=(DrawDir+tmpString+“.SLDDRW“,0,False,True)”””“saveasmdrawfilestate:“&wgood”””DrawDir&“\“&tmpstring&“.SLDDRW“IfwGood=0ThenMsgBoxEndIf”>>>”怎样才能不掩盖保存”thentraverseallpartfilenextlevelinsertsheetonthisdrawdraw”要遍历装配体：partTruenErrorsSetSwConf=”needtochangeSwModeltotraverse”””“activeconfigurationis:“&SetSwRootComp=”””“rootcompoentis:“&vChildComp=”beginloop-”Fori=0ToUBound(vChildComp)”””“enterloop0to“&UBound(vChildComp)SetSwChildComp=vChildComp(i)”-Ifi<UBound(vChildComp)ThenSetSwChildCmp2=vChildComp(i+1)ElseSetSwChildCmp2=vChildComp(0)EndIf”””“subcomp“&i&“nameis:“&FileType=UCase(Right,6))IfFileType“SLDPRTThen IfSwDrawIsNothingThen”””“SwDrawisnothing“Else”””“SwDrawhas:“&&“sheets“EndIf””-1)””“2:“&stmpstrsTmpStr=Right(sTmpStr,Len(sTmpStr)-InStrRev(sTmpStr,“\“))””“3:“&stmpstrIfInStr(sTmpStr,““)<=0ThenSheetName=LTrim(sTmpStr)ElseSheetName=LTrim(Replace(sTmpStr,Left(sTmpStr,InStrRev(sTmpStr,““)-1),““))EndIflddrt“,2,2,““SheetArrSheetArr&SheetName“add&SheetArrSheetNameSetCurSheet==True”DrawTemp”””“partfullnameis:“&”00TrueViewName,“DRAWINGVIEW“,0,0,0,False,0,Nothing,0SetSwView(0.0.00)”斜视True”viewname”,“DRAWINGVIEW“,0,0,0,False,0,Nothing,0IfNotSwViewIsNot