线不能串连

wyj7485

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

很好用啊