三维多线段如何转化为二维多线段？如何编辑三维多线段。打断为何不能用？？急问。谢

tnt33

三维多线段如何转化为二维多线段？如何编辑三维多线段。打断为何不能用？？急问。谢谢。[br]三维多线段如何转化为二维多线段？如何编辑三维多线段。打断为何不能用？？急问。谢谢。

gzy

2. Sub test3Dto2D()
3. '创建选择集
4. Dim selset As AcadSelectionSet
5. Dim cor3 As Variant
6. Dim n As Integer
7. Dim a As Integer
8. 'a = 0
9. Set selset = ThisDrawing.SelectionSets.Add("sset")
10. selset.Select acSelectionSetAll         '遍历选择集
11. Dim entry As AcadObject
12. Dim pl As AcadLWPolylineFor Each entry In selset
13.      If entry.EntityName = "AcDb3dPolyline" Then
14.                cor3 = entry.Coordinates
15.                n = (UBound(cor3) + 1) * 2 / 3
16.                Dim pt() As Double
17.                ReDim pt(0 To n - 1) As Double                       For i = 0 To (n - 2) Step 2
18.                                pt(i) = cor3(a)
19.                                pt(i + 1) = cor3(a + 1)
20.                                a = a + 3
21.                        Next i
22.                        
23.                Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt)
24.                '继承特性
25.                pl.Layer = entry.Layer
26.                pl.color = entry.color
27.                entry.Delete
28.                a = 0
29.        End If
30. Next entryselset.Delete '避免下次重复End Sub

Sub test3Dto2D() '创建选择集 Dim selset As AcadSelectionSet Dim cor3 As Variant Dim n As Integer Dim a As Integer 'a = 0 Set selset = ThisDrawing.SelectionSets.Add("sset") selset.Select acSelectionSetAll         '遍历选择集 Dim entry As AcadObject Dim pl As AcadLWPolylineFor Each entry In selset      If entry.EntityName = "AcDb3dPolyline" Then                cor3 = entry.Coordinates                n = (UBound(cor3) + 1) * 2 / 3                Dim pt() As Double                ReDim pt(0 To n - 1) As Double                       For i = 0 To (n - 2) Step 2                                pt(i) = cor3(a)                                pt(i + 1) = cor3(a + 1)                                a = a + 3                        Next i                                        Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pt)                '继承特性                pl.Layer = entry.Layer                pl.color = entry.color                entry.Delete                a = 0        End If Next entryselset.Delete '避免下次重复End Sub

tnt33

版主就是版主。


运行后3d polyline转变为polyline.


谢谢~