如何让CAD页码自动生成
发布网友
发布时间：2022-04-21 01:27
共1个回答
热心网友
时间：2022-05-10 23:36
提供两种方法：
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程序”
