Question

autocad利用vba怎么画双行线，求源码

Answer 1

写了一个，代码如下，偏移对象：

(defun s1605191 (ent1 / &dis1 &ob1)
 (vl-load-com)
 (if (setq &dis1 (getdist "\n请输入偏移距离"))
  (progn
   (setq &ob1 (vlax-ename->vla-object ent1))
   (vla-offset &ob1 &dis1);多段线有方向，偏移也有方向，如果是圆没有方向
  )
 )
)

Answer 2

商业性质没人会给你的，不过可以用动态块来实现。

追问

不是商业性质的，是自己已经画啦一个多段线，想平移一下这个多段线，想通过offset能够自动的平移一下，

追答

说了半天你的意思就是这个命令嘛，CAD自带的。offset

追问

我不是这个意思的，我的意思是自己用程序写的画多段线的代码，然后能够画完之后，可以直接提示选择平移以及平移的距离

追答

那是CAD二次开发，还是商业性质的。要钱。