Solidworks的VB二次开发.ppt

SolidWorks二次开发基本知识 SolidWorks提供了几百个API ApplicationProgramInterface 应用程序接口 可以使用VB VB VC Delphi等高级语言对SolidWorks进行二次开发 建立符合要求的 专用的SolidWorks功能模块 VBA VisualBasicforApplications VBA VisualBasicforApplications 是1993年由Microsoft推出的一种可以被多种应用程序共享的 针对应用程序内部可编程的 通用的可视化应用程序编程语言 VBA是一套完整的应用程序开发环境 它为用户和开发人员提供了一种应用程序间通用的应用程序语言 减少了学习时间和支持费用 在MicrosoftOffice中 所有的应用程序都可以使用VBA在SolidWorks中 VBA最常见的用途即是录制宏 几乎所有用键盘或菜单命令完成的动作均被宏记录下来 然后对不同的数据进行 或播放 同一批操作 用VB开发Solidworks的一般步骤 SolidWorks的对象 方法很多 其中SldWorks对象有98种方法 ModelDoc对象有477种方法 通常 开发者先录制一段宏 然后将宏代码修改后复制到VB中去 用VB开发Solidworks的一般步骤 宏是一系列命令的集合 相当于Dos的批处理文件 可以通过录制使用SolidWorks用户界面执行的操作 然后使用SolidWorks宏重新执行这些操作 用VB开发Solidworks的一般步骤 打开宏录制 1 在Solidworks中 应用纪录宏 工具 宏操作 录制 停止宏 保存于文件夹 2 操作 停止并保存 3 编辑宏 VBA套零件的代码 4 执行宏操作 用VB开发Solidworks的一般步骤 将宏录制的代码照搬到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连接Solidworks DimswAppAsObjectSetswApp 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 DimswAppAsObjectDimnassemblyAsObjectSetswApp CreateObject SldWorks Application Setnassembly swApp Newassembly EndSub 编程举例 代码 PrivateSubCommand1 Click DimswAppAsObjectDimPartAsObjectSetswApp CreateObject SldWorks Application swApp Visible True SetPart swApp Newpart SetPart swApp ActiveDocPart InsertSketchPart SketchRectangle0 0 0 0 1 0 1 0 1Part FeatureExtrusion1 0 1 0 0 0 02 0 02 0 0 0 0 0 01745329251994 0 01745329251994 0 0 代码 代码 Part SelectByID 前视 PLANE 0 0 0Part InsertSketchPart CreateCircle0 05 0 05 0 0 07 0 07 0Part ShowNamedView2 等轴测 7Part FeatureCut41 0 0 0 0 0 02 0 02 0 0 0 0 0 01745329251994 0 01745329251994 0 0 1 0Part ViewZoomtofit2EndSub 抽壳 Modeldoc2 insertfeatureshelladdthickness PrivateSubCommand1 Click 在前视面 以左下角为原点生成一个100 x100 x20的长方体 对此长方体进行多厚度抽壳DimswAppAsObjectDimPartAsObjectSetswApp CreateObject SldWorks Application SetPart swApp ActiveDocswApp Visible True SetPart swApp newpart Part InsertSketchPart SketchRectangle0 0 0 0 1 0 1 0 1Part FeatureExtrusion1 0 1 0 0 0 02 0 02 0 0 0 0 0 01745329251994 0 01745329251994 0 0 Part SelectByMark 基体 拉伸 BODYFEATURE 0 0 0 0Part AndSelectByMark FACE 0 03 0 03 0 1 选择开放面 标号是1 选择两个有不等厚度的非开放面 标号是2Part AndSelectByMark FACE 0 09999999999991 0 04121560801519 0 01272845167375 2Part AndSelectByMark FACE 0 05376383570518 0 09999999999985 0 01066374420634 2 为每个面设置厚度Part InsertFeatureShellAddThickness0 005Part InsertFeatureShellAddThickness0 02 生成抽壳特征Part InsertFeatureShell0 001 0Part ShowNamedView2 Isometric 7Part ViewZoomtofit2EndSub 参数化设计 打开VB 建立工程并设计相应的窗体 编写代码 调用SolidWorksDimswAppAsObjectDimnpartAsObject 定义OLE对象变量 分别对应SldWorks和Part对象SetswApp CreateObject SldWorks Application 创建SldWorks对象 SetPart swApp ActivateDoc Part1 在SolidWorks中创建一个新零件文件 零件名被自动命名Swapp visible true 从VisualBasic连接至solidworks 并参数化绘图 OptionExplicitDimswAppAsObjectDimPartAsObjectDimD1AsDoubleDimD2AsDoublePrivateSubCommand1 Click SetswApp CreateObject SldWorks Application SetPart swApp ActivateDoc Part1 当前文件名Part Parameter D1 草图1