solidworks2007装配二次开发的问题

yanggang1227521

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

Private Sub Command2_Click()
) i% S8 J8 f# l8 e; C8 yDim swApp As Object
Dim Part As Object
2 I. Y3 U- U  O5 I" `Dim SelMgr As Object
Dim boolstatus As Boolean
2 C6 F* I! A$ s/ q# WDim longstatus As Long, longwarnings As Long
; E( {  _) h, S- k6 v# a8 o/ GDim Feature As Object
Dim matefeature As SldWorks.Feature
) k1 a9 E/ `3 Y6 g+ x: z# bDim mateError As Long
Dim AssemblyDoc As AssemblyDoc
Dim modeldoc As AssemblyDoc
4 P7 l  f# F6 y3 ^% j6 j  M3 DDim swassy As SldWorks.AssemblyDoc
4 E0 d4 i- B8 B, fDim swmatefeat As Object
Dim nErrors As Long
' L/ B) {5 j! Z# B" F/ I) f! XSet 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)
& z- E# t" U6 A- M* P8 VSet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ClearSelection2 True
. {) ~- ?$ n- A/ P0 z% U5 MPart.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)
: ~! }0 _  r( z! Uboolstatus = 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)

3 _* g+ s+ W$ [8 s' W'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
Part.ClearSelection2 True
End Sub

yanggang1227521

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

yanggang1227521

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