cqszgs 发表于 2003-12-11 10:49:00

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

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

zfbj 发表于 2003-12-11 11:11:00

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

cqszgs 发表于 2003-12-11 12:46:00

本帖最后由 作者 于 2003-12-18 11:40:58 编辑

使用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
页: [1]
查看完整版本: [求助]如何用VBA将首尾相连的直线和弧线转换成一个PLine。