关于多段线的有趣有挑战性的问题

congcong

如下图所示，右边的多段线图形是从左边那个图形复制出去的，求左边的图形要往右复制多长距离,复制后得到的右边的图形与左边的图形只有一个交点。（且右边的图形再往右移动的话就再也不会与左边的图形有交点。）

lht

从左图顶点为起点，沿复制移动的方向画一直线pla，pla与左图有两个交点，求出两交点坐标，两坐标距离即是所求。

894560869

自动排关注中>>>>>>>>>

alin

由于多段线形状的不确定性，我觉得问题如果用搜索法来解较直观。首先，根据多段线的尺寸选择搜索步长，然后把多段线复制后一步步往右移动，直到它们俩只有一个交点或不相交为止。

Ea

先求BOX，将PL向右复制，步长为BOX底边。然后求出原PL的X最大点和复制PL的X最小点，用这两个点分别向右和左作射线，剩下的就是比较和验证几个交点了。

meflying

观察了一下，我认为可以搜索一个图形其同一水平线的X最小值和最大值之差，差的最大值就是该图形该复制的距离。。。这个想法未使用数学方法证实，不知是否正确

meflying

楼上的，按楼主的意思右边的图应该继续往右移，而按我的“理论”，你所示的并非X之差最大处，所以这个图并没有特殊之处


用肉眼观察，这个图形的“一个交点”应该在右边那个钩的顶点。。。

841594

对于某些特殊的情况如简单的box，这个问题就没有解。

torcky

不谈图元重叠的情况，我觉得“这个值”应该是一些向外凸的点决定的，比较这些点在图形内x方向上的距离，大者即是。

无痕

又想了一下,meflying的分析是对的.但是用cad编程实现起来还没想到什么好办法.

congcong

我非常同意四楼的观点，因为我也是这么考虑的。我要写一个程序验证一下。

alin

;This routine works for plines contain no arcs only. I have modified ;mccad’s routine GETINTERPOINT here. Thanks. (defun C:GETD (/ obj vertice i ax-vertice max-width width intpts XlineObj objcopy)
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument))
(setq obj (vlax-ename->vla-object (car (entsel "\nSelect a pline: "))))
(if (= (vlax-curve-isClosed obj) nil)
(vla-put-closed obj :vlax-true))
(setq vertice (vlax-safearray->list
(vlax-variant-value (vla-get-coordinates obj))))
(setq ax-vertice '() i 0)
(repeat (/ (length vertice) 2)
(setq ax-vertice (append ax-vertice
(list (vlax-3d-point (nth i vertice) (nth (1+ i) vertice)))))
(setq i (+ i 2))
);repeat
(setq max-width 0)
(foreach vertex ax-vertice
(setq xlineobj (vla-addXline mSpace vertex
(vla-PolarPoint (vla-get-utility AcadDocument) vertex 0 1)))
(setq intpts (GetInterPoint obj xlineobj))
(vla-erase xlineobj)
(if (> (length intpts) 1)
(setq width (abs (- (car (vl-sort (mapcar 'car intpts) '<))
(car (vl-sort (mapcar 'car intpts) '>)))))
);end_if
(if (> width max-width)
(setq max-width width))
);foreach
(setq objcopy (vla-copy obj))
(vla-move objcopy (vlax-3d-point '(0 0 0)) (vlax-3d-point (list max-width 0 0)))
(princ (strcat "\nDistance to move: " (rtos max-width)))
(princ)
)
;;;;
(defun GetInterPoint (ax_ent_1 ax_ent_2 / intpoints i)
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
(setq intpoints (vlax-variant-value intpoints))
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
(progn
(setq intpoints (vlax-safearray->list intpoints))
(setq i 0)
(setq ptlist '())
(repeat (/ (length intpoints) 3)
(setq ptlist (append ptlist (list (list (nth i intpoints)
(nth (1+ i) intpoints)
(nth (+ i 2) intpoints)))))
(setq i (+ i 3))
);repeat
ptlist
);progn
nil
);end_if
)