Đang tải...

Autocad & Inventor Nhập tọa độ từ Excel vào AutoCAD

Thảo luận trong 'Phần mềm kỹ thuật' bắt đầu bởi vietms, 5/6/10.

Thành viên đang xem bài viết (Users: 0, Guests: 0)

  1. vietms
    Offline

    Tài xế O-H
    Expand Collapse

    Tham gia ngày:
    25/7/09
    Số km:
    639
    Được đổ xăng:
    26
    Mã lực:
    31
    Xăng dự trữ:
    155 lít xăng
    Để có thể điều khiển AutoCAD trong Excel, lấy dữ liệu từ Excel sang AutoCAD, cần tạo đối Application chứa ứng dụng AutoCAD và biết cách sử dụng các đối tượng của ACAD như ThisDrawing, Modelspace....

    Để thực hiện được việc này, cần phải thực hiện các bước sau:

    1 Tham chiếu đến với thư viện mở rộng của chương trình AutoCAD.

    2 Viết mã lệnh thực hiện việc khởi động chương trình AutoCAD (tạo đối tượng Application của AutoCAD).

    Dưới đây sẽ trình bày cách thức khởi động chương trình AutoCAD từ ứng dụng Excel.

    Tham chiếu thư viện mở rộng của chương trình AutoCAD

    1 Khởi động chương trình Excel, Khởi động VBAIDE trong AutoCAD bằng cách nhấn tổ hợp phím ALT+F11. , chọn trình đơn Tools > References… để hiển thị hộp thoại References dùng để tham chiếu đến thư viện mở rộng.

    2 Trong danh sách các thư viện có sẵn, chọn AutoCAD xxxx Object Library (xxxx là phiên bản của AutoCad được cài trên máy) ð Chọn OK. Như vậy là dự án VB đã có tham chiếu đến thư viện mở rộng của AutoCAD, nghĩa là người lập trình có thể truy cập đến mô hình đối tượng của AutoCAD ngay từ bên trong Visual Basic.

    Viết mã lệnh khởi động chương trình AutoCAD

    3 Trong Menu, chọn trình đơn Project ð Add Module để tạo mới một module chuẩn.

    4 Trong cửa sổ mã lệnh của module chuẩn, nhập đoạn mã lệnh dùng để khởi động chương trình AutoCAD như sau:

    Sub ConnectToAutoCAD()
    Dim App As AutoCAD.Application
    On Error Resume Next
    Set App = GetObject(, "AutoCAD.Application")
    ‘ Kiểm tra xem AutoCAD đã được khởi động chưa
    ‘ Nếu chưa sẽ tiến hành tạo đối tượng Application
    If Err Then
    Err.Clear
    Set App = CreateObject("AutoCAD.Application")
    If Err Then
    MsgBox Err.Description
    Exit Sub
    End If
    End If
    ‘Hiển thị cửa sổ chính của AutoCAD
    App.Visible = True
    MsgBox "Now running " + App.Name + _
    " version " + App.Version
    End Sub

    5 Thực thi thủ tục: ConnectToAutoCAD như trên, chương trình AutoCAD sẽ được khởi động.
     

Chia sẻ trang này