菜鸟求教修改图层名问题

夕阳以西

(defun c:11( /  )
(vl-cmdf "-rename" "la" "a" "b")
  (princ)
)


想在上面那段命令里面加入如下判断：如果图纸中包含“a”图层，则修改为“b”，如果无“a”图层，则不需任何操作。请问应如何来写

荒野孤行

1. ;;;***改图层名 程序开始***
   
2. (defun C:T1 ()
   
3.   (princ "\n功能：快速更改图层名。")
   
4.   (setvar "cmdecho" 0)
   
5.   (initget "D S")
   
6.   (if (not (setq kw
   
7.                   (getkword
   
8.                     "\n选择方式：[更改当前图层名(D)/更改所选图元所在图层的名称(S)]<D>"
   
9.                   )
   
10.            )
    
11.       )
    
12.     (setq kw "D")
    
13.   )
    
14.   (if (= kw "D")
    
15.     (setq laynam (getvar "CLAYER"))        ;获取当前图层
    
16.     (progn
    
17.       (setq ent           (entsel "\n请选择需要修改图层名的图元对象：")
    
18.             entnam (car ent)
    
19.             entdat (entget entnam)
    
20.       )
    
21.       (setq laynam (cdr (assoc 8 entdat))) ;获取所选图元的图层名
    
22.     )
    
23.   )
    
24.   (setq        newlaynam
    
25.          (getstring (strcat "\n请输入新的图层名："))
    
26.   )                                        ;输入新的图层名
    
27.   (if (and (not (tblsearch "LAYER" newlaynam)) (/= laynam "0"))
    
28.                                         ;若新图层名与图档中的图层名未重名，且对象图层不是0图层时；那么执行更改图层名
    
29.     (command "rename" "la" laynam newlaynam)
    
30.     (progn (princ "\n所选当前层可能为0图层或者图层名与已有的图层名相重复，程序无效。\n")
    
31.            (exit)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )
    
36. ;;;***改图层名 程序结束***
    

;;;***改图层名 程序开始***<br /> (defun C:T1 ()<br />   (princ "\n功能：快速更改图层名。")<br />   (setvar "cmdecho" 0)<br />   (initget "D S")<br />   (if (not (setq kw<br />                   (getkword<br />                     "\n选择方式：[更改当前图层名(D)/更改所选图元所在图层的名称(S)]<D>"<br />                   )<br />            )<br />       )<br />     (setq kw "D")<br />   )<br />   (if (= kw "D")<br />     (setq laynam (getvar "CLAYER"))        ;获取当前图层<br />     (progn<br />       (setq ent           (entsel "\n请选择需要修改图层名的图元对象：")<br />             entnam (car ent)<br />             entdat (entget entnam)<br />       )<br />       (setq laynam (cdr (assoc 8 entdat))) ;获取所选图元的图层名<br />     )<br />   )<br />   (setq        newlaynam<br />          (getstring (strcat "\n请输入新的图层名："))<br />   )                                        ;输入新的图层名<br />   (if (and (not (tblsearch "LAYER" newlaynam)) (/= laynam "0"))<br />                                         ;若新图层名与图档中的图层名未重名，且对象图层不是0图层时；那么执行更改图层名<br />     (command "rename" "la" laynam newlaynam)<br />     (progn (princ "\n所选当前层可能为0图层或者图层名与已有的图层名相重复，程序无效。\n")<br />            (exit)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;;***改图层名 程序结束***<br />

鱼与熊掌

(tblsearch table-name symbol [setnext])

Andyhon

加入如下判断

(tblobjname table-name symbol)

Command: (tblobjname "LAYER" "0")
<Entity name: 7ef53c70>

Command: (tblobjname "LAYER" "空")
nil

ZZXXQQ

2. (defun c:11 ()
   
3. (if (tblsearch "LAYER" "a")
   
4.   (vl-cmdf "-rename" "la" "a" "b")
   
5. )
   
6. (princ)
   
7. )

(defun c:11 ()<br /> (if (tblsearch "LAYER" "a")<br />   (vl-cmdf "-rename" "la" "a" "b")<br /> )<br /> (princ)<br /> )

夕阳以西

谢谢诸位高手，问题解决，不胜感激

paulpipi

学习了