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，选择打开，在弹出的对话框中选择添加，添加几组数据

5.使用label，commandbutton，textbox，adodc，datagrid控件，设计VB的程序界面,

其界面如下：

6.建立VB与access的连接：静态”连表的话

1。右键Adodc控件－＞Adodc属性-> 通用

2。选“连接字符串”右边的“生成”，自己选“提供者”和“连接”

提供者选择Microsoft.Jet.OLEDB.4.0

3。再选Adodc属性的“记录源”

4.“命令类型”可选adCmdUnknow或adCmdTxt，然后在“命令文本”中写入你的SQL

语句或者选adCmdTable，然后直接选表，本例就选择adCmdTable

5.DataGrid控件的DataSource属性设为Adodc

7.代码编写

a.在通用代码编辑区协商如下代码：

Dim swapp As Object

Dim part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

'定义接口

b.双击第一个commandbutton控件，并且写入如下代码：

Set swapp = CreateObject("SldWorks.Application")

Set part = swapp.OpenDoc6("F:\资料\SW\代码\圆柱.SLDPRT", 1, 0, "",

longstatus, longwarnings)

swapp.Visible = True

'打开文件

c.双击第二个commandbutton控件，并且写入如下代码：

Part.Parameter(“D1@草图1”).Value=val(text1.text)

Part.Parameter(“D1@凸台-拉伸1”).Value=val(text2.text)

Part.EditRebuild

d.抽取网格数据

方式1.

选择datagrid1控件的RowColChange事件，将网格中的数据赋值给text1

和text2，以此把网格中的所需数据抽取出来，代码如下：

Text1.Text = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)

Text2.Text = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)

其中使用Bookmark属性能够访问当前行的数据

其中columns（i）中的数字i代表表中的第i列

方式2.

使用textbox属性设置，将text1的datasource属性选为adodc1(ADO控

件)，在将将text1的datafield属性选为你需要的字段名即可设置text1

的数据邦定。其它text控件依此设置即可完成你的需要。

本例中的具体设置为，text1中的datasource属性选为adodc1，

datafield属性选为圆柱直径

Text2中的datasource属性选为adodc1，

datafield属性选为圆柱长度此方式则不需要使用datagrid1控件的RowColChange事件来抽取网格数据

（在本次实例中，我选择方式1进行网格数据抽取）

小结.

1.个人认为VB对solidworks进行二次开发，方式一适用于小型的简单的零件建

模

方式二适用于标准件，常用件和一些大型的常用的复杂零件建模

2.可以把方式二中的数据库用法和方式一中的API函数用法结合起来

就是说让方式一中的textbox的值来自于数据库的网格值，省去了方式二中

的设置打开文件路径步骤，以及使用Part.Parameter（“”）.value的步骤

3.要掌握使用宏记录来获取solidworks建模函数的方法

4.针对access在VB程序中添加其他的数据，可以通过设置datagrid属性中的

AllowAddNew 为true AllowDelete 为true 来实现