[鏈接](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)
)
```
- 前言
- 概述
- autolisp簡介(初)
- 搭建編程環境
- Visual Lisp 編輯器的使用(初)
- vs code的使用
- 基本概念(初)
- 表達式
- 數據類型
- 整數類型
- 實數類型
- 字符串類型
- 列表
- 選擇集類型
- 實體名稱(ename)
- vla對象(vla-object)
- 文件描述符
- 符號和變量(初)(精)
- 源碼文件
- 變量
- 變量的類型
- 變量賦值
- 變量求值
- 預定義變量
- 數值處理
- 字符串處理
- 顯示和輸出
- 控制字符
- 列表操作
- 重點函數列表
- 尺寸標注
- 文字固定偏移
- 填充
- 填充到指定的矩形
- 計算填充面積并標注
- 其他
- 繪制任意曲線的等分線
- 原位縮放
- 修改填充基點和角度
- 批量標注多段線長度
- 統計相同直徑的圓的數量
- z坐標置0
- 生成隨機數
- 圖層
- 相交
- intersectWith無法求交點的幾種情形
- 向量和矩陣
- 向量加減乘除
- 向量長度
- 求單位向量
- 向量點積
- 向量叉積
- 命令和交互
- 調用command命令
- 多段線
- 獲取多段線頂點
- UCS
- 有關ucs的命令和系統變量
- 通過command操作ucs
- 草圖設置
- 捕捉
- 柵格
- 正交
- 對象捕捉
- 坐標系和變換(高級)
- 任意軸算法
- 坐標系
- trans
- geomcal
- autocad開發相關網站
- 小技巧匯總
- 判斷點是否在封閉圖形內
- 安裝
- acad啟動加載順序
- 安裝包制作
- 添加文件到啟動組
- 添加目錄到搜索路徑
- 對話框和圖形界面
- DCL
- openDCL
- 菜單和自定義界面
- 菜單文件
- 自定義文件
- 函數參考
- quote