请问怎样保存前一次选择的图层信息？

Ccccccc

下面一个例子是根据图层选中物体，多选的，请问怎样保存前一次选择的图层，下次执行时直接按空格就可以再次选择前一次选中的图层，谢谢！


(Defun C:tt (/ CNAME ENT SS lay n)
    (princ"\n请选择需要选择的层中的一个物体: ")
    (setq ss (ssget))
    (repeat (setq n (sslength ss))
      (setq ent (ssname ss (setq n (1- n))))
      (setq la (cdr (assoc 8 (entget ent))))
      (if (not (member la lay)) (setq lay (cons la lay)))
      )
    (setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))
    (princ (strcat "\n选中了图层: \"" cname "\""))
    ;;
    (princ "\n框选范围....")
    (setq ss (ssget (list (cons 8 cname))))
    (sssetfirst NIL SS)
   )
)

Ccccccc

等答案，谢谢！

Gu_xl

Ccccccc 发表于 2012-3-31 11:41
等答案，谢谢！

1. (Defun C:tt (/ CNAME ENT SS lay n)
   
2.   (if *cname* (princ (strcat "\n上一次选中图层:"  *cname*)))
   
3.     (princ"\n请选择需要选择的层中的一个物体: ")
   
4.     (setq ss (ssget))
   
5.   (if ss
   
6.     (progn
   
7.     (repeat (setq n (sslength ss))
   
8.       (setq ent (ssname ss (setq n (1- n))))
   
9.       (setq la (cdr (assoc 8 (entget ent))))
   
10.       (if (not (member la lay)) (setq lay (cons la lay)))
    
11.       )
    
12.     (setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))
    
13.     (setq *cname* cname)
    
14.       (if (null cname) (setq cname *cname*))
    
15.   (if cname
    
16.     (progn
    
17.     (princ (strcat "\n选中了图层: \"" cname "\""))
    
18.     (princ "\n框选范围....")
    
19.     (setq ss (ssget (list (cons 8 cname))))
    
20.     (sssetfirst NIL SS)
    
21.     )
    
22.     )
    
23. 
    
24.     )
    
25.     )
    
26.   (princ)
    
27. )
    
28. 
    

(Defun C:tt (/ CNAME ENT SS lay n)<br />   (if *cname* (princ (strcat "\n上一次选中图层:"  *cname*)))<br />     (princ"\n请选择需要选择的层中的一个物体: ")<br />     (setq ss (ssget))<br />   (if ss<br />     (progn<br />     (repeat (setq n (sslength ss))<br />       (setq ent (ssname ss (setq n (1- n))))<br />       (setq la (cdr (assoc 8 (entget ent))))<br />       (if (not (member la lay)) (setq lay (cons la lay)))<br />       )<br />     (setq cname (apply 'strcat (apply 'mapcar (cons 'strcat (list lay (mapcar '(lambda (x) ",") lay))))))<br />     (setq *cname* cname)<br />       (if (null cname) (setq cname *cname*))<br />   (if cname<br />     (progn<br />     (princ (strcat "\n选中了图层: \"" cname "\""))<br />     (princ "\n框选范围....")<br />     (setq ss (ssget (list (cons 8 cname)))) <br />     (sssetfirst NIL SS)<br />     )<br />     )<br /> <br />     )<br />     )<br />   (princ)<br /> )<br /> <br />

Ccccccc

Gu_xl 发表于 2012-3-31 11:58

谢谢版主，不过好像有点问题，只能显示前一次选择的图层，不能根据上次一选择的图层再进行选择

Gu_xl

Ccccccc 发表于 2012-3-31 16:25
谢谢版主，不过好像有点问题，只能显示前一次选择的图层，不能根据上次一选择的图层再进行选择

(princ "\n框选范围....")
    (setq ss (ssget (list (cons 8 cname))))
    (sssetfirst NIL SS)
==》
(while (progn
(princ "\n框选范围....")
    (setq ss (ssget (list (cons 8 cname))))
)
    (sssetfirst NIL SS)
)

e2002

那样你得用外部变量或者纪录在 xdata,xrecord, 文件,注册表等途径

Ccccccc

Gu_xl 发表于 2012-3-31 16:51
(princ "\n框选范围....")
    (setq ss (ssget (list (cons 8 cname))))
    (sssetfirst NIL SS)

这样还是有问题

Ccccccc

e2002 发表于 2012-3-31 16:51
那样你得用外部变量或者纪录在 xdata,xrecord, 文件,注册表等途径

我不用那么复杂，只要本次加载过程可以保存就可以了

e2002

那就外部变量保存得了。

Ccccccc

请问要怎样处理？我不太懂，谢谢