计算点和值

AutoCAD ActiveX/VBA

previous page next page

查询射线

精确绘图

计算面积

ActiveX/VBA 开发人员手册 > 控制 AutoCAD 环境 > 精确绘图 >

计算点和值

使用 Utility 对象提供的方法，可以迅速解决数学问题或定位图形上的点。使用 Utility 对象的方法可以执行以下操作：

使用 AngleFromXAxis 方法查看直线与 X 轴所成的角度
使用 AngleToReal 方法将字符串表示的角度转换为实数（双精度）值
使用 AngleToString 方法将角度从实数（双精度）值转换为字符串
使用 DistanceToReal 方法将距离从字符串转换为实数（双精度）值
使用 CreateTypedArray 方法创建包含整数数组、浮点数数组、双精度数数组等的变量
使用 PolarPoint 方法找出与给定点成指定角度和指定距离的点
使用 TranslateCoordinates 方法将某点从一个坐标系转换到另一个坐标系
使用 GetDistance 方法找出用户输入的两点之间的距离

使用 GetDistance 方法找出两点间的距离

本例使用 GetDistance 方法获取点的坐标，并使用 MsgBox 函数显示计算出的距离。

Sub Ch3_GetDistanceBetweenTwoPoints()

    Dim returnDist As Double

          ' 返回用户输入的值，提供一个提示。
          returnDist = ThisDrawing.Utility.GetDistance _
                       (, "Pick two points.")
          MsgBox "The distance between the two points is: " & returnDist
      End Sub

previous page start next page