谁帮我看下，装配体空白文档中添加零件的问题

nanyuchun · 发表于 2009-5-23 11:35:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

程序如下：（是装配体空白文档中添加零件的）
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就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc · 发表于 2009-5-26 16:02:33

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：

Sub main()

Dim swApp          As SldWorks.SldWorks
Dim swAssy          As SldWorks.AssemblyDoc
Dim swPart          As SldWorks.PartDoc
Dim longstatus    As Long
Dim longwarnings    As Long
Dim sPartFileName As String
Dim Boolstatus    As Boolean

Set swApp = Application.SldWorks
Set swAssy = swApp.ActiveDoc

If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub '当前文档若不是装配体则退出

sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"

swApp.DocumentVisible False, swDocPART
Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)

If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub

Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)

If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub '若零件插入失败则退出

swAssy.ShowNamedView2 "*等轴测", 7
swAssy.FeatureManager.UpdateFeatureTree  '更新特征树

swApp.CloseDoc sPartFileName
swApp.DocumentVisible True, swDocPART

End Sub

[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc · 发表于 2009-5-26 17:26:23

发现一个问题，现在改过来了

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

通知

[求助] 谁帮我看下，装配体空白文档中添加零件的问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。