关于葛老的镜像命令改造LISP 新手有疑问

ysq101 · 发表于 2013-6-26 19:17:09

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;=========================={ 镜像命令改造 wowan1314 }=================================
;;;功能：如果想删除源对象，点下即可，(省的输入Y才能删除)
(defun c:YY-MIRROR ( / SS PT)
(SETQ SS (SSGET ":L"))
(command "MIRROR" SS "" PAUSE PAUSE)
(SETQ PT (GETPOINT "\n选点删除源对象<右键保留>:"))
(IF PT (COMMAND "Y") (COMMAND ""))
(PRINC)
)

(IF PT (COMMAND "Y") (COMMAND "")) 能不能详解这句判断是什么意思??
例:如果什么什么就什么什么
什么什么是什么意思????

laibinwu · 发表于 2013-6-26 19:23:36

本帖最后由 laibinwu 于 2013-6-26 19:42 编辑

如果 PT 不为 nil，执行(COMMAND "Y")，否则执行(COMMAND "")
nil就是尚未被赋值的意思

st788796 · 发表于 2013-6-26 21:29:00

按病毒的思路，undefun mirror,用这个替换

ysq101 · 发表于 2013-6-27 10:44:56

laibinwu 发表于 2013-6-26 19:23
如果 PT 不为 nil，执行(COMMAND "Y")，否则执行(COMMAND "")
nil就是尚未被赋值的意思

这样理解可以吗？？
比如这样写
(if (pt=T)             ;如果PT =真
(COMMAND "Y")    ；就执行这段
(COMMAND "")       ；否则执行这段
)

高手就是因为省略了T就看不懂了。。。新手伤不起啊

newer · 发表于 2013-6-27 11:05:27

本帖最后由 newer 于 2013-6-27 11:06 编辑

ysq101 发表于 2013-6-27 10:44
这样理解可以吗？？
比如这样写
(if (pt=T) ;如果PT =真

LISP是表求值语言，对变量，或一个表都有值，这个值要不是NIL，要不就是非NIL，不是NIL的值逻辑判断时候等价于T的。

其实所有语言都一样，0是NULL，非0都为TRUE

所以：如果pt 为T的话

是一样的，你记住一点就是了，逻辑判断是NIL和非NIL

用 if pt 的好处是，只要有值，都为真，不一定非要T，让你更灵活了。

ll_j · 发表于 2013-6-27 11:10:53

ysq101 发表于 2013-6-27 10:44
这样理解可以吗？？
比如这样写
(if (pt=T) ;如果PT =真

按Alisp的语法，p=T应该是(= pt T)，但这里的pt是正常输入的点，T是一个逻辑判断符号，不可能是相等的，所以这种说法是不对的，正确说法应该是(/= pt nil)（即pt非无值），Lisp的nil是很强大的。

laibinwu · 发表于 2013-6-27 11:22:18

没有(pt=T) 这种写法。应该是这样写的(= pt T)

pt只有可能是nil或者点的表所以不可能是T。所以你的下面的这段每次都是执行(COMMAND "")

laibinwu · 发表于 2013-6-27 11:26:11

你看下if函数的含义，如果判断表达式不等于nil就执行前一句，否则后一句。

还是之前的那句话：如果 PT 不为 nil，执行(COMMAND "Y")，否则执行(COMMAND "")

ysq101 · 发表于 2013-6-27 13:11:50

ll_j 发表于 2013-6-27 11:10
按Alisp的语法，p=T应该是(= pt T)，但这里的pt是正常输入的点，T是一个逻辑判断符号，不可能是相等的， ...

谢谢前辈的解答...我明白了~~~~

ysq101 · 发表于 2013-6-27 13:18:48

laibinwu 发表于 2013-6-27 11:26
你看下if函数的含义，如果判断表达式不等于nil就执行前一句，否则后一句。

还是之前的那句话：如果 PT ...

谢谢大大的热心回答

ysq101 · 发表于 2013-6-27 13:20:48

newer 发表于 2013-6-27 11:05
LISP是表求值语言，对变量，或一个表都有值，这个值要不是NIL，要不就是非NIL，不是NIL的值逻辑判断时候 ...

原来是这样子啊~~`谢谢大大的解答

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

[求助] 关于葛老的镜像命令改造LISP 新手有疑问