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

20508095 · 发表于 2008-12-6 16:38:29

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

做两个圆求交点，然后判断，两圆有交点时，程序运行正常。
问题出在没有交点时，我本想输出对话框提示，然而系统报警，说“类型不匹配”，各位看看怎么回事？
代码如下：
Private Function GetFSupportCenter(BSupportCenter As Variant, FSwingBasePoint As Variant) As Variant
Dim Testlayer As AcadLayer
Dim ObjCircle1 As AcadCircle                               '辅助圆
Dim 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       '激活图层
Testlayer.LayerOn = True
SWingLength = 2607
SWingPitch = 3250

Set ObjCircle1 = ThisDrawing.ModelSpace.AddCircle(FSwingBasePoint, SWingLength) '作辅助线
Set ObjCircle2 = ThisDrawing.ModelSpace.AddCircle(BSupportCenter, SWingPitch)

Dim IntPoints As Variant
  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
         PT(0) = IntPoints(i - 1): PT(1) = IntPoints(i): PT(2) = IntPoints(i + 1)
         GetFSupportCenter = PT                                           '函数返回值
      End If
   Next
Else
For i = LBound(IntPoints) To UBound(IntPoints) Step 3
      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                                           '函数返回值
  End If
Next
End If
'ObjCircle1.Delete
'ObjCircle2.Delete
End Function

Sub trial()
Dim A As Variant
Dim B As Variant
Dim C As Variant
A = ThisDrawing.Utility.GetPoint(, "后支撑碗中心：" )
B = ThisDrawing.Utility.GetPoint(, "前摆杆上铰接点：" )
C = GetFSupportCenter(A, B)
MsgBox "前支撑碗中心坐标：" & C(0) & "," & C(1) & "," & C(2)
End Sub

artuo1208 · 发表于 2008-12-6 17:27:40

VarType返回一个 Integer 所以出错
Empty的值为0
返回值:
常数值描述
vbEmpty 0 Empty（未初始化）
vbNull 1 Null（无有效数据）
vbInteger 2 整数
vbLong 3 长整数
vbSingle 4 单精度浮点数
vbDouble 5 双精度浮点数
vbCurrency 6 货币值
vbDate 7 日期
vbString 8 字符串
vbObject 9 对象
vbError 10 错误值
vbBoolean 11 Boolean 值
vbVariant 12 Variant（只与变体中的数组一起使用）
vbDataObject 13 数据访问对象
vbDecimal 14 十进制值
vbByte 17 位值
vbUserDefinedType 36 包含用户定义类型的变量
vbArray 8192 数组

woaishuijia · 发表于 2008-12-6 18:27:44

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

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

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

		自动登录	找回密码
密码			注册

通知

[讨论] 为什么提示“类型不匹配”？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块