关于角度的问题
使用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是多少
需要弧度值与角度的转换
程序中使用的为弧度，而在命令行中输入的值一般均为角度值，所以在程序中需要将角度转换为弧度。请参照实用函数栏目中的函数：
http://www.mjtd.com/function/list.asp?id=279&ordertype=bysort&orderkey=38
页:
[1]