【求助】如何实现双向净偏移!~

daidong013 · 发表于 2011-6-28 11:46

本帖最后由 daidong013 于 2011-6-28 12:35 编辑

现在有好多双线偏移的程序，打个比方输入数据50后，生成了以线为中心往两边各偏移了50的线。
如果想达到输入50后以原线为中心往两边各偏移25（加起来一共是50）然后直接删除原线要怎么弄！~
最好还可以有记忆的功能！~~

zhynt · 发表于 2011-6-28 17:07

本帖最后由 zhynt 于 2011-6-28 22:30 编辑

将上面的程序稍许改了一下：

(defun c:oo (/ dist obj)
(setq dist (getdist (strcat "输入偏移总距离:<"
(rtos (getvar "OFFSETDIST"))
">"
)
)
)
(if (null dist)
(setq dist (getvar "offsetdist"))
(setvar "offsetdist" dist)
)
(if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
(progn
(vlax-for obj (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-offset obj (/ dist 2.0))
(vla-offset obj (/ dist -2.0))
)
(command "erase" ss "")
)
(vlax-release-object obj)
)
)

669423907 · 发表于 2011-6-28 12:35

帮顶！我也很想要一个（默认不删除原对象，可选删除）

qcw911 · 发表于 2011-6-28 14:15

双向偏移删除原图元（新手问题）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850

qcw911 · 发表于 2011-6-28 14:17

双向偏移删除原图元（新手问题）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850

daidong013 · 发表于 2011-6-28 16:37

顶起来啊！~~

daidong013 · 发表于 2011-6-28 18:01

本帖最后由 daidong013 于 2011-6-28 18:01 编辑

回复 zhynt 的帖子

就是这样的效果！~~Z版大侠是个活雷锋！

~~ 感谢！~~

(vlax-release-object obj)
)
)
少了一个 “ ）”请Z版大侠加一下！~~

ljpnb · 发表于 2011-6-28 22:30

多年以前编得双向偏移命令,跟6#楼差不多,一直在用,感觉挺实用的.

zhynt · 发表于 2011-6-28 22:31

回复 daidong013 的帖子

可能是复制时掉了。

jiegousheng · 发表于 2011-6-30 09:31

刚用来偏移矩形，发现偏移方向不统一，有的往外偏有的往里偏，请教zhynt如何解决

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

[函数] 【求助】如何实现双向净偏移!~

本帖子中包含更多资源

点评

评分