[求助]：取得外边红线

goim00

如附件：

我有两个长方形形成一个十字状要如何才可取得最外边红线连接部分呢？？

其馀不要～～

**并不是要组合面域,而是要保留红线其馀删除……

雪山飞狐(lzh)

没有做错误判断,你自己加上吧
Sub tttt()
    Dim r1 As AcadLWPolyline, r2 As AcadLWPolyline, pnt, p1, p2, p3, p4
    Dim rtmp As AcadLWPolyline, ptmp
    ThisDrawing.Utility.GetEntity r1, pnt
    ThisDrawing.Utility.GetEntity r2, pnt
   
    r1.GetBoundingBox p1, p2
    r2.GetBoundingBox p3, p4
    If p1(1) > p3(1) Then
        Set rtmp = r1: Set r1 = r2: Set r2 = rtmp
        ptmp = p1: p1 = p3: p3 = ptmp
        ptmp = p2: p2 = p4: p4 = ptmp
    End If
    Dim pts(23) As Double
    pts(0) = p1(0): pts(1) = p1(1)
    pts(2) = p2(0): pts(3) = p1(1)
    pts(4) = p2(0): pts(5) = p3(1)
    pts(6) = p4(0): pts(7) = p3(1)
    pts(8) = p4(0): pts(9) = p4(1)
    pts(10) = p2(0): pts(11) = p4(1)
    pts(12) = p2(0): pts(13) = p2(1)
    pts(14) = p1(0): pts(15) = p2(1)
    pts(16) = p1(0): pts(17) = p4(1)
    pts(18) = p3(0): pts(19) = p4(1)
    pts(20) = p3(0): pts(21) = p3(1)
    pts(22) = p1(0): pts(23) = p3(1)
    ThisDrawing.ModelSpace.AddLightWeightPolyline(pts).Closed = True
    r1.Delete
    r2.Delete
End Sub

goim00

先下载回去调试一下吧！！
thx..


...........
奇怪！！没有动作ㄟ？？