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

为什么我又用不了呢？
页: [1]
查看完整版本: 双向偏移删除原图元（新手问题）