我们把刚才宏的所有代码先粘贴过来。通过命令的单词意思我们可以判断,前七句是用来创建新零件的,我们观察第6句,发现这种创建方法与SW的安装位置有关联,所以我们使用下面三句通用的创建零件方法来替代这些代码(忘了是哪位大侠教给笨笨的了,抱歉)。
Set swApp = Application.SldWorks
Set Part = swApp.NewPart
Set Part = swApp.ActiveDoc
继续往下读,目的是找到创建圆柱体的命令代码。判断的依据是命令的英文词意,再建模的时候我们做了两件事情:创建草图和拉伸。在下面的代码中有两个命令:Part.CreateCircle和Part.FeatureManager.FeatureExtrusion,然后打开SW帮助菜单中的API帮助主题。