[求助]：求助能否用lisp编写一个可以更改图层名的程序

zhangzg1203 · 发表于 2008-6-1 10:50:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

小弟近期在单位受领导之托，将原工程所有图纸（6、7千张图纸）的图层更改为客户标准。请各位老大看能否帮忙小弟。
我们原来都是用天正CAD做的图，图层一般都是自动生成的。后面更改了些（也就是说现在的图纸里有天正自带的英文图层，也有客户标准图层），现在客户那边做了个标准，图层全部都用数字01~63层来代表（香港公司）求助各位大佬。我是想利用LSP程序来快速的更改。不知能不能做到、如何来实现。谢谢！

zxq0220 · 发表于 2008-6-1 11:09:35

;更改层名晓东 zxq0220 2008.6.1
(defun renla (oldname newname)
(setvar "CMDECHO" 0)
(command "-rename" "LA" oldname newname)
(setvar "CMDECHO" 1)
(princ)
)

Underway · 发表于 2008-6-1 13:47:41

应可以用脚本来处理
写好脚本下班前启动....
有样本会比较好编程调试

or Use ObjectDBX
you may search:
http://www.google.com/search?com ... %3Dlang_en&aq=f

zhangzg1203 · 发表于 2008-6-3 20:35:52

可以讲得具体点嘛，如何实现呢？

不是很明白啊！

麻烦您了。可以讲细点嘛。。谢谢

ppoopp · 发表于 2008-6-4 17:18:47

比较困难，不过应该可以解决

clearlai · 发表于 2008-6-6 12:29:17

思路：（笨方法）
1，获取图形所有图层名，分别采用楼上rename进行oldlayer变成newlayer
2，如果你要更改的层名存在则change你该层的所有实体到新层，
3，如果发现该层你没rename的新层，则提示用户输入新层名。
。。。。。
图形太多，请高手考虑能对一批cad进行修改，还有就是获取图名前执行purge一下，对没用的图层进行清理。

single-yu · 发表于 2008-6-6 20:48:40

你学学lisp，就可以了

dhs313 · 发表于 2009-4-3 18:03:10

牛人！！！

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求助能否用lisp编写一个可以更改图层名的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子