zy19860604 发表于 2010-9-29 09:31:00

[求助]数据类型

<div class="tpc_content" id="read_tpc">Public Function AddCircleBy2Point(ByVal StartPoint As Variant, ByVal EndPoint As Variant) As AcadCircle<br/>'参数有效性检查<br/>Debug.Assert (VarType(StartPoint) = vbArray + vbDouble)<br/>Debug.Assert (VarType(EndPoint) = vbArray + vbDouble)<br/>'计算圆心和半径<br/>Dim CenterPoint As Variant<br/>Dim Radius As Double<br/>CenterPoint = Math.GetMiddlePointBetween2Point(StartPoint, EndPoint)<br/>Radius = Math.GetDistanceBetween2Point(StartPoint, EndPoint) / 2<br/>'创建圆<br/>Set AddCircleBy2Point = ThisDrawing.ModelSpace.AddCircle(CenterPoint, Radius)<br/>End Function<br/><br/>centerpoint的数据类型为什麽不可以是double？？</div>

雪山飞狐_lzh 发表于 2010-9-29 09:52:00

<p>是double的数组</p>

zy19860604 发表于 2010-9-29 10:56:00

<p><font face="Verdana">Public Function GetMiddlePointBetween2Point(ByVal StartPoint As Variant, ByVal EndPoint As Variant) As Variant<br/>Dim MiddlePoint(0 To 2) As Double<br/>MiddlePoint(0) = (StartPoint(0) + EndPoint(0)) / 2<br/>MiddlePoint(1) = (StartPoint(1) + EndPoint(1)) / 2<br/>MiddlePoint(2) = (StartPoint(2) + EndPoint(2)) / 2<br/>GetMiddlePointBetween2Point = MiddlePoint<br/>End Function<br/></font></p>
<p>是不是这个函数也要改成数组？？？</p>
页: [1]
查看完整版本: [求助]数据类型