- Tham gia
- 13/6/06
- Bài viết
- 7,121
- Được thích
- 24,279
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:
Mã:
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
Mã:
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
tôi cũng không hiểu nguyên tại sao, nếu bác PhanThuHuong hay bác nào quan tâm vui lòng xem giúp nguyên nhân tại sao (tôi có ghi chú dòng lệnh gây ra lỗi trên trong source) --> cách khắc phục : các bác bật excel lên rồi chạy tiện ích trên thì không có vấn đề gì.
, cái tiện ích nhỏ này do lúc đầu đang nghiên cứu vb nên viết để học, thực ra nó còn một số bất tiện nếu các bác dùng sẽ thấy (nhưng dùng vẫn bình thường 
), vấn đề này có thể dùng lisp khá nhỏ gọn hơn.
Tôi đã tìm được tài liệu này.
