如何测试vla-offset是否可以操作

njcknfy

当对一个闭合的线实体进行向内侧使用offset命令时,如果偏移的距离过大,CAD会提示无法偏移该对象,但如果使用vla-offset时,程序就出错,有什么办法可以在执行vla-offset前测试一下此操作是否可以进行

alin

试试vl-catch-all-apply或测试返回值是否为空

njcknfy

试过了,可以,贴一段代码大家共享吧,解释一下erase_obj1是待偏移对象的VLA 对象名称pianyidist是偏移距离,主要是红色的这段代码供大家参考

(if (= (vl-catch-all-error-p
  (setq offsetobj (vl-catch-all-apply 'vla-offset
          (list erase_obj1 pianyidist))))
 nil)
  (progn

 (setq offsetobj      (vlax-safearray-get-element (vlax-variant-value offsetobj) 0))))