offset返回值能得到吗?

啵浪鼓

在写一个偏移后将偏移后对象改变图层的命令,遇到某些部分不能往内偏移的如偏移值大于外形时，或者聚合线内部有小点时，程序提示“无法偏移该对象。”，
因为后续写了很多(entlast)最后的对象的命令，会导致此对象未成功偏移会把上一次的对象的图层改变，不想写(exit)来强退，请问如何得到该对象是否偏移成功返回值。

(command "offset" d01a si wznew "")
(command "_.chprop" (entlast) "" "la" "1" "c" "2" "")
...
(command "offset" d01a si wznew "")
(command "_.chprop" (entlast) "" "la" "2" "c" "3" "")
...

Gu_xl

回复 啵浪鼓 的帖子

offset之前储存一个(entlast)图元，offset之后的(entlast)与之前的(entlast)比较是否相同判断offset是否成功！
还有就是使用VL-CATCH-ALL-APPLY和vla-offset函数组合，用VL-CATCH-ALL-ERROR-P判断！

mandala

第一种方法比较直观。

啵浪鼓

谢谢楼上2位大大，我想我知道怎么做了，同楼上大大一样的想法，做比较比较容易，vlisp没怎么接触过!

啵浪鼓

经过一天的摸索，通过图层来判断是不可行，通过(10)的组码好像也不行，偏移成功与不成功，(entlast)取出来没法分辨，纠结中。。。

xyp1964

2. (setq s1 (entlast))
   
3. (command "offset" d01a si wznew "")
   
4. (setq s2 (entlast))
   
5. (if (not (equal s1 s2))
   
6.   (command "_.chprop" s2 "" "la" "1" "c" "2" "")
   
7. )

(setq s1 (entlast))<br /> (command "offset" d01a si wznew "")<br /> (setq s2 (entlast))<br /> (if (not (equal s1 s2))<br />   (command "_.chprop" s2 "" "la" "1" "c" "2" "")<br /> )