|
直线端点编号如何避免重复?
对于直线端点相同的会重复编号
n = ObjSelectionSet.Count
While n > 0
Set linea = ObjSelectionSet.Item(n - 1)
Set objText = ThisDrawing.ModelSpace.AddText((2 * n - 1), linea.StartPoint, 10)
Set objText = ThisDrawing.ModelSpace.AddText(2 * n, linea.EndPoint, 10)
objText.Update
n = n - 1
Wend
------------------------------------------------------
CQY |
|