CAD自动编写页码的代码

作者: 人间草木为伴 | 来源:发表于2020-06-08 18:26 被阅读0次

原始代码，输入ppp启动

(defun C:ppp()
(setq TextHeight (getreal"\n文字高度：bai"))
(setq StartPage (getint"开始页码："))
(setq TotalPage (getint"总页du数："))
(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"))
)
)
)

修改代码，输入ppp启动

(defun C:ppp()
(setq TextHeight (getreal"\n文字高度"))
(setq StartPage (getint"开始页码："))
(setq pt (getpoint "插入点：\n"))
(while pt
(COMMAND "TEXT" pt TextHeight 0 (strcat "总页次：" (itoa StartPage) ))
(setq StartPage (1+ StartPage))
(if (> StartPage TotalPage)
(setq pt nil)
(setq pt (getpoint "\n插入点：\n"))
)
)
)