solidworks2007装配二次开发的问题

yanggang1227521

下面是程序代码，红色的部分就出错了，报错：实时错误'91'，对象变量或with块变量未设置。。。我都不晓得错在啥地方了，希望高手可以帮我解答下。。。红色部分有两个函数，我分别用了，错误都是一样的。。。谢谢了。。。。。。。。。
/ d( ]* B3 D+ Z8 t' t: Y! R+ [: ~
$ u9 q- }: ^& C/ P
1 d' o( E' U# S) C4 c1 dPrivate Sub Command2_Click()
9 n* x: i3 q- H6 N/ H" a; O$ ODim swApp As Object
$ H1 Y) i7 p7 G  |Dim Part As Object
5 A- z& M5 B. p3 \Dim SelMgr As Object
' z" v! C( [" D1 T" qDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim matefeature As SldWorks.Feature
Dim mateError As Long
& I4 k5 `: k$ S0 YDim AssemblyDoc As AssemblyDoc
6 q9 j* o9 P' `% p4 X; K& {3 qDim modeldoc As AssemblyDoc
Dim swassy As SldWorks.AssemblyDoc
Dim swmatefeat As Object
Dim nErrors As Long
Set swApp = CreateObject("SldWorks.application")
7 i; W; k$ I3 L+ @/ ^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
- @% K! P, \+ c1 eSet SelMgr = Part.SelectionManager
Part.ClearSelection2 True
$ ^2 ?* K: d9 r8 J# tPart.AddComponent "C:\Documents and Settings\Administrator\×ÀÃæ\Part1.SLDPRT", -0.02323122071431, 0.03645583370445, 0.08245399542471
9 s0 |" Z* v" z" V* Sboolstatus = 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)
  C) B2 F7 c, q; v7 \8 a( P' L
1 `/ g7 v/ }+ s$ O5 ~6 q' n'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
Part.ClearSelection2 True
End Sub

yanggang1227521

我要顶上来，谁可以帮帮我呀。。。
( i9 d" Z/ {8 m( {哪位大侠可以帮帮我呀

yanggang1227521

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