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

V
Bình luận: 0Lượt xem: 5,374

vietms

Tài xế O-H
Để 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.
 

Bạn hãy đăng nhập hoặc đăng ký để phản hồi tại đây nhé.

Bên trên