计算点和值

查询射线

精确绘图

计算面积

 

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

计算点和值

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

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

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