高手来看怎么用VBA合并多线段?

sailor538

如题,大家帮帮忙?

shirazbj

把每段线的坐标取出来，然后判断谁和谁相连，最后把端点坐标按顺序赋给一点坐标数组，生成一个polyline.

sailor538

ths,不知道用PEDIT怎么做,下面可以选择一条多线段,不知道怎么选择多条
这是我在AUTODESK论坛上面看到的

ThisDrawing.SendCommand "pedit " & "(handent """ & _
curEnt.Handle & """) "

cangcang

编辑多段线，多段线各端点作为数组集合即可

 

紫色狂澜

关注

正发愁呢

自己读取坐标连接出了点问题

关注中

wyj7485

这是我用的程序

2. [code]Sub EditPline()
3. On Error Resume Next
4. Dim sset As AcadSelectionSet
5. ThisDrawing.SelectionSets.Item("LineSet").Delete
6. Set sset = ThisDrawing.SelectionSets.Add("LineSet")
7. sset.SelectOnScreen
8. ThisDrawing.SendCommand "_pedit" & vbCr & "M" & vbCr & _
9. "p" & vbCr & vbCr & "Y" & vbCr & "J" & _
10. vbCr & vbCr & vbCr
11. End Sub

[code]Sub EditPline() On Error Resume Next Dim sset As AcadSelectionSet ThisDrawing.SelectionSets.Item("LineSet").Delete Set sset = ThisDrawing.SelectionSets.Add("LineSet") sset.SelectOnScreen ThisDrawing.SendCommand "_pedit" & vbCr & "M" & vbCr & _ "p" & vbCr & vbCr & "Y" & vbCr & "J" & _ vbCr & vbCr & vbCr End Sub

[/code]

sailor538

多谢wyj7485 ,很好,强