vl-catch-all-apply用在vl-cmdf不管用了

yrgui · 发表于 2011-3-13 16:44:21

(setq err (vl-catch-all-apply 'vl-cmdf (list "_insert" "yr_ZH" pnt "1" "1" ang str)))
(if (vl-catch-all-error-p err)
(princ "\n程序在搜索路径未找到必须的属性块：yr_ZH。")
)

vl-cmdf在操作前检查参数，怎么上面检查不出来？

谢谢

Gu_xl · 发表于 2011-3-13 20:32:35

本帖最后由 Gu_xl 于 2011-3-13 20:33 编辑

vl-cmdf在传递命令前先计算每个参数，所以检测到了无效值，就不再继续执行命令，返回nil，此时vl-cmdf相对于vl-catch-all-apply 来说，其是正确执行的，所以vl-catch-all-apply 就不管用了！

yrgui · 发表于 2011-3-14 08:21:14

本帖最后由 yrgui 于 2011-3-15 14:17 编辑

Gu_xl 发表于 2011-3-13 20:32
vl-cmdf在传递命令前先计算每个参数，所以检测到了无效值，就不再继续执行命令，返回nil，此时vl-cmdf相对于 ...

(if (not (vl-cmdf "_insert" "yr_ZH" pnt "1" "1" ang str))
(princ "\n程序在搜索路径未找到必须的属性块：yr_ZH。"))

复制代码

这样也能达到我要的效果吗？

Gu_xl · 发表于 2011-3-14 14:15:20

回复 yrgui 的帖子

vl-cmdf 只能检测参数有不正确的，但不能知道哪个参数有误！

yrgui · 发表于 2011-3-14 14:33:32

回复 Gu_xl 的帖子

嗯，如果它检测到参数错误返回nil吗？
没有错误时返回什么，是T？

Gu_xl · 发表于 2011-3-14 14:56:25

回复 yrgui 的帖子

你试下不就知道了？

yrgui · 发表于 2011-3-14 18:53:05

回复 Gu_xl 的帖子

谢谢，试过了，还是没起作用，呵呵
把vl-cmdf换成command的的话出错了会自己退出，勉强

*error*函数用了，效果也不是很好。可能是我对*error*的理解有问题

yrgui · 发表于 2011-3-14 18:59:47

yrgui 发表于 2011-3-14 14:33
回复 Gu_xl 的帖子

嗯，如果它检测到参数错误返回nil吗？

vl-cmdf根本就等不到那一刻，就是说vl-cmdf根本就不可能有返回nil的时候，因为还没到这一步就出错中断了

呵呵。

Gu_xl · 发表于 2011-3-14 19:10:04

回复 yrgui 的帖子

试着运行一下下面的代码：
(if (vl-cmdf "line" '(1 0) '(2 "a") "") (princ "正确！") (princ "错误！"))
你就知道了

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

[讨论] vl-catch-all-apply用在vl-cmdf不管用了