[LISP函数]：好郁闷，南方的图用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)
)