cần giúp đỡ về Excel to Autocad

[giang181084]

chào mọi người!
Hiện tôi đang muốn thực hiện 1 chương trình "find and repalce" các "text string" trong autocad thực hiện trên ngôn ngữ lập trình VBA có liên kết giữa excel với autocad!
ai đó có thể giúp tôi 1 đoạn "code" thực hiện việc "find and repalce" các "file text" trong autocad!
VD: "find and repalce" 1 file là con số "123" thành "456"
tôi đang cần gấp!
xin cảm ơn!

 

[duongsatdn]

Bạn vào http://www.cadviet.com/forum/index.php; có thể tìm được cách giải quyết yêu cầu của bạn.

 

[nvson]

chào mọi người!
Hiện tôi đang muốn thực hiện 1 chương trình "find and repalce" các "text string" trong autocad thực hiện trên ngôn ngữ lập trình VBA có liên kết giữa excel với autocad!
ai đó có thể giúp tôi 1 đoạn "code" thực hiện việc "find and repalce" các "file text" trong autocad!
VD: "find and repalce" 1 file là con số "123" thành "456"
tôi đang cần gấp!
xin cảm ơn!

Mình làm cho bạn luôn bằng VBA for AutoCAD nhé!
Từmàn hình AutoCAD (mình sửdụng AutoCAD2008), nhấn Alt+F11 để vào VBA.
Nhấn Insert/ Module, rồi thêm đoạn code sau:

Option Explicit
Public Sub Replace_VBA()
    On Error Resume Next
    Dim ssetObj As AcadSelectionSet
    Dim text_New As String
    Dim str_Name As String
    Dim i
    '
    If Not IsNull(ThisDrawing.SelectionSets.Item("Text")) Then
        Set ssetObj = ThisDrawing.SelectionSets.Item("Text")
        ssetObj.Delete
    End If
    Set ssetObj = ThisDrawing.SelectionSets.Add("Text")
    '
    ssetObj.SelectOnScreen
    For i = 0 To ssetObj.Count - 1
        If ssetObj.Item(i).ObjectName = "AcDbMText" Or ssetObj.Item(i).ObjectName = "AcDbText" Then
            'Day la dong thay the van ban
            text_New = Replace(ssetObj.Item(i).TextString, "123", "456")
            '
            ssetObj.Item(i).TextString = text_New
            ssetObj.Update
        End If
    Next i
End Sub

Trở về AutoCAD, nhấn Alt+F8, chọn Macro "Replace_VBA" để chạy.
Chúc thành công!

 

[hùng bệu]

mình cũng đã thử nhưng khi sang cad cho chạy rồi lại không thấy gì cả bạn. bạn có thể chỉ dùm mình được ko?