Yeatsliu 发表于 2006-3-7 12:27:00

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

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




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

Yeatsliu 发表于 2006-3-7 13:20:00

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


mycad 发表于 2006-3-7 20:05:00

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

Yeatsliu 发表于 2006-3-8 10:27:00

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

雪山飞狐_lzh 发表于 2006-3-9 14:28:00

去掉一个顶点,闭合重生成
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
页: [1]
查看完整版本: 急！问一个多段线的问题！