基于VB的SolidWorks二次开发入门笔记1创建圆柱体.doc

基于VB的SolidWorks二次开发入门笔记1——创建圆柱体
CSU 交通设备 0902
'通用声明区
DimswAppAs Object 'swApp声明为对象,表示SolidWorks 应用程序
DimPartAs Object 'Part 声明为对象,表示SolidWorks 零件环境
DimboolstatusAs Boolean'boolstatue 声明为布尔值
DimlongstatusAs Long, longwarningsAs Long '这两个变量为长整形
DimFeatureAs Object 'Feature 声明为对象,表示SolidWorks 特征
Sub main '宏程序入口
'插入一个用户窗口,设为非模态窗口,并加入一个按钮,显示窗口
EndSub
Private mandButton1_Click
SetswApp '宏程序与SolidWorks 建立连接的桥梁代码
SetPart '宏程序与SolidWorks 中的零件环境建立连接的桥梁代码
boolstatus ctByID2 "前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0 '选
择前视基准面
'插入草图
0, 0, 0, , 0, 0 '设置默认的圆心和圆上一点坐标,前三个为圆心坐标,后
三个为圆上一点坐标,通过控制圆上一点坐标控制半径
boolstatus ctByID2 "Arc1", "SKETCHSEGMENT", _
, , 0, False, 0, Nothing, 0 '选择要标注尺寸的线段
DimAnnotationAs Object 'Annotation 声明为对象,表示SolidWorks 的注解
Set