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

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

谢谢，学习了

你有种再说一遍

# 装饰器模式
以前我总是想,为什么存在这样奇怪的模式,都写在同一个类上面写完就好了呀.
后来遇到了序列化,发现数据类要纯粹,不能耦合多种方法,不然肉眼比较字段存在困难,以至于出现能省则省的写法.
那么方法提供在哪里呢?这要说到,曲线为什么没有Length属性?
很多人都这样想过,如果有就方便多了,为什么桌子就是不这样提供呢?
想必很多人都是直接写扩展方法来处理不同的图元...这样做虽然没错,只是设计模式用起来就知道爽了.
其实桌子是暴露最底层,上层的话会用一个装饰类提供方法,在装饰类上面通过if/switch/map来处理不同图元,然后暴露一个Length属性.
这样它们就能ent.Length了!!!
这样封装的好处是什么?把底层暴露,把好用的东西藏起来!!!

补充在此文章下面
http://bbs.mjtd.com/thread-191057-1-1.html

muai2010

不错支持下的