好郁闷，南方的图用vla-Offset，遇到难题了，各位进来帮帮忙

enixing

很郁闷，在做一个插件的时侯，发现在一张图里面会把原来的线删除掉，查来查去，原来是vla-Offset在这图上有问题。。。

情况是：vla-Offset后，应该原多段线保留，再偏移出一条新的线，不过唯独在这幅图上面，原线被删除了，只剩下新的线条，经过测试，好像cass出的图都有这个问题。。。郁闷死了，小弟学艺不精，搞不清是什么情况，请各位大虾帮忙看看是什么回事。。。

(defun C:sa (/ ss fd ang offsetObj plineObj)
  (setq ss (ssget ":s" '((0 . "*POLYLINE"))))
  (if (car (atoms-family 1 '("vl-load-com")))
    (vl-load-com)
  )
  (setq vlaobj (vlax-ename->vla-object (ssname ss 0)))
  (command "area" "o" (ssname ss 0))
  (setq tem (getvar "area"))
;;;;偏移
  (vla-Offset vlaobj 1)
)

caoyin

我试了，没问题

enixing

神奇了，我们办公室里面的几台电脑都试过了，都有这个问题。。。

ljpnb

我也试过了，没问题

NetBee

先运行一下(setq *error* nil)试试

enixing

崩溃了，到底是什么情况。。。我截个图给大家看看

 

mccad

这个函数是有这个BUG，解决方法就是在偏移前先复制，偏移后再将原偏移的对象删除，因为原偏移对象会被移到原点附近。另外一个办法就是不要用AX方法来偏移，而直接用command中的偏移。

caogis

是不是跟系统变量有关呢？

当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0

czcxxx

谢谢分享，学习下！！！！！！！！！！！！