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

cqszgs

如何用VBA将首尾相连的直线和弧线转换成一个PLine？

zfbj

VBA好像没有提供直接转换的方法，但是你可以读取直线和圆弧的参数，例如起点和终点，圆弧的角度，然后创建多段线。

cqszgs

使用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