Solidworks的VB二次开发VIP免费

SolidWorks二次开发基本知识SolidWorks提供了几百个API（ApplicationProgramInterface，应用程序接口），可以使用VB/VB/VC/Delphi等高级语言对SolidWorks进行二次开发，建立符合要求的、专用的SolidWorks功能模块VBA（VisualBasicforApplications）VBA（VisualBasicforApplications）是1993年由Microsoft推出的一种可以被多种应用程序共享的、针对应用程序内部可编程的、通用的可视化应用程序编程语言。VBA是一套完整的应用程序开发环境，它为用户和开发人员提供了一种应用程序间通用的应用程序语言，减少了学习时间和支持费用。在MicrosoftOffice中，所有的应用程序都可以使用VBA在SolidWorks中，VBA最常见的用途即是录制宏。几乎所有用键盘或菜单命令完成的动作均被宏记录下来，然后对不同的数据进行（或播放）同一批操作。用用VBVB开发开发SolidworksSolidworks的一般步骤的一般步骤SolidWorks的对象、方法很多，其中SldWorks对象有98种方法，ModelDoc对象有477种方法，通常，开发者先录制一段宏，然后将宏代码修改后复制到VB中去。用用VBVB开发开发SolidworksSolidworks的一般步骤的一般步骤宏是一系列命令的集合，相当于Dos的批处理文件，可以通过录制使用SolidWorks用户界面执行的操作，然后使用SolidWorks宏重新执行这些操作。用用VBVB开发开发SolidworksSolidworks的一般步骤的一般步骤打开宏录制打开宏录制1.在Solidworks中，应用纪录宏（【工具】→【宏操作】→【录制】停止宏保存于文件夹2.操作、停止并保存3.编辑宏4.执行宏操作用用VBVB开发开发SolidworksSolidworks的一般步骤的一般步骤将宏录制的代码照搬到VB，并不一定能够绘图，有时会出现错误，需进行修改。SolidWorks二次开发常用代码打开SolidWorks新文件SldWorks::NewPart：打开一个被自动命名的新零件SldWorks::NewDocment(模板名，图纸尺寸，用户纸宽，用户纸高)：创建一个具有模板名的新文件SldWorks::NewAssembly：创建一个被自动命名的装配体文件SldWorks::NewDrawing2（模板类型，模板名，图纸尺寸，纸宽，纸高…）：创建一个新的具有模板或用户图纸的工程图文件，文件名被自动命名。保存和退出文件ModelDoc::SaveAs(文件名，版本信息，选项，….)：用不同的名称保存文件ModelDoc::SaveAs2(文件名…)：用新名字保存文件SldWorks::ExitApp’退出SolidWorks保存在当前路径：App.path&“文件名”其他代码ModelDoc2::InsertSketch2:开始/结束草图绘制ModelDoc2::ClearSelection()：清除任何选择ModelDoc2.InsertKetchText(X坐标，Y坐标，Z坐标，文本，文本的对齐方式…):插入草图文本Part.FeatureExtrusion(拉伸方向，终止1，终止2，拉深深度….)例：Part.FeatureExtrusion1,0,1,0,0,0.02,0.02,0,0,0,0,0.017,0.017,0,0其他代码Mddeldoc::Featurecut4(单（双）向，反侧切除，方向1，终止1，终止2，切割深度1，切割深度2，拔模……):VB连接SolidworksDimswAppAsObjectSetswApp=CreateObject("SldWorks.Application")Swapp.visible(true)连接Solidworks并新建自动命名的零件模型文件PrivateSubCommand1_Click()DimswAppAsObjectDimnpartAsObjectSetswApp=CreateObject("SldWorks.Application")Swapp.visible(true)Setnpart=swApp.Newpart()EndSub连接Solidworks并新建自动命名的装配模型文件DimswAppAsObjectDimnassemblyAsObjectSetswApp=CreateObject("SldWorks.Application")Swapp.visible(true)Setnassembly=swApp.Newassembly()连接Solidworks并新建工程图文件DimswAppAsObjectDimpDrawingAsObjectSetswApp=CreateObject("SldWorks.Application")SetpDrawing=swApp.NewDrawing2(13,"""",0,0.2794,0.2159)新建文件例题：PrivateSubCommand1_Click()DimswAppAsObjectDimnpartAsObjectSetswApp=CreateObject("SldWorks.Application")Swapp.visible(true)Setnpart=swApp.Newpart()EndSubPrivateSubCommand2_Click()DimswAppAsObjectDimpDrawingAsObjectSetswApp=CreateObject("SldWorks.Application")SetpDrawing=swApp.NewDrawing2(13,"""",0,0.2794,0.2159)EndSubPrivateSubCommand3_Click()DimswAppAsOb...