Hỏi về cách vẽ Spline trong Autocad từ Exel

[sir_nguyenhd 1]

Chào các bác

Em đã đọc và tìm hiểu một số chương trình VBA từ Excel and Autocad, tuy nhiên em vẫn chưa giải quyết được bài toán sau

Em có file excel (tệp đính kèm), bao gồm 2 cột x,y chứa các toạ độ tương ứng

Thông thường, để vẽ đường cong Spline dựa trên toạ độ x,y, em sẽ sử dụng hàm CONCATENATE trong exel rồi copy vào Autocad để vẽ. Đó cũng là một cách hay.

Tuy nhiên, hiện em muốn sử dụng trực tiếp bằng VBA trong Excel, không phải làm thủ công bằng cách viết hàm CONCATENATE. Chỉ cần chọn 2 cột x, y (bôi đen), Click nút lệnh (Marco) sẽ vẽ được đường Spline theo đúng toạ độ đã chọn trong Excel.

Lưu ý: Với mỗi file excel khác nhau sẽ có vị trí Cell của toạ độ x,y khác nhau ( Ở file này, toạ độ x có thể là A2, nhưng tệp khác sẽ là B10)

 

Các bác giúp em nhé

[dinhvantrang 151]

Gửi File Excel đính kèm vào mình viết cho chủ thớt ơi!

[sir_nguyenhd 1]

Cảm ơn bạn

dinhvantrang Mình gửi file Excel lên nhé

 

http://www.cadviet.com/upfiles/3/31680_example_1.rar

 

Mình cần vẽ 3 đồ thị như trong file excel đó trên nền Autocad

Lưu ý: Vị trí của bảng số liệu trong Excel có thể không bắt đầu từ cell A1 mà có thể từ vị trí cell khác

Cảm ơn bạn rất nhiều

[sir_nguyenhd 1]

Ban dinhvantrang giúp mình đi

[dinhvantrang 151]

Ban dinhvantrang giúp mình đi

http://www.cadviet.com/upfiles/3/37575_example_1.rar

Gửi bạn nhé.

Ở đây việc chọn 2 cột cần theo tứ tự,cột thứ nhất là cột toạ độ X,cột thứ 2 là toạ độ Y.Với lại cái này mình viết để chạy trên nền Cad 2007,nếu chạy trên nền Cad khác thì bạn vô Tools -> Reference -> Chọn Autocad Library 20XX tương ứng nhé.Chúc bạn thành công!

[sir_nguyenhd 1]

Cảm ơn bạn dinhvantrang đã viết code giúp mình

Sau khi test, mình thấy code của bạn rất đúng với ý của mình.

Tuy nhiên, bạn có thể giải thích cụ thể hơn để mình hiểu rõ được không.

Mình không hiểu đoạn code dưới đây:

 

 Dim i, j, k, n As Integer
    i = 1: j = 1: k = 2
    n = Selection.Count
    ReDim PointsArray(1 To (3 * n / 2)) As Double
    For Each TempCell In Selection
        If i <= n / 2 Then
            PointsArray(j) = TempCell
            j = j + 3
        Else
            PointsArray(k) = TempCell
            k = k + 3
        End If
        i = i + 1
    Next

 

Rất mong bạn giải thích giúp mình

Cảm ơn bạn nhiều