[编程申请]：怎样在vba中将首尾相接的line转化为polyline

xiaodang123

各位高手：
   我将面域击碎成line，怎样将他们首尾相接连成polyline
       急急急！

guojianguo1012

直接调用sendcommand命令就可以

xiaodang123

楼上的！为什么不好使啊？？？？？
Public Sub joinpoly()
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("joinpoly")) Then
Set sset = ThisDrawing.SelectionSets.Item("joinpoly")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("joinpoly")
sset.SelectOnScreen
Dim det As String
det = axSSet31spEnts(sset)
sset.Delete
ThisDrawing.SendCommand "_PEDIT" & vbCr & "M" & vbCr & det & vbCr & vbCr & "J" & vbCr & vbCr & vbCr
End Sub
Public Function axSSet31spEnts(ByVal sset As AcadSelectionSet) As String
If sset.Count = 0 Then Exit Function
Dim entHandle As String
Dim strEnts As String
entHandle = sset.Item(0).Handle
strEnts = "( handent" & Chr(34) & entHandle & Chr(34) & ")"
If sset.Count > 1 Then
Dim i As Integer
For i = 0 To sset.Count - 1
entHandle = sset.Item(i).Handle
strEnts = strEnts & vbCr & "( handent" & Chr(34) & entHandle & Chr(34) & ")"
Next i
End If
axSSet31spEnts = strEnts
End Function

macula55

有什么错误提示呢？具体说一下！