solidworks2007装配二次开发的问题

yanggang1227521

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

& M9 T& ~9 H, [0 D; }Private Sub Command2_Click()
Dim swApp As Object
- x  d2 d" \; y# B5 aDim Part As Object
Dim SelMgr As Object
6 @! i8 |( U4 j5 UDim boolstatus As Boolean
$ E7 M$ A/ p# ]0 b( q. V* TDim longstatus As Long, longwarnings As Long
1 {. X2 h7 T8 G& V. i6 l) k6 MDim Feature As Object
3 `0 P4 g" N: o) A& i8 \5 }Dim matefeature As SldWorks.Feature
) s$ q1 \+ x$ r1 @3 |& H- Y: JDim mateError As Long
Dim AssemblyDoc As AssemblyDoc
Dim modeldoc As AssemblyDoc
Dim swassy As SldWorks.AssemblyDoc
Dim swmatefeat As Object
2 Z2 N6 g! Y  z- B, v8 ^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
& g4 s* r0 i& S' d1 iPart.AddComponent "C:\Documents and Settings\Administrator\×ÀÃæ\Part1.SLDPRT", -0.02323122071431, 0.03645583370445, 0.08245399542471
% V+ ^( L# p7 }6 v1 U# s# u7 aboolstatus = Part.Extension.SelectByID2("", "FACE", 0.01501535777649, 0.04541356535486, 0.06745399542474, True, 1, Nothing, 0)
. U. @& Z3 L' E4 y7 E$ [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)

: @# c* `6 B% e2 }+ i0 c0 m, A'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
& o  v* M: h8 D0 PPart.ClearSelection2 True
" x2 j* `! W1 l+ xEnd Sub

yanggang1227521

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

yanggang1227521

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