慧不绘 发表于 2016-3-16 08:56:08

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

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

llsheng_73 发表于 2016-3-17 10:28:58

本帖最后由 llsheng_73 于 2016-3-17 10:35 编辑

(if(setq m 1 s(ssget))
(setq layname(cdr(assoc 8(entget(ssname s 0))))
          l(sslength s)
          layname(progn(while(< m l)
                   (if(=(cdr(assoc 8(entget(ssname s m))))layname)
                     (setq m(1+ m))
                     (setq layname"不同层"m l)))
                   layname)))
(if(setq m 1 s(ssget))
(setq layname(cdr(assoc 8(entget(ssname s 0))))
   l(sslength s)
   layname(while(< m l)
   (if(=(cdr(assoc 8(entget(ssname s m))))layname)
       (setq m(1+ m)layname layname)
       (setq m l layname"不同层")))))
前边一段当只选择一个图元时会返回该图元的图层名
后边一段当只选择一个图元时返回nil,只有所选择图元不少于两个时才会返回图层名或者"不同层"

慧不绘 发表于 2016-3-17 12:00:58

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

解决了，谢谢
页: [1]
查看完整版本: 所选对象不在同一图层时，如何输出一个值并退出循环