solidworks的vb二次开发

《solidworks的vb二次开发》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、SolidWorks二次开发基本知识SolidWorks提供了几百个API（ApplicationProgramInterface，应用程序接口），可以使用VB/VB/VC/Delphi等高级语言对SolidWorks进行二次开发，建立符合要求的、专用的SolidWorks功能模块VBA（VisualBasicforApplications）VBA（VisualBasicforApplications）是1993年由Microsoft推出的一种可以被多种应用程序共享的、针对应用程序内部可编程的、通用的可视化应用

2、程序编程语言。VBA是一套完整的应用程序开发环境，它为用户和开发人员提供了一种应用程序间通用的应用程序语言，减少了学习时间和支持费用。在MicrosoftOffice中，所有的应用程序都可以使用VBA在SolidWorks中，VBA最常见的用途即是录制宏。几乎所有用键盘或菜单命令完成的动作均被宏记录下来，然后对不同的数据进行（或播放）同一批操作。用VB开发Solidworks的一般步骤SolidWorks的对象、方法很多，其中SldWorks对象有98种方法，ModelDoc对象有477种方法，通常，开发者先录

3、制一段宏，然后将宏代码修改后复制到VB中去。用VB开发Solidworks的一般步骤宏是一系列命令的集合，相当于Dos的批处理文件，可以通过录制使用SolidWorks用户界面执行的操作，然后使用SolidWorks宏重新执行这些操作。用VB开发Solidworks的一般步骤打开宏录制1.在Solidworks中，应用纪录宏（【工具】→【宏操作】→【录制】停止宏保存于文件夹2.操作、停止并保存3.编辑宏VBA套零件的代码4.执行宏操作用VB开发Solidworks的一般步骤将宏录制的代码照搬到VB，并不一定能

4、够绘图，有时会出现错误，需进行修改。SolidWorks二次开发常用代码打开SolidWorks新文件SldWorks::NewPart：打开一个被自动命名的新零件SldWorks::NewDocment(模板名，图纸尺寸，用户纸宽，用户纸高)：创建一个具有模板名的新文件SldWorks::NewAssembly：创建一个被自动命名的装配体文件SldWorks::NewDrawing2（模板类型，模板名，图纸尺寸，纸宽，纸高…）：创建一个新的具有模板或用户图纸的工程图文件，文件名被自动命名。保存和退出文件Mod

5、elDoc::SaveAs(文件名，版本信息，选项，….)：用不同的名称保存文件ModelDoc::SaveAs2(文件名…)：用新名字保存文件SldWorks::ExitApp’退出SolidWorks保存在当前路径：App.path&“文件名”其他代码ModelDoc2::InsertSketch2:开始/结束草图绘制ModelDoc2::ClearSelection()：清除任何选择ModelDoc2.InsertKetchText(X坐标，Y坐标，Z坐标，文本，文本的对齐方式…):插入草图文本Part.

6、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

7、(true)连接Solidworks并新建自动命名的零件模型文件PrivateSubCommand1_Click()DimswAppAsObjectDimnpartAsObjectSetswApp=CreateObject("SldWorks.Application")Swapp.visible(true)Setnpart=swApp.Newpart()EndSub连接Solidworks并新建自动命名的装配模型文件DimswAppAsObjectDimnassemblyAsObjectSetswApp=Cre

8、ateObject("SldWorks.Application")Swapp.visible(true)Setnassembly=swApp.Newassembly()连接Solidworks并新建工程图文件DimswAppAsObjectDimpDrawingAsObjectSetswApp=CreateObject("SldWorks.Application")SetpDrawin