请教高手，画出的图为什么会跑掉？

newguest · 发表于 2004-9-20 19:22:00

我尝试写一个缓冲区的程序，代码如下：
(defun c:ahs()
   (VL-LOAD-COM)
   (setq AcadObject (vlax-get-acad-object)
AcadDocument (Vla-get-ActiveDocument Acadobject)
mSpace (vla-get-ModelSpace Acaddocument)
)
   (setq ent (car (entsel)))
   (setq vlaent (vlax-ename->vla-object ent))
   (setq offsetobj (vla-Offset vlaent 1.0))
   (setq offsetobj (vlax-variant-value offsetobj))
   )
为什么画出来的线总是跑掉呢？好像与当前数据不是一个坐标系统，怎么才能处理这样的情况呢？