solidworks2007装配二次开发的问题

yanggang1227521

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

9 t# a" m+ E  e  V, r; r
# ~3 V$ D: R9 o* A% u% L$ X6 xPrivate Sub Command2_Click()
Dim swApp As Object
' F% `8 Q: v9 JDim Part As Object
; |9 H3 s4 s2 B! B, }Dim SelMgr As Object
, L. |# O1 u, h  U  M' N4 l7 WDim boolstatus As Boolean
* ]5 @) t, T/ `& A  [% e3 A. cDim longstatus As Long, longwarnings As Long
Dim Feature As Object
% d  v9 T$ x0 e5 n/ k$ ~) E; U/ F: fDim matefeature As SldWorks.Feature
Dim mateError As Long
* \' A% C1 j1 \Dim AssemblyDoc As AssemblyDoc
Dim modeldoc As AssemblyDoc
- y3 m3 l7 n  QDim swassy As SldWorks.AssemblyDoc
" l# l- w) M: a( UDim swmatefeat As Object
Dim nErrors As Long
" R' y# {8 q+ O" z7 ^: D6 V5 RSet swApp = CreateObject("SldWorks.application")
Set Part = swApp.OpenDoc6("C:\Documents and Settings\Administrator\×ÀÃæ\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
( p0 V3 a5 C2 A( k/ O0 x# A/ R$ vSet Part = swApp.ActivateDoc2("Assem1.SLDASM", False, longstatus)
Set Part = swApp.ActiveDoc
. N- P) o! U1 ]/ {Set SelMgr = Part.SelectionManager
/ R2 i) ^0 z& k+ g$ [1 I" W+ oPart.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)
( ~* {8 b" R4 U/ v1 j+ F
- Y. d$ X& T7 w4 I8 v' ]5 b3 V'Set matefeature = AssemblyDoc.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, mateError)
Part.ClearSelection2 True
( E6 O, X) J' {% |- d- v, W2 g5 \End Sub

yanggang1227521

我要顶上来，谁可以帮帮我呀。。。
! n8 z5 r$ B$ Z1 i( R哪位大侠可以帮帮我呀

yanggang1227521

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