马上注册登录,享用更多网站功能!
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我用sldworks宏录制了一段macro,大致操作是插入一个零件,然后零件沿y轴移动一定距离,录完宏然后执行,发现可以插入零件,但却没有移动到指定位置,也就是说InsertMoveCopyBody2所在的一行代码未执行,请那位大侠指点一下该怎么解决?
非常感谢~
附:
代码
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set Feature = Part.InsertPart("F:\my documents\冲头一.SLDPRT", False, False, False)
Part.FeatureManager.InsertMoveCopyBody20 , 0.01, 0, 0, 0, 0, 0, 0, 0, 0, False, 1
End Sub |