急！问一个多段线的问题！

Yeatsliu

一个多段线的问题，把三角形和四边形转为多段线就会出面的问题（如下图）

问如何实现下图（不管线宽为多少）

Yeatsliu

问如何实现下图（不管线宽为多少）

mycad

会"出面"的问题是什么问题?

Yeatsliu

不好意思，是出现的问题，打错字了

雪山飞狐_lzh

去掉一个顶点,闭合重生成

Sub tt1()
Dim ent1 As AcadLWPolyline, ent2 As AcadLWPolyline, pnt, p
Dim s As Double, e As Double
ThisDrawing.Utility.GetEntity ent1, pnt
p = ent1.Coordinates
ReDim Preserve p(UBound(p) - 2)
Set ent2 = ThisDrawing.ModelSpace.AddLightWeightPolyline(p)
ent2.Closed = True
For i = 0 To (UBound(ent1.Coordinates) - 1) / 2 - 1
ent1.GetWidth i, s, e
ent2.SetWidth i, s, e
ent2.SetBulge i, ent1.GetBulge(i)
Next
ent2.Layer = ent1.Layer
ent1.Delete
End Sub