游牧 发表于 2018-11-19 16:34:49

(vl-catch-all-apply ' car ent)错误 -已经解决

本帖最后由 游牧 于 2018-11-20 10:47 编辑


http://bbs.xdcad.net/
请问下：命令：(setq ent （entsel))
返回：(<图元名: 3ec4d448> (210.757 -129.298 0))
命令：(setq tt (vl-catch-all-apply ' car ent)) ；有问题？

返回：#<%catch-all-apply-error%>
命令：(vl-catch-all-error-message a)

返回："参数太多"

(setq tt (vl-catch-all-apply ' car ent))这条语法哪里错了？
查了帮助和其他例子(setq d2 (VL-CATCH-ALL-APPLY 'sqrt(list(- (* dd dd) (* d1 d1))))) 也是这么用的。
求大神指点。

lisperado 发表于 2018-11-19 20:07:09

(setq tt (vl-catch-all-apply 'car (list ent)))

vectra 发表于 2018-11-19 20:40:41

多个空格么 很明显。。

lisperado 发表于 2018-11-20 09:35:50

vectra 发表于 2018-11-19 20:40
多个空格么 很明显。。

空格没影响
(length (list 'car)) ;1
;(car)
(length (list ' '' car)) ;1
;((QUOTE (QUOTE CAR)))

如apply参数需包含表
(apply '函数 (list 参数) )

p/s: 抱歉无意重回帖，只是不知点评要如何能删除？

游牧 发表于 2018-11-20 10:00:48

lisperado 发表于 2018-11-19 20:07


谢谢谢谢谢谢谢谢谢谢！
页: [1]
查看完整版本: (vl-catch-all-apply ' car ent)错误 -已经解决