关于PolarPoint的用法

ObjectArx

Vlisp代码
(polar '(2 2 0)  0.174444  5)

C#代码
double[] baspt=new double[]{2,2,0};
double angle=0.174444;
double dist=5;
Object polarpt=PolarPoint(baspt,angle,dist);


VBA代码
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)