AutoLISP查询椭圆弧的相关属性

AutoLISP查询椭圆弧的相关属性，得到椭圆弧的中心、长轴、短轴、周长和面积，代码如下。

(defun c:elcppt    ()
    (setq ss (car (entsel "\n请选择所要查询的椭圆弧：")))
    (setq ssob (vlax-ename->vla-object ss))
    (setq len (vlax-curve-getdistatparam
          ssob
          (vlax-curve-getendparam ssob)
          )
    )
    (Setq center (Vlax-Get ssob 'Center))
    (Setq maxr (Vlax-Get ssob 'MajorRadius))
    (Setq minr (Vlax-Get ssob 'MinorRadius))
    (Setq area (Vlax-Get ssob 'Area))
    (print (strcat "中心："
           (rtos (car center))
           ","
           (rtos (cadr center))
       )
    )
    (print (strcat "长轴：" (rtos maxr)))
    (print (strcat "短轴：" (rtos minr)))
    (print (strcat "周长："
           (rtos len)
       )
    )
    (print (strcat "面积：" (rtos area)))
    (princ)
)

代码完。