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

[phantuhuong 217]

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

[congchi 7]

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ẽ.

[duy782006 1.523]

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 !!!!!!!!!!

[congchi 7]

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

[Nguyen Hoanh 4.663]

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

http://www.cadviet.com/forum/index.php?s=&...dpost&p=356

[phantuhuong 217]

http://www.cadviet.com/forum/index.php?s=&...dpost&p=356

 

Mời các bạn quan tâm vấn đề này cho ý kiến nhé, còn nhiều vấn đề lắm!!!!!!!!!!

[vndesperados 254]

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

[phunguyen.tvxd 0]

Nhờ cao thủ giúp e, làm sao để e sửa được nó ạ

[cuongautocad 0]

mih la linh moi ai co tai lieu hoc  vba ko cho mih file va bai thuc hanh vs...

xin cam on

[cuongautocad 0]

mih la linh moi ai co tai lieu hoc  vba ko cho mih file va bai thuc hanh vs...

xin cam on