用户登陆
站点日历
站点统计
最新评论
极坐标和极坐标排序 [ 日期：2008-11-21 ] [ 来自：'平面极坐标
Function PMJZB(P As Variant, ByRef JZB As Variant)
Dim Temp(1) As Double
'半径
Temp(0) = Sqr((P(0) ^ 2 + P(1) ^ 2))
'角度
Dim L As AcadLine
Set L = ThisDrawing.ModelSpace.AddLine(P, Point3D(0, 0, 0))
Temp(1) = L.angle
JZB = Temp
End Function
Function PMJZB(P As Variant, ByRef JZB As Variant)
Dim Temp(1) As Double
'半径
Temp(0) = Sqr((P(0) ^ 2 + P(1) ^ 2))
'角度
Dim L As AcadLine
Set L = ThisDrawing.ModelSpace.AddLine(P, Point3D(0, 0, 0))
Temp(1) = L.angle
JZB = Temp
End Function
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |