solidworks2007装配二次开发的问题

yanggang1227521

下面是程序代码，红色的部分就出错了，报错：实时错误'91'，对象变量或with块变量未设置。。。我都不晓得错在啥地方了，希望高手可以帮我解答下。。。红色部分有两个函数，我分别用了，错误都是一样的。。。谢谢了。。。。。。。。。
& _; _! Y& f( A7 Y: A
( F) W) J* S5 u# h+ o0 b
Private Sub Command2_Click()
9 r& _% J0 w3 b7 z: NDim swApp As Object
Dim Part As Object
- g" B6 b' I, Q9 HDim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
; Z% |; [2 `5 f4 z* v' lDim Feature As Object
3 r: U/ {4 h/ i% T8 NDim 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
  d  k( V3 y3 G5 i% U- h9 DDim nErrors As Long
! B1 t; v& J( S2 O. W$ U, WSet swApp = CreateObject("SldWorks.application")
5 U. P/ l1 U$ {% V$ dSet Part = swApp.OpenDoc6("C:\Documents and Settings\Administrator\×ÀÃæ\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
- G. V0 V- ]1 A6 S9 D  RSet Part = swApp.ActivateDoc2("Assem1.SLDASM", False, longstatus)
! i, P3 [+ A- g9 g7 |/ ^Set Part = swApp.ActiveDoc
- ?  h2 O# `) l8 ASet SelMgr = Part.SelectionManager
) K5 r; ^& B2 r0 G, j7 zPart.ClearSelection2 True
Part.AddComponent "C:\Documents and Settings\Administrator\×ÀÃæ\Part1.SLDPRT", -0.02323122071431, 0.03645583370445, 0.08245399542471
1 K: j8 h- V& Wboolstatus = 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
+ B& U9 r0 q! `4 a/ O) Q- {End Sub

yanggang1227521

我要顶上来，谁可以帮帮我呀。。。
4 _/ M- {3 Y  b: E6 l5 m# s7 j; f哪位大侠可以帮帮我呀

yanggang1227521

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