用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比较着急,这个问题困扰我一个礼拜了,请高手指点!谢谢
我写了下面程序,能编译,但是执行的时候提示需要对象!
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比较着急,这个问题困扰我一个礼拜了,请高手指点!谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货