fenny 发表于 2004-8-20 16:35:00

直线转换成多义线问题

我用vb在autocad中用线段画一封闭环路，我想将其转换成多义线并使之封闭，请教用vb语言如何实现？谢谢！

efan2000 发表于 2004-8-20 19:03:00

取出第一个线段的两端点，之后依次取出其它线段的末端点，组成一个构成多段线的坐标数组，最后创建多段线，闭合，删除原来的线段。

fenny 发表于 2004-8-24 10:54:00

那好像还不如直接用polyline画了呢，是不是还有更好的办法？


可不可以用编辑多义线命令，选择某一线段，转换成多义线，再将所有的线段join在一起，用vb能实现吗？请帮忙。

雪山飞狐_lzh 发表于 2004-8-24 11:53:00

你要的是这种效果么？


<FONT face=宋体 size=2>Sub Test()<BR>On Error GoTo ErrHandle<BR>Dim pFrom, pTo<BR>Dim p1(3) As Double, p2(1) As Double<BR>Dim pPL As AcadLWPolyline<BR>pFrom = ThisDrawing.Utility.GetPoint(, vbCr &amp; "请输入第一点：")<BR>pTo = ThisDrawing.Utility.GetPoint(pFrom, vbCr &amp; "请输入下一点：")<BR>p1(0) = pFrom(0): p1(1) = pFrom(1)<BR>p1(2) = pTo(0): p1(3) = pTo(1)<BR>Set pPL = ThisDrawing.ModelSpace.AddLightWeightPolyline(p1)<BR>Do While True<BR>pTo = ThisDrawing.Utility.GetPoint(pTo, vbCr &amp; "请输入下一点：")<BR>p2(0) = pTo(0): p2(1) = pTo(1)<BR>pPL.AddVertex (UBound(pPL.Coordinates) + 1) / 2, p2<BR>Loop<BR>ErrHandle:<BR>End Sub</FONT>

fenny 发表于 2004-8-30 09:46:00

谢谢，可以了
页: [1]
查看完整版本: 直线转换成多义线问题