用VB如何实现在SW里面插入零件并移动和旋转?
我写了下面程序,能编译,但是执行的时候提示需要对象!
Dim swApp As Object
    Dim swPart As Object
    Dim swFeat As Object
    Dim swFaces As face2
    Dim swBody As body2
    Dim ToolName As String
    
    Set swApp = Application.SldWorks
    Set swPart = swApp.ActiveDoc
    Set swFeat = swPart.InsertPart(ToolAddress, False, True, False)
’ToolAddress是调用一个数据库里面的地址,这个是好用的,已经执行通过了
    
    Part.ClearSelection2 True
    
    Dim boolstatus As Boolean
    boolstatus = Part.Extension.SelectByID2("<MCLNR1616K12>-<倒角1>", "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0)
  
    
    swPart.FeatureManager.InsertMoveCopyBody2 0.1, 1, 0.5, 0, 0, 0, 0, 0.15, 0, 0, False, 1比较着急,这个问题困扰我一个礼拜了,请高手指点!谢谢