[鏈接](http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112234&extra=page%3D4%26filter%3Dtypeid%26typeid%3D107&page=2) 注：本例是統計的圓，可以根據需要修改為統計其他圖形 效果圖  源碼： ``` ;;;統計相同矩形邊長的數量. ;;;編寫日期2013-07-05 ;;;編寫: CADMAN ;;;子函數 （求矩形邊長） ;(defun qbc (pts / b h) ;(setq b (distance (car pts) (cadddr pts))) ;(setq h (distance (car pts) (cadr pts))) ;(cons (max b h) (min b h)) ;);結束qbc (defun c:ng:count ( / bclst pts ss el bc\_new i p2 p3 m x1 x2) (princ "\\n請框選:") (setq ss (ssget '((0 . "circle")))) (setq i 0 bclst nil pts nil) (repeat (sslength ss) (setq el (entget (ssname ss i))) (setq pts nil) (foreach pt el (if (\= (car pt) 40) (setq pts (cons (cdr pt) pts)))) (setq bclst (cons pts bclst)) (setq i (1+ i)) );repeat (setq bc\_new nil) (while bclst (setq m (car bclst) x1 (length bclst)) (setq bclst (vl-remove m bclst)) (setq x2 (length bclst)) (setq n (\- x1 x2)) (setq bc\_new (cons (list m n) bc\_new)) ) (setq p2 (getpoint "\\起始位置")) (setq p3 (polar p2 0 100)) (command "\_.TEXT" "c" (polar p2 (\* pi 0.5) 30) "10" "0" "半徑");指定書寫標題的位置 (command "\_.TEXT" "c" (polar p3 (\* pi 0.5) 30) "10" "0" "數量") (foreach bg bc\_new ;設定重復次數為新表的長度 (command "\_.TEXT" "c" p2 "10" "0" (strcat (rtos (car (car bg)) 2))) (command "\_.TEXT" "c" p3 "10" "0" (cadr bg)) (setq p2 (polar p2 (\* pi 1.5) 30)) (setq p3 (polar p2 0 100)) ) (princ) ) ```