CH NG 2: LÀM V IC VI MÔI TR NG AUTOCAD I.M ở, đóng và ghi l i bản

VII. Căn bả nv VBA.

CH NG 2: LÀM V IC VI MÔI TR NG AUTOCAD I.M ở, đóng và ghi l i bản

1. Mở bản v .

Để mở bản vẽ, sử dụng ph ơng thức Open method. Sử dụng hàm DIR của Visual Basic để kiểm tra sự tồn tại của bản vẽ tr ớc khi mở.Bạn cũng có thể thay đổi tên và đ ờng dẫn của bản vẽ trong đ ờng dẫn mặc định của AutoCAD (Mục Option của CAD).

Sub Ch3_OpenDrawing()

Dim dwgName As String dwgName = "c:\campus.dwg" If Dir(dwgName) <> "" Then

ThisDrawing.Application.Documents.Open dwgName

Else

MsgBox "File " & dwgName & " does not exist." End If

End Sub

2. T o m i bản v .

Tạo mới một bản vẽ, sử dụng ph ơng thức Add. Sub Ch3_NewDrawing()

Dim docObj As AcadDocument

Set docObj = ThisDrawing.Application.Documents.Add End Sub

3. L u bản v .

Để ghi bản vẽ hiện hành. có 2 ph ơng thức sau : Sub Ch3_SaveActiveDrawing()

ThisDrawing.Save ‘ ghi bản vẽ hiện hành.

ThisDrawing.SaveAs "MyDrawing.dwg" ‘ghi bản vẽ với tên mới. End Sub

Để kiểm tra xem bản vẽđã đ ợc ghi hay ch a, ta sử dụng hàm Saved : Sub Ch3_TestIfSaved()

If Not (ThisDrawing.Saved) Then

If MsgBox("Do you wish to save this drawing?", vbYesNo) = vbYes Then ThisDrawing.Save End If End If End Sub II. Đi u khi n c a sổ bản v 1. Đi u khi n c a sổ AutoCAD. Mục đích : Khi bạn làm việc với 1 ứng dụng khác, bạn cần nhập số liêu từ ng ời dùng chẳng hạn. Bạn cần thu nhỏ hoặc kiểm tra tình trang của cửa sổ AutoCAD.

Sử dụng methods và properties có trong Application object, bạn có thể thay đổi position, size và visibility của của sổ AutoCAD. Bạn cũng có thể sử dụng WindowState property để minimize,

maximize và có thể kiểm tra tình trạng hiện tại của cửa sổ AutoCAD.

BỘ MÔN TIN HỌC XÂY DỰNG KHOA CÔNG NGHỆ THƠNG TIN TRƯỜNG ĐẠ I HỌC XÂY DỰNG

Các thuộc tính của Position và size của Application window là WindowTop, WindowLeft, Width, and Height properties

Điều chỉnh của sổ Autocad :

Sub Ch3_PositionApplicationWindow() ThisDrawing.Application.WindowTop = 0 ThisDrawing.Application.WindowLeft = 0 ThisDrawing.Application.width = 400 ThisDrawing.Application.height = 400 End Sub

Maximize the Application window

Sub Ch3_MaximizeApplicationWindow()

ThisDrawing.Application.WindowState = acMax End Sub

Minimize the Application window

Sub Ch3_MinimizeApplicationWindow()

ThisDrawing.Application.WindowState = acMin End Sub

Lấy tình trạng của Application window

Sub Ch3_CurrentWindowState()

Dim CurrWindowState As Integer Dim msg As String

CurrWindowState = ThisDrawing.Application.WindowState

msg = Choose(CurrWindowState, "normal","minimized", "maximized") MsgBox "The application window is " + msg

End Sub

Make the Application window invisible

Sub Ch3_HideWindowState()

ThisDrawing.Application.Visible = False End Sub