提供兩種方法：

1.lisp程式(defun C:ppp() (setq TextHeight (getreal" 文字高度：")) (setq StartPage (getint"開始頁碼：")) (setq TotalPage (getint"總頁數：")) (setq pt (getpoint "插入點： ")) (while pt (COMMAND "TEXT" pt TextHeight 0 (strcat "第" (itoa StartPage) "頁" " 共" (itoa TotalPage) "頁 ")) (setq StartPage (1+ StartPage)) (if (> StartPage TotalPage) (setq pt nil) (setq pt (getpoint " 插入點： ")) ) ))對該程式進行簡單的修改，即可進行文字的批次遞增。

2.vb程式先在excel中形成頁碼，然後依次匯入cad中。vb程式參見“將excel中的資料匯入cad的vb程式”http://bbs.hcbbs.com/thread-313983-1-1.html；頁碼的格式可根據要求進行修改，比如有的只有頁碼沒有頁數等。