Em cần giúp sửa vba chấm point và xuất cao độ

[tronganh210494@gmail.com 0]

E là gà mờ mong các bác sửa giúp e vs ạ.
E có muốn tạo 1 code chấm điểm point và xuất ra text=(cao độ z) của point đó.
E xin cảm ơn.

 

Sub addpoint()
    Dim objss As AcadSelectionSet
    Set objss = ThisDrawing.SelectionSets.Add(Now)
        
    Dim FT(0) As Integer
    Dim FD(0) As Variant
    Dim Objpoint As AcadPoint
    Dim point As Variant

    
    point = ThisDrawing.Utility.GetPoint
    
    Set Objpoint = ThisDrawing.ModelSpace.addpoint(point)

    
    Dim objtext As AcadText
    Dim textpoint(3) As Double
    
    For Each Objpoint In objss
        textpoint(0) = Objpoint.point(0)
        textpoint(1) = Objpoint.point(1)
        
    Set objtext = ThisDrawing.ModelSpace.addtext(Round(textpoint(2), 3), Objpoint.textpoint, 0.25)
    
    Next
    objss.Delete
End Sub
 

[CadExTools 110]

Bạn sẽ Pick điểm rồi từ điểm đó tạo ra một Text có Textstring chính bằng cao độ của Point bạn vừa Pick uh?

[tronganh210494@gmail.com 0]

5 phút trước, CadExTools đã nói:

Bạn sẽ Pick điểm rồi từ điểm đó tạo ra một Text có Textstring chính bằng cao độ của Point bạn vừa Pick uh?

dạ đúng ạ

 

[CadExTools 110]

Bạn thử:

Sub addpoint()

    Dim varpoint As Variant

    varpoint = ThisDrawing.Utility.GetPoint
    
    Set Objpoint = ThisDrawing.ModelSpace.addpoint(varpoint)

    
    Dim objtext As AcadText
    Dim textpoint(2) As Double
    
    textpoint(0) = varpoint(0)
    textpoint(1) = varpoint(1)
    textpoint(2) = varpoint(2) * 1000
        
    Set objtext = ThisDrawing.ModelSpace.addtext(Round(varpoint(2), 3), varpoint, 0.25)
    
End Sub

[tronganh210494@gmail.com 0]

17 phút trước, CadExTools đã nói:

Bạn thử:

Sub addpoint()

    Dim varpoint As Variant

    varpoint = ThisDrawing.Utility.GetPoint
    
    Set Objpoint = ThisDrawing.ModelSpace.addpoint(varpoint)

    
    Dim objtext As AcadText
    Dim textpoint(2) As Double
    
    textpoint(0) = varpoint(0)
    textpoint(1) = varpoint(1)
    textpoint(2) = varpoint(2) * 1000
        
    Set objtext = ThisDrawing.ModelSpace.addtext(Round(varpoint(2), 3), varpoint, 0.25)
    
End Sub

Tuyệt vời bác ơi. e muốn nhờ bác sửa thêm nó làm tròn đến số thứ 2 sau dấu phẩy. 
ví dụ 0.879-> 0.880 ạ. E cảm ơn bác nhiều.

[CadExTools 110]

Vừa xong, tronganh210494@gmail.com đã nói:

Tuyệt vời bác ơi. e muốn nhờ bác sửa thêm nó làm tròn đến số thứ 2 sau dấu phẩy. 
ví dụ 0.879-> 0.880 ạ. E cảm ơn bác nhiều.

Set objtext = ThisDrawing.ModelSpace.addtext(Format(Round(varpoint(2), 2),"#0.000"), varpoint, 0.25)

[tronganh210494@gmail.com 0]

21 phút trước, CadExTools đã nói:

Set objtext = ThisDrawing.ModelSpace.addtext(Format(Round(varpoint(2), 2),"#0.000"), varpoint, 0.25)

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