[编程交流] 查找半径弧

(defun c:Test ()
   (while
    (progn
            (setvar 'errno 0)
        (setq ss (car (entsel "\nSelect Object:")))
                            (cond
                                    ( ( = 7 (getvar 'errno)) (princ "\nNothing Selected."))
                                        ( ( = (cdr (assoc 0 (entget ss))) "LINE") (princ "\nLine Was Picked."))
                                        ( ( = (cdr (assoc 0 (entget ss))) "ARC")
                                          (setq ent (vlax-ename->vla-object ss))
                                          (setq r (vla-get-radius ent))
                                          (princ r)
                                        )
                                )
        )
)
(princ))

8