Question

三维多段线怎么转成多段线

如题：三维多段线怎么转成多段线？

Answer 1

三维多段线转成多段线的步骤：

工具/原料：AutoCAD

1、第一步，我们选中需要转成多段线的三维多段线。

2、然后我们输入快捷命令explode并回车。

3、接着炸开后的线段就会变为直线，在输入pe快捷命令。

4、然后会有提示是否将其转换为多段线，默认Y并空格。

5、然后我们在pe命令选项中输入字母J来进行合并。

6、接着合并完成后按下esc退出当前命令，查看当前线段即为二维多段线。

Answer 2

一般情况下三维多段线转不了一般的多段线。
但如果是把三维多段线炸开转成线段后，就可以把他们转成一般的多段线（命令PE)。而且对于同一个平面内的相连线段还可以进一步转为单条多段线，具体操作：先把UCS转到该平面上，输入命令PE，选全部线段，Y(转为多段线)，J（合并），回车，回车。

Answer 3

我自己软件操作过，不知道你们的怎么样，是批量的，步骤：地物编辑-复合线处理-3D转2D-输入（2），选择高程都为0，就能把全部的三维多段线转为一般多段线了。

Answer 4

炸开成直线，修改直线z值，将直线接成多段线。

Answer 5

三维转成二维且连续，二维的高程（标高）值就是一个定值。可以用LISP\VBA编程实现，以三维多段线的第一个点的Z坐标值为转换后二维多段线的标高值。

三维多段线(节点数量不限)：

命令："3dto2d"

转换成多段线

可多条批量选择处理

主要代码

Dim ssddx As AcadSelectionSet, tddx As Acad3DPolyline, FTddx(0) As Integer, FDddx(0) As Variant

Dim retCoord() As Double

Dim i, k As Double

Dim l() As Double

Dim lobj As AcadLWPolyline

Do While ThisDrawing.SelectionSets.Count > 0 '删除所有选择集避免出错

ThisDrawing.SelectionSets.Item(0).Delete

Loop

FTddx(0) = 0: FDddx(0) = "polyLINE"

Set ssddx = ThisDrawing.SelectionSets.Add("ssddx")

ssddx.SelectOnScreen FTddx, FDddx

If ssddx.Count > 0 Then

For Each tddx In ssddx '遍历对象

For i = 0 To UBound(tddx.Coordinates) \ 3

ReDim Preserve l(0 To i * 2 + 1)

l(i * 2) = tddx.Coordinates(i * 3)

l(i * 2 + 1) = tddx.Coordinates(i * 3 + 1)

Next i

Set lobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(l)

lobj.Elevation = tddx.Coordinates(2) '附标高值

lobj.Layer = tddx.Layer

tddx.Delete '删除对象

Next '遍历对象

End If

ssddx.Delete '删除选择集

For i = 0 To UBound(tddx.Coordinates) \ 3

ReDim Preserve l(0 To i * 2 + 1)

l(i * 2) = tddx.Coordinates(i * 3)

l(i * 2 + 1) = tddx.Coordinates(i * 3 + 1)

Next i

Set lobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(l)

lobj.Elevation = tddx.Coordinates(2) '附标高值

lobj.Layer = tddx.Layer