Solidworks 二次开发第6课:理解宏代码是如何工作的

录制过程

代码

变量声明：宏记录器默认声明（或定义）一些变量。用户可以注释掉或删

除在程序入口点未用到的

变量

Option Explicit

＇＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

＇Macrol.swb -macro recorded on ##/##/## by userName

＇＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long,longwarnings As Long

程序入口点：这里是函数开始的地方。每个宏必须建立一个程序入口点

Sub main()

SOLIDWORKS 用程序对象：这一行代码将开始一个新的SOLIDWORKS进程或者连接一个正在运行的SOLIDWORKS进程。没有

它，用户程序将无法运行

Set swApp =Application.SldWorks

SOLIDWORKS文件对象：顶层文件对象必须是可访问的，并且要设为活动的，这样宏才可以调用文件的特定函数功能

Set Part =swApp.ActiveDoc

SOLIDWORKS API调用：调用一个API,允许宏执行一个特定任务

录制的造型步骤如下：

·选择一个平面

·插入一个草图

·创建一个圆

·拉伸特征

boolstatus=Part.Extension.SelectByID2("Front_Plane" ,"PLANE" 0, 0,

0,False,0,Nothing,0)

‘获取对象，允许访问模型对象

’SelectByID2选择指定的实体

Part.SketchManager.InsertSketch True

‘SketchManager提供对草图创建例程的访问

’在当前零件或部件文档中插入新草图。

Part.ClearSelection2 True

’清除选择列表

Dim skSegment As Object

‘创建对象

Set skSegment =Part,SketchManager,CreateCircle(0#,0#,0#,0.022863,

0.032639,0#)

‘创建圆

Part,ShowNamedView2"*Trimetric",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,FeatureExtrusion 2 (True,Falser

False,0,0,0.015,_0.01,False,False,False,False,1.74532925199433E-

02,1.74532925199433E-02,False,False,False,False,True,True,True,O,

0,False)

’拉伸操作

Part.SelectionManager.EnableContourSelection=False

‘启用或禁用轮廓操作

程序结束

End Sub