[编程申请]：可以用LSP编写合并图层的程序嘛？

zhangzg1203 · 发表于 2008-6-4 08:51:43

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

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

×

刚进一家设计院，在深圳，由于原工程是设计师用天正CAD绘制的图纸。固图纸里面有很多天正CAD自动生成的一些图层（英文图层），现在客户那边需要我们交电子版图纸时，要按他们的标准（合同）收图，他们的标准一张图只能出现01~63个图层。全由数字代表。不可以出现英文或其它字符的图层名，因图纸量太多啦。想请教下各位大侠，及版主，高手帮忙，小弟在此谢过了。
我想用LSP编写一个可以合并图层的程序。或可以批量更改图层名的程序，比如：DOTE改成01层，AXIS改成03层，AXIS-TEXT改成05层等这样，可是我不会。还请高手指点。（可以写得具体点嘛，我比较笨）

左图为现在我们单位的图层情况。右边为客户标准图层。

有哪位好心人帮帮忙吧！如何实现图层名合并。或是有更好更快的方法；

panther_lb · 发表于 2008-6-25 18:59:44

不懂,

cqxt00 · 发表于 2008-7-6 12:26:08

(defun c:tc4()
  (setq en1(entget(car(nentsel "欲合并图层对象："))))
  (setq en2(entget(car(nentsel "合并最终图层对象："))))
(command "_.change" (ssget "x" (list (cons 8 (cdr(assoc 8 en1 ))))) "" "p" "la" (cdr(assoc 8 en2 )) "")
  )

zxq0220 · 发表于 2008-7-6 21:44:08

……
(command "-rename" "la" "DOTE" "01")
……

zxq0220 · 发表于 2008-7-6 21:55:48

……
(command "-rename" "la" "DOTE" "01")
……

zhangzg1203 · 发表于 2008-7-7 11:14:54

谢谢各位.小弟.先试下.

junemarker · 发表于 2010-1-14 13:11:27

试一试希望管用

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

[编程申请]：可以用LSP编写合并图层的程序嘛？

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

相关帖子