Chuyển đến nội dung
Diễn đàn CADViet

kapino

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    4

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi kapino

  4. Đã đăng · Chỉnh sửa theo kapino · Trả lời báo cáo

     

    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
×