所选对象不在同一图层时，如何输出一个值并退出循环

慧不绘

我正在自学lisp编程，也是因工作需要，编程中遇到了如下的问题。
需要判断选择的对象是否在同一图层，如果在同一图层，则输出 图层名称，并赋值给layname；如果有一个对象不在同一图层，则输出“不同层”，并赋值给layname，同时退出循环（对多个对象进行图层判断，应该是要用到循环的吧！）。我的问题是如何在不同层时，进行赋值并退出循环，往下走程序（这部分程序是主程序的一小部分），忘指点，谢谢！

llsheng_73

1. (if(setq m 1 s(ssget))
   
2.   (setq layname(cdr(assoc 8(entget(ssname s 0))))
   
3.           l(sslength s)
   
4.           layname(progn(while(< m l)
   
5.                    (if(=(cdr(assoc 8(entget(ssname s m))))layname)
   
6.                      (setq m(1+ m))
   
7.                      (setq layname"不同层"m l)))
   
8.                    layname)))

(if(setq m 1 s(ssget))<br />   (setq layname(cdr(assoc 8(entget(ssname s 0))))<br />           l(sslength s)<br />           layname(progn(while(< m l)<br />                    (if(=(cdr(assoc 8(entget(ssname s m))))layname)<br />                      (setq m(1+ m))<br />                      (setq layname"不同层"m l)))<br />                    layname)))

1. (if(setq m 1 s(ssget))
   
2.   (setq layname(cdr(assoc 8(entget(ssname s 0))))
   
3.    l(sslength s)
   
4.    layname(while(< m l)
   
5.      (if(=(cdr(assoc 8(entget(ssname s m))))layname)
   
6.        (setq m(1+ m)layname layname)
   
7.        (setq m l layname"不同层")))))

(if(setq m 1 s(ssget))<br />   (setq layname(cdr(assoc 8(entget(ssname s 0))))<br />    l(sslength s)<br />    layname(while(< m l)<br />      (if(=(cdr(assoc 8(entget(ssname s m))))layname)<br />        (setq m(1+ m)layname layname)<br />        (setq m l layname"不同层")))))

前边一段当只选择一个图元时会返回该图元的图层名
后边一段当只选择一个图元时返回nil,只有所选择图元不少于两个时才会返回图层名或者"不同层"

慧不绘

llsheng_73 发表于 2016-3-17 10:28
前边一段当只选择一个图元时会返回该图元的图层名
后边一段当只选择一个图元时返回nil,只有所选择图元 ...

解决了，谢谢