Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
phantuhuong

Sử dụng VBA để liên kết AutoCad với Excel

Các bài được khuyến nghị

phantuhuong    204

Trong lĩnh vực kỹ thuật như trắc địa, địa chất, xây dựng, giao thông, kiến trúc, chế tạo máy,... phần mền AutoCad được sử dụng rất phổ biến. Bạn có thể sử dụng VBA trong Excel để vẽ các đối tượng hình học trong AutoCad như chủ đề đã có. Và tại sao ta lại không thể làm ngược lại?! Bạn hãy sử dụng ngôn ngữ VBA trong AutoCad để thực hiện công việc đó. Nếu bạn đã biết VBA trong Excel thì cũng nhanh chóng học được VBA trong AutoCad. Để dễ dàng so sánh giữa chúng, tôi xin giới thiệu 2 thủ tục để mở AutoCad từ Excel và ngược lại:

 

 

Sub Mo_AutoCad()

 Dim AcaDApp As Object

 On Error Resume Next

Set AcadApp = GetObject(, "AutoCAD.Application")
If Err  0 Then
  Err.Clear
  KT = True
  Set AcadApp = CreateObject("AutoCAD.Application")
End If
  AppActivate AcadApp.Caption
  AcadApp.Visible = True

Set AcadApp = Nothing
End Sub


Sub Mo_Excel()

Dim ExcelApp As Object
On Error Resume Next

Set ExcelApp = GetObject(, "Excel.Application")
If Err  0 Then
	Err.Clear
	Set ExcelApp = CreateObject("Excel.Application")
End If
ExcelApp.Visible = True
AppActivate ExcelApp.Caption
ExcelApp.Workbooks.Add

Set ExcelApp = Nothing
End Sub

 

 

Để sử dụng được chức năng Auto List Member thì các bạn nên thay:

 

Dim ExcelApp As Object

 

bằng:

 

Dim ExcelApp As Excel.Application

  • Vote giảm 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congchi    6

Có nhiều cách link giữa excel với cad, nhưng tui khoái nhất là chức năng run sript của cad. Mọi việc cứ làm trên excel, sau đó viết một module dịch cái mớ excel ra những lệnh cad trong file script. Vô cad chạy nó, thưởng thức những động tác vẽ như mình vẽ.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.377
Có nhiều cách link giữa excel với cad, nhưng tui khoái nhất là chức năng run sript của cad. Mọi việc cứ làm trên excel, sau đó viết một module dịch cái mớ excel ra những lệnh cad trong file script. Vô cad chạy nó, thưởng thức những động tác vẽ như mình vẽ.

 

Nghe thú dị gớm hỉ. Chỉ cho cái đi bạn. Kỉ kỉ chút nghen chưa biết gì về trò này cả. Cám ơn !!!!!!!!!!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
congchi    6

Ví dụ đơn giản là bạn muốn vẽ một hình chữ nhật.

Nếu vẽ bằng cad, bạn sẽ dùng lện "rec" để vẽ.

Để vẽ tự động, ta soạn 1 dòng lệnh sau trong file script :

rec 0,0 100,100

(ghi chú dấu space tương đương với lệnh enter).

Khi chạy file script này, nó sẽ vẽ hình chữ nhật có góc tại 0,0 và 100,100.

Để dùng excel để vẽ, ta sẽ nhập toạ độ các góc vào bảng của excel. Dùng vài ba cái hàm đơn giản để dịch các số trong bảng đó theo cú pháp trên. Copy cú pháp đó past vào cad là nó vẽ như thế. Nếu rảnh thì viết module viết thẳng vào file script, vô cad chạy cũng được.

Ví dụ vẽ các hình chữ nhật chạy theo đường parabol như sau.

(Upload file bằng cách nào nhỉ)

Upload.xls

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
vndesperados    253
Ví dụ đơn giản là bạn muốn vẽ một hình chữ nhật.

Nếu vẽ bằng cad, bạn sẽ dùng lện "rec" để vẽ.

Để vẽ tự động, ta soạn 1 dòng lệnh sau trong file script :

rec 0,0 100,100

(ghi chú dấu space tương đương với lệnh enter).

Khi chạy file script này, nó sẽ vẽ hình chữ nhật có góc tại 0,0 và 100,100.

Để dùng excel để vẽ, ta sẽ nhập toạ độ các góc vào bảng của excel. Dùng vài ba cái hàm đơn giản để dịch các số trong bảng đó theo cú pháp trên. Copy cú pháp đó past vào cad là nó vẽ như thế. Nếu rảnh thì viết module viết thẳng vào file script, vô cad chạy cũng được.

Ví dụ vẽ các hình chữ nhật chạy theo đường parabol như sau.

(Upload file bằng cách nào nhỉ)

Upload.xls

 

 

Trò này đem chơi hay dọa người khác thì cũng được nhưng mà để viết ứng dụng có vẻ không khả thi lắm.

Còn muốn vẽ mấy cái hình CN chạy theo parabol đó thì không cần đến phức tạp vậy đâu

Bác tìm được đọan code hay ý tưởng nào hay hơn thì đưa lên anh em học hỏi chứ như trên thì chưa thuyết phục lằm, hehehehehehe

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×