Đến nội dung


Hình ảnh
- - - - -

Tạo Text Annotative


  • Please log in to reply
1 reply to this topic

#1 kapino

kapino

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 April 2016 - 10:04 PM

 

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

Bài viết đã được chỉnh sửa nội dung bởi kapino: 20 April 2016 - 10:07 PM

  • 0

#2 kapino

kapino

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 April 2016 - 10:48 PM

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

:mellow:


  • 0