关于角度的问题

yicol

使用PolarPoint方法可以找出与给定点成指定角度和指定距离的点
Sub Example_PolarPoint()
    ' 这个示例演示了求出与基点距离某一长度并形成某一角度的点。
     
    Dim polarPnt As Variant
    Dim basePnt(0 To 2) As Double
    Dim angle As Double
    Dim distance As Double
     
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    angle = 0.1744444   ' 45 degrees

    distance = 5
    polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)
     
    ' 从基点到Polar点创建一条直线。
    Dim lineObj As AcadLine
    Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt)
    ZoomAll
   
End Sub


上次得到这段代码，但不知道那个角度是什么控制的。
比如说90度时angle是多少

mccad

程序中使用的为弧度，而在命令行中输入的值一般均为角度值，所以在程序中需要将角度转换为弧度。
请参照实用函数栏目中的函数：
http://www.mjtd.com/function/list.asp?id=279&ordertype=bysort&orderkey=38