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

游牧

请问下：命令：(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

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

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

vectra

多个空格么 很明显。。

lisperado

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

空格没影响

1. (length (list 'car)) ;1
   
2. ;(car)
   
3. (length (list ' '' car)) ;1
   
4. ;((QUOTE (QUOTE CAR)))

(length (list 'car)) ;1 <br /> ;(car) <br /> (length (list ' '' car)) ;1<br /> ;((QUOTE (QUOTE CAR)))

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

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

游牧

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

谢谢谢谢谢谢谢谢谢谢！