[编程申请]：按条件替换图块

qqdswan

我现在有一个这样的问题，CAD图中所有的图块全部在同一个图层，但名称不一样，（有几种名称不同的图块，数量很多），能不能按图块名称来选择图块并把他转移到相应的图层中去，
版本要在R14上实现。
谢谢了
我现在急需！
谢谢了

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        la0 (getvar "CLAYER")
   
4.         ss  (ssget "X" '((0 . "INSERT")))
   
5.         i   -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq la (cdr (assoc 2 (entget s1))))
   
9.     (mkla la)
   
10.     (command "chprop" s1 "" "la" la "")
    
11.   )
    
12.   (setvar "CLAYER" la0)
    
13.   (princ)
    
14. )
    
15. (defun mkla (name)
    
16.   (If (= (Tblsearch "layer" name) nil)
    
17.     (Command "layer" "m" name "")
    
18.     (Command "layer" "t" name "s" name "")
    
19.   )
    
20. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        la0 (getvar "CLAYER")<br />         ss  (ssget "X" '((0 . "INSERT")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq la (cdr (assoc 2 (entget s1))))<br />     (mkla la)<br />     (command "chprop" s1 "" "la" la "")<br />   )<br />   (setvar "CLAYER" la0)<br />   (princ)<br /> )<br /> (defun mkla (name)<br />   (If (= (Tblsearch "layer" name) nil)<br />     (Command "layer" "m" name "")<br />     (Command "layer" "t" name "s" name "")<br />   )<br /> )[/FONT]

qqdswan

谢谢了，不过我现在又有一个新问题了，能不能帮我编一个修改层名的程序，实现功能如下：
把层名改为相应的新名，比如把1层（层名叫1）改为www
谢谢

xyp1964

2. [FONT=courier new](command "rename" "la" "1" "www")[/FONT]

[FONT=courier new](command "rename" "la" "1" "www")[/FONT]

qqdswan

不好意思，能不能再vba下编写，我的cad是2002版本的，所以能不能用vba编写修改层名的程序？

xyp1964

最初由 qqdswan 发布
[B]不好意思，能不能再vba下编写，我的cad是2002版本的，所以能不能用vba编写修改层名的程序？ [/B]

与版本有啥关系？
不会vba，求别人吧！

qqdswan

不好意思，我发的贴子没有说明白。
我重新发了一个《如何更改cad图层名称》，里面说的很清楚，
不好意思，能不能请xyp1964再看一下，帮我再重新编一下，
我这里万分的感谢。
真是不好意思。

小玩童

把你的要求写详细些，寄到我的信箱，我给你写，my9683@21cn.com