求助一个逻辑判断条件的写法

QiaoCheng · 发表于 2013-5-26 14:13:51

Lisphk 发表于 2013-5-26 13:16
老兄，那代码调好后，发上来啊，想看看你写的，那样写帖子，可能让斑竹扣分哦。

这样不知道行不行，请指点
(defun c:tt ( / ee p2 pt str)
  (if (setq pt (getpoint "\n点取第一点: "))
(progn
   (setq str (grread))
   (cond
      ((= 2 (car str)) (setq ee (entsel "\n选一个图中的多边形: ")))
      ((= 3 (car str)) (setq p2 (getcorner pt "\n点取窗口右上点: ")))
   )
   (if (or ee p2)
      (alert "执行其他代码")
      (alert "已退出")
   )
)
(alert "已退出")
  )
)

Lispboy · 发表于 2013-5-26 14:35:04

QiaoCheng 发表于 2013-5-26 14:13
这样不知道行不行，请指点
(defun c:tt ( / ee p2 pt str)
(if (setq pt (getpoint "\n点取第一点: " ...

老兄，我感觉你把问题弄复杂了，在IF里面基本的AND ,OR组合就能设定逻辑结果，你把GRREAD都给写出来了。

QiaoCheng · 发表于 2013-5-26 14:36:59

呵呵，另一种写法嘛，或者我弄错你的意图

账号		自动登录	找回密码
密码			立即注册

[求助] 求助一个逻辑判断条件的写法