为什么提示“类型不匹配”？

20508095

做两个圆求交点，然后判断，两圆有交点时，程序运行正常。
/ E: y9 R  M: s5 P1 i7 |6 z问题出在没有交点时，我本想输出对话框提示，然而系统报警，说“类型不匹配”，各位看看怎么回事？
# N# ]! e* l6 ?' A- c( x代码如下：
; z& K$ X+ J/ @4 E: i9 K* q* V$ qPrivate Function GetFSupportCenter(BSupportCenter As Variant, FSwingBasePoint As Variant) As Variant
: Y. _% E/ a1 q9 _5 o& ODim Testlayer As AcadLayer
& @/ Q4 R1 X8 K2 S; J3 ?Dim ObjCircle1 As AcadCircle                                '辅助圆
) w) n8 D; E/ g) KDim ObjCircle2 As AcadCircle
Dim SWingLength As Double
" c9 A; e: N, b8 p4 ?5 ^Dim SWingPitch As Double
! B0 X9 }& y3 s7 p+ }# mDim PT(0 To 2) As Double
Set Testlayer = ThisDrawing.Layers.Add("非显示层" )          '辅助线位于非显示层
Testlayer.color = acRed
  r' R) F; {% l( w/ q$ h* i2 t2 H% tThisDrawing.Application.ActiveDocument.ActiveLayer = Testlayer        '激活图层
Testlayer.LayerOn = True
9 K- e% M: F% sSWingLength = 2607
SWingPitch = 3250
1 R4 T. ^! M. _
# b5 P: z( j# H+ x0 ~0 ASet ObjCircle1 = ThisDrawing.ModelSpace.AddCircle(FSwingBasePoint, SWingLength)   '作辅助线
Set ObjCircle2 = ThisDrawing.ModelSpace.AddCircle(BSupportCenter, SWingPitch)
5 M# q) e: I3 C# B0 @  q" O
Dim IntPoints As Variant
3 O' }( `" u0 e7 }6 D! N; o  IntPoints = ObjCircle2.IntersectWith(ObjCircle1, acExtendNone)         '获取交点并判断

If VarType(IntPoints) = vbEmpty Then
MsgBox "没有交点!"
ElseIf BSupportCenter(1) = FSwingBasePoint(1) Then
      For i = LBound(IntPoints) + 1 To UBound(IntPoints) Step 3
        On Error Resume Next
        If IntPoints(i) < BSupportCenter(1) Then
6 b2 u. {% O1 [$ l           PT(0) = IntPoints(i - 1): PT(1) = IntPoints(i): PT(2) = IntPoints(i + 1)
           GetFSupportCenter = PT                                              '函数返回值
; p5 v) P2 E" s/ P. h$ k        End If
      Next
Else
For i = LBound(IntPoints) To UBound(IntPoints) Step 3
3 W; l9 `" b# P        On Error Resume Next
  If (IntPoints(i + 1) - FSwingBasePoint(1)) / (BSupportCenter(1) - FSwingBasePoint(1)) - (IntPoints(i) - FSwingBasePoint(0)) / (BSupportCenter(0) - FSwingBasePoint(0)) < 0 Then
      PT(0) = IntPoints(i): PT(1) = IntPoints(i + 1): PT(2) = IntPoints(i + 2)
      GetFSupportCenter = PT                                              '函数返回值
" _4 N7 K. x" C3 Q8 G  End If
' m$ e) d+ O2 }' W% {+ n. n. }Next
/ r& J; n2 _; h8 gEnd If
, u. A  k3 o  X0 \! N$ g% c' |'ObjCircle1.Delete
'ObjCircle2.Delete
End Function
. E4 H& O$ Y* F( m: J
! E$ P, w; Q5 l: C: V+ m& a7 eSub trial()
  j8 i& p: @$ d! s8 A1 a: vDim A As Variant
Dim B As Variant
Dim C As Variant
A = ThisDrawing.Utility.GetPoint(, "后支撑碗中心：" )
5 D' w1 p+ ]: A+ N) Y+ q+ eB = ThisDrawing.Utility.GetPoint(, "前摆杆上铰接点：" )
C = GetFSupportCenter(A, B)
* K* V6 Q' F8 ^8 TMsgBox "前支撑碗中心坐标：" & C(0) & "," & C(1) & "," & C(2)
End Sub

artuo1208

VarType返回一个 Integer 所以出错
Empty的值为0
返回值:
3 N& G: z0 E, q. _8 x# q6 U6 _+ r常数 值 描述
vbEmpty 0 Empty（未初始化）
vbNull 1 Null（无有效数据）
vbInteger 2 整数
vbLong 3 长整数
vbSingle 4 单精度浮点数
2 k( ~/ k: d0 T$ FvbDouble 5 双精度浮点数
vbCurrency 6 货币值
vbDate 7 日期
vbString 8 字符串
. e8 F7 q; s& O9 f4 RvbObject 9 对象
vbError 10 错误值
7 \, n2 L: b  N! V6 RvbBoolean 11 Boolean 值
) m$ ]) E9 W' x5 {* S0 n; pvbVariant 12 Variant（只与变体中的数组一起使用）
vbDataObject 13 数据访问对象
; E! q' A  ^* ?' n7 R" ^2 h+ XvbDecimal 14 十进制值
+ b. [1 Q- K$ e4 Z" ]* @vbByte 17 位值
- ]! d1 o) V2 [, }; [vbUserDefinedType 36 包含用户定义类型的变量
vbArray 8192 数组

woaishuijia

原帖由 artuo1208 于 2008-12-6 17:27 发表 http://www.3dportal.cn/discuz/images/common/back.gif
VarType返回一个 Integer 所以出错

( _- P/ o5 H1 s  B1 Y应该是返回一个双精度数组。
' \% z; Q, D7 j8 ^0 l
' V3 P/ {0 F6 Q3 o出错的原因是这里不应该用vartype()函数来判断，因为不论有没有交点，变体变量都会变成双精度数组，vartype()函数的返回值永远是8197(即5(双精度)+8192(数组))。只是数组元素数量与交点数量相应。这里应该用ubound()函数返回数组的最大下标并判断，如果ubound(IntPoints)=-1说明没有交点；ubound(IntPoints)=2则有一个交点；ubound(IntPoints)=5则有两个交点，其数组中元素0~2为第一个交点的三维坐标，3~5为第二个交点的三维坐标......