VB 对 solidworks 进行二次开发本次的开发均使用简单圆柱为例进行 solidworks 二次开发方法一：借助 API 绘图函数1 . 使用宏录制圆柱的建模过程，录制代码如下：2 . 在 VB 程序开发环境中建立标准 EXE 文件，并且引用 solidworks 类型库，其引入步骤如下：单击菜单栏中【工程】【引用】命令，选择“SolidWorks exposed Type Libraries For add-inUse”(SolidWorks 插件库文件)、“SolidWorks 2 007 Type Libray”（SolidWorks 库文件）和“SolidWorks Consant Type library”（SolidWorks 常数库）3 . 在 VB 开发环境中添加 2 个 lable 控件，2 个 textbox 控件，2 个 commandbutton 控件，并将 lable 控件分别命名为圆柱直径，圆柱长度，将 commandbutton 控件分别命名为连接 solidworks，开始绘制。程序界面如下：4 . 代码编写A．在代码编写窗口，通用区定义变量，代码如下：Dim swapp As ObjectDim part As ObjectDim boolstatus As Boolean'定义接口B． 双击第一个 commandbutton 控件，并且写入如下代码：Set swapp = CreateObject("SldWorks.Application")Set part = swapp.NewPart()swapp.Visible = True'获取 solidworks 软件接口并新建一个零件文件（至此，就可以使用 VB 启动 solidworks）C． 双击第二个 commandbutton 控件，并把 solidworks 录制的宏文件的相关代码复制到VB 的第二个 commandbutton 控件 Click 的事件中，并且对代码进行修改，修改后的代码如下：boolstatus = part.Extension.SelectByID2("前视", "PLANE", 0, 0, 0, False, 0,Nothing, 0)part.SketchManager.InsertSketch Truepart.ClearSelection2 TrueDim skSegment As ObjectSet skSegment = part.SketchManager.CreateCircle(0#, 0#, 0#,Val(Text1.Text) / 2000, 0, 0#)part.ShowNamedView2 "*上下二等角轴测", 8part.ClearSelection2 Trueboolstatus = part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0,0, False, 0, Nothing, 0)Dim myFeature As ObjectSet myFeature = part.FeatureManager.FeatureExtrusion2(True, False,False, 0, 0, Val(Text2.Text) / 1000, 0, False, False, False, False, 0, 0, False, False, False,False, True, True, True, 0, 0, False)part.SelectionManager....
