提供兩種方法：
1.lisp程式(defun C:ppp() (setq TextHeight (getreal"\n文字高度：")) (setq StartPage (getint"開始頁碼：")) (setq TotalPage (getint"總頁數：")) (setq pt (getpoint "插入點：\n")) (while pt (COMMAND "TEXT" pt TextHeight 0 (strcat "第" (itoa StartPage) "頁" " 共" (itoa TotalPage) "頁\n")) (setq StartPage (1+ StartPage)) (if (> StartPage TotalPage) (setq pt nil) (setq pt (getpoint "\n插入點：\n")) ) ))對該程式進行簡單的修改，即可進行文字的批次遞增。
2.vb程式先在excel中形成頁碼，然後依次匯入cad中。vb程式參見“將excel中的資料匯入cad的vb程式”
http://bbs.hcbbs.com/thread-313983-1-1.html
提供兩種方法：
1.lisp程式(defun C:ppp() (setq TextHeight (getreal"\n文字高度：")) (setq StartPage (getint"開始頁碼：")) (setq TotalPage (getint"總頁數：")) (setq pt (getpoint "插入點：\n")) (while pt (COMMAND "TEXT" pt TextHeight 0 (strcat "第" (itoa StartPage) "頁" " 共" (itoa TotalPage) "頁\n")) (setq StartPage (1+ StartPage)) (if (> StartPage TotalPage) (setq pt nil) (setq pt (getpoint "\n插入點：\n")) ) ))對該程式進行簡單的修改，即可進行文字的批次遞增。
2.vb程式先在excel中形成頁碼，然後依次匯入cad中。vb程式參見“將excel中的資料匯入cad的vb程式”
http://bbs.hcbbs.com/thread-313983-1-1.html
頁碼的格式可根據要求進行修改，比如有的只有頁碼沒有頁數等。