chèn một đối tượng (ví dụ: text, block....) vào nhiều file bản vẽ

[huynhtrung209 0]

xin chào các Anh, các Chị trên diễn đàn!

 

 

- tình hình là em đang làm quen với VBA, Em có một vướng mắc nhờ mọi người trên diễn đàn giúp đỡ dùm.

 

- Em muốn chèn một đối tượng (ví dụ: text, block....) vào nhiều file bản vẽ.

 

  bên dưới Em có đính kèm 3 file bản vẽ, Anh, Chị cho em xin code để chèn (text hoặc block bất kỳ) vào 3 bản       vẽ trên.

 

 

 

 

Cám ơn Anh, Chị nhiều!!!

 

 

 

http://www.cadviet.com/upfiles/3/127038_folder_1.rar

[gia_bach 1.549]

Ví dụ chèn Text có nội dung "Welcome to CadViet VBA." vào các file Cad đang mở 

Sub Example_AddTextToDocuments()

    Dim Document As AcadDocument
    Dim msg As String
    msg = vbCrLf
    
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
        
    textString = "Welcome to CadViet VBA."
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 5

    For Each Document In Documents
        msg = msg & Document.Name & vbCrLf
        ' Create the text object in model space
        Set textObj = Document.ModelSpace.AddText(textString, insertionPoint, height)
    Next
    
    If Documents.Count > 0 Then
        MsgBox "Cac ban ve da them Text : " & msg
    End If
End Sub

[huynhtrung209 0]

Cảm ơn các Anh nhiều!!!

 

Nhờ Anh Gia_Bach viết cho em code để insert text như trên vào các bản vẽ không đang mở nhe.