[求助]：如何用VBA将首尾相连的直线和弧线转换成一个PLine。

zkycds

如何用VBA将首尾相连的直线和弧线转换成一个PLine？
我找到了用CAD命令pedit手工转换的方法，过程如下：
运行pedit命令，按照提示选择其中的一条线段，如果此线段不是Pline，按照提示键入”Y“转换为Pline，在提示中选择”J"，选择需要合并的所有线段（可以是直线、圆弧等，不能有样条曲线），确定后会生成一个Pline。
我可以将要合并的几条线放在一个选择集中，请问如何用VBA程序实现上面的功能？

efan2000

VBA实现比较麻烦，首先要确定首尾相连的直线和圆弧的顺序，其实构造一个数组，将它们的端点存入数据中，同时还要记录是不是圆弧。最后使用数组生成多段线。

zkycds

下面的代码使用SendCommand命令用CAD命令Pedit将选择集中线合并为一个PLine。
'合并选择集中分离的线为PLine
Public Sub JoinLineToPline(sel As AcadSelectionSet)
   Dim strCommand As String
    strCommand = "_Pedit" & vbCr & axEnt2lspEnt(sel.Item(0)) & " Y J "
    Dim i As Integer
      For i = 0 To sel.Count - 1
        strCommand = strCommand + axEnt2lspEnt(sel.Item(i)) + vbCr
      Next
      strCommand = strCommand + vbCr + vbCr
      ThisDrawing.SendCommand strCommand
End Sub
Public Function axEnt2lspEnt(entObj As AcadEntity) As String
    Dim entHandle As String
    entHandle = entObj.Handle
    axEnt2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
End Function

jdh

能说的具体点吗?

zkycds

将需要连接的线加入一个选择集，然后调用上面的函数即可。