solidworks2007装配二次开发的问题

yanggang1227521 · 发表于 2008-6-12 15:21:56

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

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

x

下面是程序代码，红色的部分就出错了，报错：实时错误'91'，对象变量或with块变量未设置。。。我都不晓得错在啥地方了，希望高手可以帮我解答下。。。红色部分有两个函数，我分别用了，错误都是一样的。。。谢谢了。。。。。。。。。

Private Sub Command2_Click()
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim matefeature As SldWorks.Feature
Dim mateError As Long
Dim AssemblyDoc As AssemblyDoc
Dim modeldoc As AssemblyDoc
Dim swassy As SldWorks.AssemblyDoc
Dim swmatefeat As Object
Dim nErrors As Long
Set swApp = CreateObject("SldWorks.application")
Set Part = swApp.OpenDoc6("C:\Documents and Settings\Administrator\×ÀÃæ\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc2("Assem1.SLDASM", False, longstatus)
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\Administrator\×ÀÃæ\Part1.SLDPRT", -0.02323122071431, 0.03645583370445, 0.08245399542471
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.01501535777649, 0.04541356535486, 0.06745399542474, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.01242594790686, 0.003812740405351, 0.04944596164239, True, 1, Nothing, 0)
Set swmatefeat = swassy.AddMate2(0, 0, False, 0, 0, 0, 0, 0, 0, 0, 0, nErrors)

'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
Part.ClearSelection2 True
End Sub

yanggang1227521 · 发表于 2008-6-17 09:58:35

我要顶上来，谁可以帮帮我呀。。。
哪位大侠可以帮帮我呀

yanggang1227521 · 发表于 2008-6-26 15:45:44

谁来帮帮我呀。。。高手们快来看看吧

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

通知

[求助] solidworks2007装配二次开发的问题

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