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)
)
代码完。