Tạo Text Annotative

[kapino 0]

 

Các xếp pro VBA cho em hỏi tí. Em đang làm một Project trong đó text được tạo dưới dạng Annotative. Em coding mãi mà toàn error các xếp cho ý kiến với đoạn code sau:

Sub GetText()

    Dim TextObj As AcadTextStyle

    Set TextObj = ThisDrawing.TextStyles.Add("TEXT-17")

    TextObj.fontFile = "URomans"

    TextObj.Height = 1.7

    TextObj.Annotative = True

End Sub

 

 

Các xếp pro VBA cho em hỏi tí. Em đang làm một Project trong đó text được tạo dưới dạng Annotative. Em coding mãi mà toàn error các xếp cho ý kiến với đoạn code sau:

Sub GetText()

    Dim TextObj As AcadTextStyle

    Set TextObj = ThisDrawing.TextStyles.Add("TEXT-17")

    TextObj.fontFile = "URomans"

    TextObj.Height = 1.7

    TextObj.Annotative = True

End Sub

Chỉnh sửa Tháng 4 20, 2016 theo kapino

[kapino 0]

Không thấy bác nào coment nhỉ?. 

:mellow: