Lập trình VBA Autocad tạo đối tượng text chữ trong Autocad

Hướng dẫn tạo đối tượng Text, chữ trong Autocad bằng VBA
1. Đối Tượng Text trong Autocad gồm có:
- Chuỗi ký tự String
- Điểm đắt Text
- Chiều cao Text
2. Mục tiêu của bài học:
Tạo 1 nút bấm tự động vẽ đối tượng Text trên Autocad và tùy biến các tham số theo mục đích của người dùng

3. Video hướng dẫn

4. Code chương trình:



Private Sub CommandText_Click()
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    ' Define the text object
    textString = "Hello the World. I am beginner of VBA"
    insertionPoint(0) = 5: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 2
   
Call AddMyText(textString, insertionPoint, height)
End Sub

Function AddMyText(textString, insertionPoint, height)
    ' This example creates a text object in model space.

    Dim textObj As AcadText

   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    ZoomAll

End Function