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

VB对solidworks进行二次开发

本次的开发均使用简单圆柱为例进行solidworks二次开发

方法一：借助API绘图函数

1.使用宏录制圆柱的建模过程，录制代码如下：

2.在VB程序开发环境中建立标准EXE文件，并且引用solidworks类型库，其引入步骤如

下：单击菜单栏中【工程】【引用】命令，选择“SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”（SolidWorks库文件）和“SolidWorks Consant Type library”（SolidWorks常数库）

3.在VB开发环境中添加2个lable控件，2个textbox控件，2个commandbutton控件，

并将lable控件分别命名为圆柱直径，圆柱长度，将commandbutton控件分别命名为连接solidworks，开始绘制。

程序界面如下：

4.代码编写

A．在代码编写窗口，通用区定义变量，代码如下：

Dim swapp As Object

Dim part As Object

Dim 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 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

5.单击VB中的启动按钮，先进性程序调试，调试结果如下：

注意：在solidworks的API函数中的单位是米，如Set skSegment =

part.SketchManager.CreateCircle(0#, 0#, 0#, Val(Text1.Text) / 2000, 0, 0#)，至于除以2000

的原因是API中的绘制圆的函数，是以半径为参数。各函数的特点可以参考solidworks 中的API帮助）

方法二：借助access数据库

1.依照方法一的前两步操作

2.使用solidworks绘制一个圆柱，命名为圆柱，并且保存在硬盘中，记下硬盘的位置，

本例保存位置为："F:\资料\SW\代码\圆柱.SLDPRT"

3.在VB中添加部件

adodc控件

在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”

对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。

DATAGRID控件

在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”

对话框中选中“Microsoft DataGrid Control 6.0(OLEDB)”选项即可。

工程引用：

要能正确引用ADO数据对象，应在VB 6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.7Library”选项来添加ADO数据对象类型库。

4.制作圆柱的access数据库

可以直接在Visual Basic 6.0集成开发环境中通过“可视化数据管理器”来创建

数据库如下图操作：

A.

B.

C.

D.单击“添加字段”，建立圆柱直径和圆柱长度两个字段，并把字段类型设置为double

E.右击yuanzhu，选择打开，在弹出的对话框中选择添加，添加几组数据