Nhờ các bác sửa giúp code xuất chiều dài line trong autocad

[tronganh210494@gmail.com 0]

Nhờ các cao nhân giúp e với ạ. E muốn thêm tiền nguyên tố "隣地境界線/道路境界線/道路後退線" vào trước text chiều dài xuất ra. Cảm ơn các bác nhiều.

Sub Addtext()

    Dim objss As AcadSelectionSet
    Set objss = ThisDrawing.SelectionSets.Add(Now)
        
    Dim FT(0) As Integer
    Dim FD(0) As Variant
    
    FT(0) = 0: FD(0) = "LINE"
    
    objss.SelectOnScreen FT, FD
    Dim objline As AcadLine
    Dim objtext As AcadText
    Dim textpoint(2) As Double
    
    For Each objline In objss
        textpoint(0) = 0.5 * (objline.StartPoint(0) + objline.EndPoint(0))
        textpoint(1) = 0.5 * (objline.StartPoint(1) + objline.EndPoint(1))
        
        
        Set objtext = ThisDrawing.ModelSpace.Addtext(Round(objline.Length, 3), objline.StartPoint, 0.25)
        objtext.Rotate textpoint, objline.Angle
        
        objtext.Alignment = acAlignmentBottomCenter
        objtext.TextAlignmentPoint = textpoint
        
        
        
    Next
    objss.Delete
End Sub

[CadExTools 100]

Bạn sửa chỗ này

Round(objline.Length, 3) = tiền tố của bạn & Round(objline.Length, 3)

[tronganh210494@gmail.com 0]

Vào lúc 2/7/2019 tại 11:15, CadExTools đã nói:

 

Bạn sửa chỗ này

Round(objline.Length, 3) = tiền tố của bạn & Round(objline.Length, 3)

 

Cảm ơn bác nhiều ạ.