工程窗口双击"UserForm1",显示创建的窗口,再双击按钮,VB会自动建立按钮点击事件的代码:
Private Sub CommandButton1_Click()
End Sub
我们把刚才宏的所有代码先粘贴过来。通过命令的单词意思我们可以判断,前七句是用来创建新零件的,我们观察第6句,发现这种创建方法与SolidWorks的安装位置有关联,所以我们使用下面三句通用的创建零件方法来替代这些代码。
Set SolidWorksApp = Application.SldWorks
Set Part = SolidWorksApp.NewPart
Set Part = SolidWorksApp.ActiveDoc
继续往下读,目的是找到创建圆柱体的命令代码。判断的依据是命令的英文词意,再建模的时候我们做了两件事情:创建草图和拉伸。在下面的代码中有两个命
令:Part.CreateCircle和Part.FeatureManager.FeatureExtrusion,然后打开SolidWorks帮
助菜单中的API帮助主题。