solidworks2007装配二次开发的问题

yanggang1227521

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


Private Sub Command2_Click()
6 |6 r7 N+ K8 cDim swApp As Object
9 V/ k* q( Y: r9 |! w; J" e, ADim Part As Object
Dim SelMgr As Object
9 |! ^& e3 G1 R. qDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
+ h' s1 g/ ~0 T5 U! y4 H7 Q7 v$ YDim Feature As Object
! i' b: p/ U# c) T4 r4 mDim matefeature As SldWorks.Feature
7 ~% ~2 Z( T- X+ aDim mateError As Long
5 o& C  e0 m4 o/ r) G8 n0 G; G7 LDim AssemblyDoc As AssemblyDoc
8 U) H* k2 q3 h8 L: sDim modeldoc As AssemblyDoc
Dim swassy As SldWorks.AssemblyDoc
( X1 i' G5 o) x5 s) q# ?7 E# fDim swmatefeat As Object
Dim nErrors As Long
Set swApp = CreateObject("SldWorks.application")
9 a. U/ ~8 |; s$ _6 l* B& aSet Part = swApp.OpenDoc6("C:\Documents and Settings\Administrator\×ÀÃæ\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
# |: V* l/ V, w9 m: kSet Part = swApp.ActivateDoc2("Assem1.SLDASM", False, longstatus)
- f) S0 q- h" K7 J4 J% S, [1 XSet Part = swApp.ActiveDoc
( j, U. g6 c0 g2 F4 VSet SelMgr = Part.SelectionManager
Part.ClearSelection2 True
) ]% o/ U9 X  b. zPart.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)
. f% @& l# K6 @$ S. [- X+ hSet swmatefeat = swassy.AddMate2(0, 0, False, 0, 0, 0, 0, 0, 0, 0, 0, nErrors)

+ ~, x6 P$ G# B6 ?# B/ A7 V'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
4 M% E/ @6 d$ ^4 {Part.ClearSelection2 True
End Sub

yanggang1227521

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

yanggang1227521

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