如何将串列中的图层名导出做为指令的关键词?

lincctw_ccl

各位好!

想请各位帮忙修个程序

下列 程序已得出选择图的串列

但我不知如何再把串列中的图层名再依序拆出

我现在想做的动作是 依 其求出的串列层名

依序单开其图层, 回车后续 单开串行中的第2项

依此类推 直至依续 单开图层至串列中所有图层名

谢谢!!

(defun c:GGGG(/ Lyrss)

(setvar "cmdecho" 0)

(Princ"\n选取对象:")

  (and

  (setq ss (ssget))

  (setq i -1)

  (while (setq ee (ssname ss (setq i (1+ i))))

    (cond

     ((setq Lyrss (cons (cdr (assoc 8 (entget ee))) Lyrss)))

     ((member (setq lyr (cdr (assoc 8 (entget ee)))) lyrss))

   )

  );;END WHILE  

(princ "\n对象所在图层:")

(princ lyrss)

  )

(prin1)

)

Andyhon

2. 
   
3. (defun c:GGGG (/ Lyrss)
   
4.   (setvar "cmdecho" 0)
   
5.   (Princ "\n选取对像:")
   
6.   (and
   
7.     (setq ss (ssget))
   
8.     (setq i -1)
   
9.     (while (setq ee (ssname ss (setq i (1+ i))))
   
10.       (cond
    
11.         ((setq Lyrss (cons (cdr (assoc 8 (entget ee))) Lyrss)))
    
12.         ((member (setq lyr (cdr (assoc 8 (entget ee)))) lyrss))
    
13.       )
    
14.     )
    
15.     ;;END WHILE  
    
16.     (princ "\n对像所在图层集:")
    
17.     (princ lyrss)
    
18.     (princ "\n---------------------------")
    
19.     (foreach lyr Lyrss
    
20.       (princ "\n对像所在图层:") (princ Lyr)
    
21.       (command "Layer" "on" Lyr "")
    
22.       (setvar 'Clayer lyr)
    
23.       (command "Layer" "off" (strcat "~" Lyr) "")
    
24.       (grread)
    
25.    )
    
26.    (command "Layer" "on" "*" "")
    
27.   )
    
28.   (prin1)
    
29. )
    

<br /> (defun c:GGGG (/ Lyrss)<br />   (setvar "cmdecho" 0)<br />   (Princ "\n选取对像:")<br />   (and<br />     (setq ss (ssget))<br />     (setq i -1)<br />     (while (setq ee (ssname ss (setq i (1+ i))))<br />       (cond<br />         ((setq Lyrss (cons (cdr (assoc 8 (entget ee))) Lyrss)))<br />         ((member (setq lyr (cdr (assoc 8 (entget ee)))) lyrss))<br />       )<br />     )<br />     ;;END WHILE  <br />     (princ "\n对像所在图层集:")<br />     (princ lyrss)<br />     (princ "\n---------------------------")<br />     (foreach lyr Lyrss<br />       (princ "\n对像所在图层:") (princ Lyr)<br />       (command "Layer" "on" Lyr "")<br />       (setvar 'Clayer lyr)<br />       (command "Layer" "off" (strcat "~" Lyr) "")<br />       (grread)<br />    )<br />    (command "Layer" "on" "*" "") <br />   ) <br />   (prin1)<br /> )<br />

lincctw_ccl

Andyhon 发表于 2014-9-24 14:28

谢谢指点!
问题已解决!