cad自动填写页码lisp,CAD 中 如何自动添加页码?
发布日期:2021-06-27 04:24:33 浏览次数:1 分类:技术文章

本文共 534 字,大约阅读时间需要 1 分钟。

提供两种方法:

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

3b8ebca43e48f9b8616f937482b9f20a.gif

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

转载地址:https://blog.csdn.net/weixin_42166105/article/details/116279971 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:sybase oracle dblink,[转载]DbLink 实现从Oracle 连接 SQLServer 2000
下一篇:php7.0发布时间,PHP7.0.6正式发布

发表评论

最新留言

关注你微信了!
[***.172.111.71]2022年05月22日 08时23分37秒

关于作者

    喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!

最新文章