哪位高手帮忙改下这个装配体空白文档中添加零件的程序？

wcnzhowqhc · 发表于 2009-5-24 21:48:00

经典图书

程序如下：（是装配体空白文档中添加零件的）
Dim swApp As Object
Sub main()
Dim Part As Object
Dim SelMgr As Object
Dim Boolstatus As Boolean
Dim Model As Object
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.OpenDoc6("E:毕业设计新生成零件连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
'Set Part = swApp.NewAssembly
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set Model = swApp.OpenDoc6("E:毕业设计新生成零件连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager
Part.AddComponent "E:设计新生成零件连杆.SLDPRT", 0, 0, 0
Part.ClearSelection2 True
Part.ShowNamedView2 "*等轴测", 7
End Sub
运行到这句（Part.AddComponent "E:毕业设计新生成零件连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

		自动登录	找回密码
密码			立即注册

哪位高手帮忙改下这个装配体空白文档中添加零件的程序？

相关帖子