查看某一对象是否有此属性

DCMZ

举个例子，有一段弧线，弧线是没有lengh属性的，我一旦用(vla-get-Length V)便会报错，我无法接收这个错误值。
有没有办法接收这个错误值

黄翔

也可以采用这种

2. (if (vlax-property-available-p obj 'Length)
   
3.     (setq len (vla-get-Length obj))
   
4.   )

(if (vlax-property-available-p obj 'Length)<br />     (setq len (vla-get-Length obj))<br />   )

liuhe

将参数表传递给指定函数并截取错误

(vl-catch-all-apply 'function list)
确定参数是否是 vl-catch-all-apply 返回的错误对象

(vl-catch-all-error-p arg)

从错误对象返回字符串

(vl-catch-all-error-message error-obj)

DCMZ

liuhe 发表于 2024-11-5 10:15
将参数表传递给指定函数并截取错误

(vl-catch-all-apply 'function list)

谢谢，马上试下

DCMZ

liuhe 发表于 2024-11-5 10:15
将参数表传递给指定函数并截取错误

(vl-catch-all-apply 'function list)

成功了，谢谢

llsheng_73

1. (if(VL-CATCH-ALL-ERROR-P(setq l(VL-CATCH-ALL-APPLY(function vlax-get-property)(list(vlax-ename->vla-object(car(entsel)))'length))))(VL-CATCH-ALL-ERROR-MESSAGE l)l)

(if(VL-CATCH-ALL-ERROR-P(setq l(VL-CATCH-ALL-APPLY(function vlax-get-property)(list(vlax-ename->vla-object(car(entsel)))'length))))(VL-CATCH-ALL-ERROR-MESSAGE l)l)

DCMZ

黄翔 发表于 2024-11-5 12:29
也可以采用这种

谢谢，学习了

DCMZ

llsheng_73 发表于 2024-11-5 13:40

谢谢，学习了