robbin840311 发表于 2008-7-26 08:12:00

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

本帖最后由 作者 于 2008-7-26 15:31:36 编辑 <br /><br /> <p>如题，需要将多段线转为二维多段线，转为二维多段线后就可以录界址线属性了，请问怎么样才能实现这个目的？</p><p>谢谢大家的建议！</p><p></p><p>罗简单</p>

robbin840311 发表于 2008-7-26 15:14:00

<p>结贴：</p>'******************************************************<br/>'名称：LwpTo2DPL<br/>'作者：罗简单<br/>'日期：2008-7-26<br/>'功能：将单个多段线转换为二维多段线<br/>'******************************************************<br/>Public Sub LwpTo2DPL(pLwp As AcadLWPolyline)<br/>&nbsp; ThisDrawing.SendCommand "ConvertPoly H "<br/>&nbsp; <br/>&nbsp; Dim strCmd As String<br/>&nbsp; strCmd = "(Handent""" &amp; pLwp.Handle &amp; """)"<br/>&nbsp; <br/>&nbsp; ThisDrawing.SendCommand strCmd &amp; " "<br/>&nbsp; ThisDrawing.SendCommand " "<br/>End Sub<p></p>
页: [1]
查看完整版本: [结贴]请问怎么将多段线转为二维多段线？