solidworks2007装配二次开发的问题

wǒ想我是海 · 发表于 2008-6-12 15:21:00

经典图书

下面是程序代码，红色的部分就出错了，报错：实时错误'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

ocuments and SettingsAdministrator×烂鍭ssem1.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

ocuments and SettingsAdministrator×烂鍼art1.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

xiaoyao6530075 · 发表于 2008-6-12 15:37:03

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

78naefkvf6 · 发表于 2008-6-12 15:40:09

经典图书

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

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

solidworks2007装配二次开发的问题

相关帖子