请教：）

iJero

(defun  C:TT( / LAY I)
   (vl-load-com)
   (vlax-for  I  (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))   
       (if (wcmatch (strCase (vla-get-Name I)) "A*,B*,C*,D*")
           (progn
                  (setq LAY (cons (vla-get-Layer I) LAY) )        ;;;;;;;;;;;;;;LINE 1            
                  (princ (strcat "[" (vla-get-Name I) "]\n") )               )                           
       )   

   )         
   (setq LAY (vl-sort LAY '<) )
   (vlax-for  I  (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
          (princ (strcat "=" (vla-get-Name I) "=\n") )
   )
   (princ)
)

上述代码的目的是想把A、B、C、D开头的图层全部找出来，
但我只要增加了 LINE1 那句代码，其后面的所有代码均失效，能运行，但不会执行我要的操作（如PRINC之类）

ivde

2. 
   
3. (defun c:tt (/ lyrs)
   
4.   (vlax-for lyr        (vla-get-layers
   
5.                   (vla-get-activedocument (vlax-get-acad-object))
   
6.                 )
   
7.     (if
   
8.       (and (wcmatch (strcase (setq name (vla-get-name lyr))) "[ABCD]*")
   
9.            (not (member name lyrs))
   
10.       )
    
11.        (setq lyrs (cons name lyrs))
    
12.     )
    
13.   )
    
14.   (foreach x (vl-sort lyrs '<)
    
15.     (princ (strcat "\nName = " x))
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:tt (/ lyrs)<br />   (vlax-for lyr        (vla-get-layers<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />                 )<br />     (if<br />       (and (wcmatch (strcase (setq name (vla-get-name lyr))) "[ABCD]*")<br />            (not (member name lyrs))<br />       )<br />        (setq lyrs (cons name lyrs))<br />     )<br />   )<br />   (foreach x (vl-sort lyrs '<)<br />     (princ (strcat "\nName = " x))<br />   )<br />   (princ)<br /> )

iJero

ivde 发表于 2015-11-25 11:31

但我在 你的 IF then 后面增加一句            (princ (strcat "\nName **** " lyr))
后 其后的代码也无效了，何解？
         

masterlong

问题在(vla-get-Layer I)这一句
查一下vla-get-Layer适用的对象是啥

ivde

iJero 发表于 2015-11-25 12:53
但我在 你的 IF then 后面增加一句            (princ (strcat "\nName **** " lyr))
后 其后的代码也无 ...

lyr是OBJECT不是string，自然不能Strcat

iJero

ivde 发表于 2015-11-25 13:19
lyr是OBJECT不是string，自然不能Strcat

我对lyr 加了(vla-get-Name Lyr)

iJero

问题貌似解决了，受ivide的提醒，可能是哪个LIST里混编了OBJECT 和STRING ，在仔细查看中