请各位高手帮我看一下在这里IF为什么没有用?

aytxq

请各位高手帮我看一下在这里IF为什么没有用?

(defun c:ct(/ ss1 ss2 x)
  (setvar "cmdecho" 1)
  (setq ss1 (ssget))
    (vl-cmdf ".Copy" ss1 "" 0 0)
  (setq ss2 (getstring))
    (cond
      ((/= ss2 "") (vl-cmdf ".Chprop" ss1 "" "layer" ss2 ""))
      ((setq x (cdr (assoc 8 (entget (car(entsel))))))
       (vl-cmdf ".Chprop" ss1 "" "layer" x ""))
           );cond end
  (setvar "cmdecho" 1)
  (princ)
)

就是COND为什么不用能IF代替?

aytxq

为什么我改成这样就没有办法用了

(if (/= ss2 "")

      (vl-cmdf ".Chprop" ss1 "" "layer" ss2 ""))
      ((setq x (cdr (assoc 8 (entget (car(entsel))))))
       (vl-cmdf ".Chprop" ss1 "" "layer" x ""))
           );if end

byghbcx

aytxq发表于2008-7-12 20:56:00为什么我改成这样就没有办法用了(if (/= ss2 \"\")       (vl-cmdf \".Chprop\" ss1 \"\" \"layer\" ss2 \"\"));if到这里就结束了      (i

muwind

弱弱的问下

(if (/= ss2 "")...) 和

(if ss2 ...)

有什么  区别

muwind

通常情况下，if 函数在测试结果不为 nil 的情况下，仅对一个 then 表达式进行求值。在本例中由于使用了 progn 函数，可以实现对两个表达式的求值：

(if (= a b)

  (progn

    (princ "\nA = B ")

    (setq a (+ a 10) b (- b 10))

  )

)

byghbcx

muwind发表于2008-7-12 22:11:00弱弱的问下 (if (/= ss2 \"\")...) 和 ss2/=\"\",是空字符，但不是nil(if ss2 ...)  ss2不是nil是为Ｔ有什么  区别

getstring 与getint 在空输入时的返回值不一样，前者返回""，后者返回nil

muwind

byghbcx发表于2008-7-12 22:46:00getstring 与getint 在空输入时的返回值不一样，前者返回\"\"，后者返回nil

哦 原来如此，谢谢，我很少用这两个函数....

aytxq

aytxq发表于2008-7-12 20:56:00为什么我改成这样就没有办法用了(if (/= ss2 \"\")       (vl-cmdf \".Chprop\" ss1 \"\" \"layer\" ss2 \"\"))      ((setq x (cdr (asso

我的原意是想用IF通(/= ss2 "")来完成两个表达式之间的选择:

    (vl-cmdf ".Chprop" ss1 "" "layer" ss2 ""))

  和  

  ((setq x (cdr (assoc 8 (entget (car(entsel))))))
       (vl-cmdf ".Chprop" ss1 "" "layer" x ""))
可是不知道为什么不行,只好用COND了

你给的方法是用两个IF分别来完成两个表达式的求值.虽然解决了问题,却还是没有解决我的疑惑.还请你再给我说明一下吧.谢谢!

aytxq

不好意思.刚才那些话是对byghbcx.

byghbcx

((setq x (cdr (assoc 8 (entget (car(entsel))))))
       (vl-cmdf ".Chprop" ss1 "" "layer" x ""))

前面加上progn