直线转换成多义线问题

fenny

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

efan2000

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

fenny

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


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

雪山飞狐_lzh

你要的是这种效果么？ Sub Test()
On Error GoTo ErrHandle
Dim pFrom, pTo
Dim p1(3) As Double, p2(1) As Double
Dim pPL As AcadLWPolyline
pFrom = ThisDrawing.Utility.GetPoint(, vbCr & "请输入第一点：")
pTo = ThisDrawing.Utility.GetPoint(pFrom, vbCr & "请输入下一点：")
p1(0) = pFrom(0): p1(1) = pFrom(1)
p1(2) = pTo(0): p1(3) = pTo(1)
Set pPL = ThisDrawing.ModelSpace.AddLightWeightPolyline(p1)
Do While True
pTo = ThisDrawing.Utility.GetPoint(pTo, vbCr & "请输入下一点：")
p2(0) = pTo(0): p2(1) = pTo(1)
pPL.AddVertex (UBound(pPL.Coordinates) + 1) / 2, p2
Loop
ErrHandle:
End Sub

fenny

谢谢，可以了