CAD自动编写页码的代码
2020-06-08 本文已影响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"))
)
)
)