- Tham gia
- 13/6/06
- Bài viết
- 7,201
- Được thích
- 24,664
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
(
, trí nhớ e kém lắm
