solidworks2007装配二次开发的问题

yanggang1227521

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


Private Sub Command2_Click()
Dim swApp As Object
Dim Part As Object
2 X6 l5 Q' ^0 R3 N4 Z# ~Dim SelMgr As Object
% @* v% o- ?3 U' w1 Y1 |- ^) {( ~Dim boolstatus As Boolean
' K2 Q3 S. A! t5 l/ PDim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim matefeature As SldWorks.Feature
Dim mateError As Long
Dim AssemblyDoc As AssemblyDoc
5 v5 n! ^7 ?+ z. e  l9 W# HDim modeldoc As AssemblyDoc
Dim swassy As SldWorks.AssemblyDoc
) h, ^8 |( c* A" `0 r# ~. |. s) H8 NDim swmatefeat As Object
Dim nErrors As Long
( b/ N/ u) y3 p  h2 PSet swApp = CreateObject("SldWorks.application")
Set Part = swApp.OpenDoc6("C:\Documents and Settings\Administrator\×ÀÃæ\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
( R8 Z; K+ b+ CSet Part = swApp.ActivateDoc2("Assem1.SLDASM", False, longstatus)
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
% A7 ~$ j& ~6 o2 h6 fPart.ClearSelection2 True
Part.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)
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)

$ b0 {" r! ^4 S5 E- E'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
4 h5 R7 z2 P" J* i' O: \Part.ClearSelection2 True
3 T  R: c5 q2 c" J* MEnd Sub

yanggang1227521

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

yanggang1227521

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