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