河伯 发表于 2003-5-22 08:43:00

如何截获(vl-cmdf)函数的错误以进行处理？

(defun c:Test (/ ep1 ep2)
(setq ep1 (entsel "\n选择第一个对象:"))
(setq ep2 (entsel "\n选择第二个对象:"))
(vl-cmdf "_.fillet" ep1 ep2)
;;当ep1和ep2无法构成倒角时，程序继续运行到结束，
;;而命令行一直提示选择第二个对象
;;如何截获(vl-cmdf)函数的错误以进行处理？
(princ "\nTest")
(princ)
)

南子 发表于 2003-5-22 10:40:00

用(getvar 'LASTPROMPT)察看一下命令行的上一个字符串是否为你所需要的内容

河伯 发表于 2003-5-22 13:20:00

该方法可以判断无法倒角，问题是怎么结束程序，不让命令行始终提示选择第二个目标。

龙龙仔 发表于 2003-5-22 13:53:00

改用command可以嗎?(command "_.fillet" EP1 EP2 ^C)

河伯 发表于 2003-5-22 17:19:00

试过，(command)也不行。

龙龙仔 发表于 2003-5-23 07:59:00

(command "_.fillet" EP1 EP2 ^C)

河伯 发表于 2003-5-23 09:39:00

很好，由此导出以下两种方法...

(command "_.fillet" EP1 EP2 ^C)等于

1。
(command "_.fillet" EP1 EP2)
(command);或(command ^C)

2。
(vl-cmdf "_.fillet" EP1 EP2)
(vl-cmdf);不能用(vl-cmdf ^C)

加上(getvar "cmdnames")判断，问题解决。
页: [1]
查看完整版本: 如何截获(vl-cmdf)函数的错误以进行处理？