单选最佳方案，有可能只是暂时的，做个备忘录先！

#!lisp
(prompt "\\n选择对象:")
(while (or
                (not e)
                (/= (car e) 3)
                (not (setq e (nentselp "" (cadr e))))
                (/= (type (setq e (car (last e)))) \'ENAME)
                (/= (cdr (assoc 0 (setq tmp (entget e)))) "INSERT")
                (/= (cdr (assoc 8 tmp)) "螺栓")
                (/= (substr (cdr (assoc 2 tmp)) 1 1) "M")
             )
    (setq e (grread))
    (if (= (car e) 11)
        (exit)
    )
)        

优点：

循环比较稳定,误点、点空或点错，程序依然保持健壮。
点击鼠标不滚屏，保持命令行的干净整洁，坚持环保。
鼠标维持十字光标形态不变，便于远距离精确获取目标。
OR 运算保证条件依次判断到 nil ，避免 LISP 错误消息喷涌。
一举多得，能够获取鼠标、键盘等多种用户输入。

问题：

菜单文件中的 ^C 只能破坏循环，不能中止循环…… ~.~

笑谈VTC32当前的几个特性：

• 向日葵
  • 如果说塔脚是根，塔身是干，横担是枝，那我想，号圈就是叶子或者花朵。现在的号圈就是这样的，无论你站在铁塔的哪个方向看，号圈永远笑脸相迎！
• 橡胶树
  • 普通的树伤到了皮，过段时间就没事了，而橡胶树倘若破了皮，就会不停的留出橡胶来，让你感觉很棘手。这听起来是个麻烦，但也是个提示，如果哪根角钢被人为破坏了，直到输出的时候才被发现，那就太晚了。
• 文曲竹
  • 如松之劲，如竹之节。用竹节来比喻钢板是再合适不过了。古人以竹喻君子为人正直、宁折不弯。今天我们以竹节喻钢板。竹子折断时不会断节，铁塔加工却在钢板上最薄弱，这就需要我们正确对待，不能再忽视钢板的厚度问题了。
• 车前子
  • 在最艰难的环境里表现出最强的生命力，“傲视车轮”，不知道这样褒奖合不合适。 VTC32现在最大的努力就是做到这一点，不忽视每一个细节，力求在稳定性上通过最苛刻的测试。