VB对solidworks进行二次开发入门2种方式.docVIP

VB对solidworks进行二次开发 本次的开发均使用简单圆柱为例进行solidworks二次开发 方法一：借助API绘图函数 使用宏录制圆柱的建模过程，录制代码如下： 在VB程序开发环境中建立标准EXE文件，并且引用solidworks类型库，其引入步骤如下：单击菜单栏中【工程】【引用】命令，选择“SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”（SolidWorks库文件）和“SolidWorks Consant Type library”（SolidWorks常数库） 在VB开发环境中添加2个lable控件，2个textbox控件，2个commandbutton控件，并将lable控件分别命名为圆柱直径，圆柱长度，将commandbutton控件分别命名为连接solidworks，开始绘制。 程序界面如下： 代码编写 在代码编写窗口，通用区定义变量，代码如下： Dim swapp As Object Dim part As Object Dim boolstatus As Boolean 定义接口 双击第一个commandbutton控件，并且写入如下代码： Set swapp = CreateObject(SldWorks.Application) Set part = swapp.NewPart() swapp.Visible = True 获取solidworks软件接口并新建一个零件文件Click的事件中，并且对代码进行修改，修改后的代码如下： boolstatus = part.Extension.SelectByID2(前视, PLANE, 0, 0, 0, False, 0, Nothing, 0) part.SketchManager.InsertSketch True part.ClearSelection2 True Dim skSegment As Object Set skSegment = part.SketchManager.CreateCircle(0#, 0#, 0#, Val(Text1.Text) / 2000, 0, 0#) part.ShowNamedView2 *上下二等角轴测, 8 part.ClearSelection2 True boolstatus = part.Extension.SelectByID2(Arc1, SKETCHSEGMENT, 0, 0, 0, False, 0, Nothing, 0) Dim myFeature As Object Set 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.EnableContourSelection = False 单击VB中的启动按钮，先进性程序调试，调试结果如下： 注意：在solidworks的API函数中的单位是米，如Set skSegment = part.SketchManager.CreateCircle(0#, 0#, 0#, Val(Text1.Text) / 2000, 0, 0#)，至于除以2000的原因是API中的绘制圆的函数，是以半径为参数。各函数的特点可以参考solidworks中的API帮助） 方法二：借助access数据库 依照方法一的前两步操作 使用solidworks绘制一个圆柱，命名为圆柱，并且保存在硬盘中，记下硬盘的位置，本例保存位置为：F:\资料\SW\代码\圆柱.SLDPRT 在VB中添加部件 adodc控件 在VB?6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft?ADO?Data?Control?6.0(OLEDB)”选项即可。在VB?6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft?Control?6.0(OLEDB)”选项即可。 D.单击“添加字段”，建立圆柱直径和圆柱长度两个字段，