Sub AddTextPolyline() Dim SS As AcadSelectionSet If ThisDrawing.SelectionSets.Count > 0 Then For Each SS In ThisDrawing.SelectionSets If SS.Name = "Kira" Then SS.Delete Exit For End If Next End If Set SS = ThisDrawing.SelectionSets.Add("Kira") Dim FT(0) As Integer Dim FD(0) As Variant FT(0) = 0: FD(0) = "LWPolyline" SS.SelectOnScreen FT, FD Dim LWPolylineObj As AcadLWPolyline Dim TextPnt(2) As Double Dim TextObj As AcadText Dim i As Integer For Each LWPolylineObj In SS For i = 0 To UBound(LWPolylineObj.Coordinates) Step 2 'Toa do X TextPnt(0) = 0.5 * (LWPolylineObj.Coordinates(i) + LWPolylineObj.Coordinates(i + 2)) 'Toa do Y TextPnt(1) = 0.5 * (LWPolylineObj.Coordinates(i + 1) + LWPolylineObj.Coordinates(i + 3)) Set TextObj = ThisDrawing.ModelSpace.AddText("Kira", TextPnt, LWPolylineObj.Length / 20) If i + 3 = UBound(LWPolylineObj.Coordinates) Then Exit For End If Next Next End Sub