提供两种方法:
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;页码的格式可根据要求进行修改,比如有的只有页码没有页数等。