hãy giúp em giải đáp vướng mắc việc kết nối từ EXCEl sang Autocad bằng VBA

[khoavu87]

em đang làm một dự án có liên quan đến kết nối từ EXCEL ra AutoCad.có file kèm theo.
em đã tham khảo bài của thầy Hướng nhưng vẫn ko hiểu vì ko có ví dụ cụ thể làm.em muốn từ tọa độ (X,Y)trên Ex sự dụng nó để vẽ đồ thị tren Autocad.viết trên VBA.hãy giúp em hiểu hơn vấn đề này nhé,ai đã bít thì làm cho em ví dụ đó để em hiểu hơn.Em cảm ơn

Mọi người xem ví dụ rồi làm ví dụ đó đc cho em càng tốt ạ.như vậy em xem dễ hiểu nhất.em cảm ơn mọi người

 

[nvson]

Bạn làm theo các bước như sau:
- Mở file Excel chứa số liệu của bạn
- Nhấn Alt+F11 để vào VBA
- Nhấn Insert/ Module
- Nhấn Tools/ Refercences, chọn Autocad xxxx Type Library, nhấn OK.
(xxxx là phiên bản AutoCad bạn đang sử dụng)
Thêm đoạn code sau vào Module:

Option Explicit
Sub Ve_AutoCad()
Dim AcadApp As Object
Dim AcadMS As AcadModelSpace
Dim plineObj As AcadPolyline
Dim points(0 To 14) As Double
Dim i As Integer, j As Integer
 
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err <> 0 Then
    Err.Clear
    Set AcadApp = CreateObject("AutoCAD.Application")
End If
For i = 1 To 15 Step 3
    j = j + 1
    points(i - 1) = Cells(2, j + 2)
    points(i) = Cells(3, j + 2)
    points(i + 1) = 0
Next i
Set AcadMS = AcadApp.ActiveDocument.ModelSpace
AcadMS.AddPolyline (points)

AcadApp.Visible = True
Set AcadApp = Nothing
Set AcadMS = Nothing
End Sub

Nhấn F5 để chạy chương trình....

 

[khoavu87]

vâng em cảm ơn anh rất nhiều để em thử xem thế nào nhé.