[结贴]请问怎么将多段线转为二维多段线？

robbin840311

如题，需要将多段线转为二维多段线，转为二维多段线后就可以录界址线属性了，请问怎么样才能实现这个目的？

谢谢大家的建议！

罗简单

robbin840311

结贴：

'******************************************************
'名称：LwpTo2DPL
'作者：罗简单
'日期：2008-7-26
'功能：将单个多段线转换为二维多段线
'******************************************************
Public Sub LwpTo2DPL(pLwp As AcadLWPolyline)
  ThisDrawing.SendCommand "ConvertPoly H "
 
  Dim strCmd As String
  strCmd = "(Handent""" & pLwp.Handle & """)"
 
  ThisDrawing.SendCommand strCmd & " "
  ThisDrawing.SendCommand " "
End Sub