[求助]如何在两个闭合图形间搭桥？

samm

在两个相邻的闭合图形（如圆、矩形或弧形成的）之间加一个宽10或指定宽的桥，并成为一个完整闭合图形。用LISP可以实现吗？请高手指点，多谢了！

ljpnb

我先贴一个,基本可以实现圆和圆弧之间画搭桥,除矩形之外 (defun c:test ()
(vl-load-com)
(setq ent1 (car (entsel "\n选择第一个物体: ")))
(setq ent2 (car (entsel "\n选择第二个物体: ")))
(setq dist (getreal "\n输入搭桥的宽度: "))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq obj1 (vlax-Ename->Vla-Object ent1))
(setq obj2 (vlax-Ename->Vla-Object ent2))
(setq cen-point1 (cdr (assoc 10 (entget ent1))))
(setq cen-point2 (cdr (assoc 10 (entget ent2))))
(command "line" cen-point1 cen-point2 "")
(setq myline0 (entlast))
(setq myline (vlax-Ename->Vla-Object myline0))
(vla-Offset myline (/ dist 2))
(setq offline1 (entlast))
(vla-Offset myline (- (/ dist 2)))
(setq offline2 (entlast))
(setq p01 (cdr (assoc 10 (entget offline1)))
p02 (cdr (assoc 11 (entget offline1)))
p03 (cdr (assoc 10 (entget offline2)))
p04 (cdr (assoc 11 (entget offline2)))
)
(setq p05 (vlax-curve-getClosestPointTo obj2 cen-point1)
p06 (vlax-curve-getClosestPointTo obj1 cen-point2)
)
(setq a1 (list offline1 p01)
a2 (list offline1 p02)
a3 (list offline2 p03)
a4 (list offline2 p04)
a5 (list ent1 p06)
a6 (list ent2 p05)
)
(command "erase" myline0 "")
(command "trim" "" a1 a2 a3 a4 a5 a6 "")
(setvar "osmode" 165)
(setvar "cmdecho" 1)
(princ)
)

samm

多谢了,lipnb。



确实是象你说的直边的图形不可以。另外好象圆的图形是直接在最近的地方搭桥，我想能不能可以不论是哪一类的的图形不用选物体，直接人为选两个图形上的各一个点(由操作的人判断最近的点或适合搭桥的点），在这两个点之间搭桥。

onej

楼主能给个图形看看啊，什么叫做桥？何又叫搭桥？


他们又有什么用呢？

samm

搭桥是为了让那么图形连在一起，如用在数控机床割一些小零件时让这些小零件先连在一起，不会丢。

onej

明白了~~:)

无痕

这不就是求两实体的最近点么.....

ZZXXQQ

按三楼的说法：不一定是最近点呀。

samm

顶一下，还没搞定，哪位出手帮一下。

sieben

1，桥的宽度会不会比两边的图形还大？

2，两边的图形会不会很不规则？

我给个思路：两边的图形都是封闭的，可以生成为Region,桥也生成为Region

最后进行Union再Explode