cad自动填写页码lisp,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

页码的格式可根据要求进行修改，比如有的只有页码没有页数等。