查图中各种直径的圆个数,可以快速查出图上有几种直径，并统计出各种直径的数量-(DEFUN C:cbj () (PRINC "查直径及个数") (setq ss (ssget ((0 . "CIRCLE")))) (setq i 0 n 0 zj-j nil) (repeat (sslength ss) (setq el (entget (ssname ss i))) (setq zj (read (rtos (cdr (assoc 40

peditLISP.rar : (defun c:nn() (princ "\n Chon doi tuong : ") (setq ss (ssget)) (command "PEDIT" "m" ss "" "y" "J" "" "") (princ) )-peditLISP.rar : (defun c:nn() (princ "\n Chon doi tuong : ") (setq ss (ssget)) (com