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

20508095

做两个圆求交点，然后判断，两圆有交点时，程序运行正常。
- t/ s" W1 S! R0 U问题出在没有交点时，我本想输出对话框提示，然而系统报警，说“类型不匹配”，各位看看怎么回事？
4 B8 ]* I7 L# s8 a% u0 g  M: L代码如下：
Private Function GetFSupportCenter(BSupportCenter As Variant, FSwingBasePoint As Variant) As Variant
Dim Testlayer As AcadLayer
Dim ObjCircle1 As AcadCircle                                '辅助圆
3 G9 X" Z8 d- _) {$ S) Z4 e1 hDim ObjCircle2 As AcadCircle
Dim SWingLength As Double
Dim SWingPitch As Double
Dim PT(0 To 2) As Double
Set Testlayer = ThisDrawing.Layers.Add("非显示层" )          '辅助线位于非显示层
Testlayer.color = acRed
ThisDrawing.Application.ActiveDocument.ActiveLayer = Testlayer        '激活图层
/ Z5 B( T, ?% [  FTestlayer.LayerOn = True
SWingLength = 2607
SWingPitch = 3250
+ A5 k! W% [0 |
; [2 a# Q5 t  Y; a4 i6 aSet ObjCircle1 = ThisDrawing.ModelSpace.AddCircle(FSwingBasePoint, SWingLength)   '作辅助线
+ [8 w9 F3 h  p% ASet ObjCircle2 = ThisDrawing.ModelSpace.AddCircle(BSupportCenter, SWingPitch)
% {2 c/ h/ W) i( u
Dim IntPoints As Variant
% z2 _- N' }( a% w. n  IntPoints = ObjCircle2.IntersectWith(ObjCircle1, acExtendNone)         '获取交点并判断

. R( p8 I) I- z" ?If VarType(IntPoints) = vbEmpty Then
4 A+ {# U2 F$ v* y; v* tMsgBox "没有交点!"
( b, ^6 }. t7 t2 \ElseIf BSupportCenter(1) = FSwingBasePoint(1) Then
      For i = LBound(IntPoints) + 1 To UBound(IntPoints) Step 3
4 o" t- @7 X9 r; \) A5 g        On Error Resume Next
        If IntPoints(i) < BSupportCenter(1) Then
           PT(0) = IntPoints(i - 1): PT(1) = IntPoints(i): PT(2) = IntPoints(i + 1)
& B9 w8 I6 O( p# A+ V1 n1 V           GetFSupportCenter = PT                                              '函数返回值
        End If
      Next
Else
* n# \" T( p; HFor i = LBound(IntPoints) To UBound(IntPoints) Step 3
% R7 U8 ~+ t' {8 p7 \# {4 S        On Error Resume Next
  If (IntPoints(i + 1) - FSwingBasePoint(1)) / (BSupportCenter(1) - FSwingBasePoint(1)) - (IntPoints(i) - FSwingBasePoint(0)) / (BSupportCenter(0) - FSwingBasePoint(0)) < 0 Then
& H# }" S6 E# U% e      PT(0) = IntPoints(i): PT(1) = IntPoints(i + 1): PT(2) = IntPoints(i + 2)
+ a+ ?4 v6 j# E# D7 m      GetFSupportCenter = PT                                              '函数返回值
; q$ O* c! i& ]: M$ h  End If
2 Z9 Z( g, P1 M5 Z! K. z$ s( d- s" RNext
& P+ X! P$ ]/ wEnd If
8 z6 }. a% l) X  m4 Q( b8 G, v'ObjCircle1.Delete
/ M. v, r( ~8 z9 j& H( M  y'ObjCircle2.Delete
9 h% k  g9 H4 q- WEnd Function

Sub trial()
Dim A As Variant
0 H% y; T+ N7 k3 ^! T& q5 Y  F  x( W2 VDim B As Variant
7 T$ ^1 Y) {4 D* u3 a, mDim C As Variant
A = ThisDrawing.Utility.GetPoint(, "后支撑碗中心：" )
% T6 @% @- I+ m/ O" q7 z+ bB = ThisDrawing.Utility.GetPoint(, "前摆杆上铰接点：" )
" Q  i( f) i# r* p$ b% NC = GetFSupportCenter(A, B)
$ e9 O5 ~  M/ \8 _. |MsgBox "前支撑碗中心坐标：" & C(0) & "," & C(1) & "," & C(2)
End Sub

artuo1208

VarType返回一个 Integer 所以出错
' a. q0 A, Y+ s6 GEmpty的值为0
8 T  l# c, P' R8 E6 V  S9 B! }/ H返回值:
常数 值 描述
! k& o; g- z5 h. ]' XvbEmpty 0 Empty（未初始化）
& r; x- I: W  e) Q4 c- QvbNull 1 Null（无有效数据）
vbInteger 2 整数
vbLong 3 长整数
vbSingle 4 单精度浮点数
vbDouble 5 双精度浮点数
& i3 w* r0 M: xvbCurrency 6 货币值
vbDate 7 日期
vbString 8 字符串
vbObject 9 对象
vbError 10 错误值
vbBoolean 11 Boolean 值
vbVariant 12 Variant（只与变体中的数组一起使用）
vbDataObject 13 数据访问对象
vbDecimal 14 十进制值
9 D1 L4 e7 ?1 [- i. ?8 O, r* rvbByte 17 位值
vbUserDefinedType 36 包含用户定义类型的变量
0 c3 Q' c- V7 [5 y: ~" [vbArray 8192 数组

woaishuijia

原帖由 artuo1208 于 2008-12-6 17:27 发表 http://www.3dportal.cn/discuz/images/common/back.gif
4 ^/ ]9 E) p" X; X0 {2 EVarType返回一个 Integer 所以出错

应该是返回一个双精度数组。

出错的原因是这里不应该用vartype()函数来判断，因为不论有没有交点，变体变量都会变成双精度数组，vartype()函数的返回值永远是8197(即5(双精度)+8192(数组))。只是数组元素数量与交点数量相应。这里应该用ubound()函数返回数组的最大下标并判断，如果ubound(IntPoints)=-1说明没有交点；ubound(IntPoints)=2则有一个交点；ubound(IntPoints)=5则有两个交点，其数组中元素0~2为第一个交点的三维坐标，3~5为第二个交点的三维坐标......