AutoLISP查询圆弧的相关属性

AutoLISP查询圆弧的相关属性，得到圆心、半径、长度和面积，代码如下。

(defun c:arcppt ()
    (setq ss (car (entsel "\n请选择所要查询的圆弧：")))
    (setq ssob (vlax-ename->vla-object ss))
    (Setq center (Vlax-Get ssob 'center))
    (setq radius (vlax-get ssob 'radius))
    (Setq len (Vlax-Get ssob 'ArcLength))
    (Setq area (Vlax-Get ssob 'area))
    (print (strcat "圆心：" (rtos (car center)) "," (rtos (cadr center))))
    (print (strcat "半径：" (rtos radius)))
    (print (strcat "长度：" (rtos len)))
    (print (strcat "面积：" (rtos area)))
    (princ)
)

代码完。