查图中各种直径的圆个数,可以快速查出图上有几种直径，并统计出各种直径的数量-(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 el)) 2 4))) 获得直径

　　(print zj)

　 (setq zj-j (cons zj zj-j))

　 (print zj-j)

　 (setq i (1+ i))

　 )

　 (setq zj-h (VL-SORT zj-j　<))

(repeat (length zj-h)

　(setq zj-n　(- (length zj-j) (length (vl-remove-if　(lambda (x) (= x (nth n zj-h))) zj-j))))

　(print (strcat "直径" (itoa (nth n zj-h))　"　"　(itoa zj-n) "个"))

　(setq n (1+ n))

　)

(princ))