如何讓CAD頁碼自動(dòng)生成？

提供兩種方法：

1.lisp程序(defun C:ppp() (setq TextHeight (getreal" 文字高度：")) (setq StartPage (getint"開始頁碼：")) (setq TotalPage (getint"總頁數(shù)：")) (setq pt (getpoint "插入點(diǎn)： ")) (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 " 插入點(diǎn)： ")) ) ))對(duì)該程序進(jìn)行簡單的修改，即可進(jìn)行文字的批量遞增。

2.vb程序先在excel中形成頁碼，然后依次導(dǎo)入cad中。vb程序參見“將excel中的數(shù)據(jù)導(dǎo)入cad的vb程序”http://bbs.hcbbs.com/thread-313983-1-1.html；頁碼的格式可根據(jù)要求進(jìn)行修改，比如有的只有頁碼沒有頁數(shù)等。