cad圖框頁碼自動遞增？

提供兩種方法：

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；頁碼的格式可根據要求進行修改，比如有的只有頁碼沒有頁數等。