双向偏移删除原图元（新手问题）

qcw911 · 发表于 2011-1-25 15:38:44

本帖最后由 qcw911 于 2011-1-25 15:39 编辑

双向偏移的源程序
1根线双向偏移一定的距离
如何将偏移后，中间的原图元删除呢
高手帮忙

(defun c:oo (/ dist obj)
  (setq dist (getdist (strcat "櫾岦曃堏揑嫍棧<" (rtos (getvar "OFFSETDIST"))
      ">"
      )
   )
  )
  (if (null dist)
(setq dist (getvar "offsetdist"))
(setvar "offsetdist" dist)
  )
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
(vlax-for obj (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object)))
(vla-offset obj dist)
(vla-offset obj (* dist -1))
)
(vlax-release-object obj)
)
)

Gu_xl · 发表于 2011-1-25 15:42:22

(vla-delete obj)

qcw911 · 发表于 2011-1-25 16:18:55

回复 Gu_xl 的帖子

学习了谢谢斑竹
非常感谢

pb.v@163.com · 发表于 2011-6-23 14:27:24

如果改成输入的是总距离就好了，现在输入的是单边的距离，跟用O没有太大的两样，总距离就不一样了，

lhtfh · 发表于 2011-10-2 21:53:40

重点在 (vla-offset obj (* dist -1))

fawn_lgc · 发表于 2012-2-21 13:10:21

我那绘制铁路的功能就是看了你的帖子做出了的
(vla-offset obj dist)
(vla-offset obj (* dist -1))
非常感谢

longer1000 · 发表于 2012-3-8 20:08:03

明总厉害啊

smartstar · 发表于 2012-4-29 11:05:48

学习了，谢谢。

328302216 · 发表于 2012-10-7 15:20:43

楼主你要的那种程序结果程序怎么改，可以给我发个吗？QQ ：328302216

freeok · 发表于 2012-11-14 21:29:07

为什么我又用不了呢？

账号		自动登录	找回密码
密码			注册

[基础] 双向偏移删除原图元（新手问题）