C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


V
V
:
:


L
L
Ậ
Ậ
P
P


T
T
R

A
D
D



203

FileType Tham số tuỳ chọn, là hằng số xác định kiểu tệp bản vẽ sẽ được lưu. Các hằng số
có thể là:
acR14_DWG : tệp AutoCAD Release14/LT97 DWG (*.dwg)
acR14_DXF : tệp AutoCAD Release14/LT97 DXF (*.dxf)
acR15_DWG : tệp AutoCAD 2000 DWG (*.dwg)
acR15_DXF : tệp AutoCAD 2000 DXF (*.dxf)
acR15_Template: tệp AutoCAD 2000 Drawing Template File (*.dwt)
acNative : tệp bản vẽ được lưu với kiểu tệp mới nhất ứng với phiên bản
AutoCAD hiện hành. Trong AutoCAD 2002, giá trị này tương đương với hằng số
acR15_DWG.
Ví dụ sau sẽ lưu bản vẽ hiện hành sử dụng tên tệp sẵn có đồng thời cũng lưu bản vẽ với một tên
khác.
Sub SaveActiveDrawing()
’ Lưu bản vẽ hiện hành sử dụng tên tệp sẵn có
ThisDrawing.Save
’ Lưu bản vẽ sử dụng tên khác
ThisDrawing.SaveAs "MyDrawing.dwg"
End Sub
Thông thường, trước khi thoát khỏi phiên làm việc của AutoCAD hoặc trước khi đóng bản vẽ,
người lập trình thường muốn kiểm tra xem bản vẽ đã được lưu đổi hay chưa. Để làm được việc
này, có thể sử dụng thuộc tính Saved có trong đối tượng chứa bản vẽ đó (đối tượng Document
tương ứng).

Ø
Ø

Nếu SaveChanges bằng TRUE và bản vẽ chưa được lưu lần nào, tham số FileName sẽ
được dùng để làm tên tệ
p lưu bản vẽ. Nếu không có tham số FileName, bản vẽ được lưu
với tên mặc định trong thư mục hiện hành của AutoCAD. Trong trường hợp bản vẽ đã
được lưu trước đó, tham số FileName sẽ bị bỏ qua.
Ø
Ø

Nếu SaveChanges bằng FALSE, bản vẽ sẽ được đóng mà không được lưu.
Ví dụ sau sẽ hỏi người dùng có muốn đóng bản vẽ hay không, sau đ
ó kiểm tra xem tệp đã được
lưu lần đầu chưa, tiếp đó mới thực sự đóng bản vẽ lại sử dụng phương thức Close có trong đối
tượng bản vẽ hiện hành.
Sub CloseDrawing()
If MsgBox("Bạn có muốn đóng bản vẽ: " & ThisDrawing.WindowTitle, _
vbYesNo + vbQuestion) = vbYes Then
If ThisDrawing.FullName <> "" Then
ThisDrawing.Close SaveChanges:=True ‘←Đóng bản vẽ hiện hành
Else
MsgBox(ThisDrawing.Name & " chưa được lưu nên không thể đóng!")
End If
End If
End Sub
Ngoài ra, người lập trình có thể sử dụng phương thức Close có trong tập đối tượng Documents
để đóng tất cả các bản vẽ hiện đang có trong phiên làm việc hiện hành của AutoCAD. Phương
thức này thực hiện tương tự như khi sử dụng phương thức Close cho từng đối tượng bản vẽ với
tham số SaveChanges được gán bằng TRUE. Do không kiểm soát được quá trình đóng của

V
V
:
:


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H


T
T
R
R

On Error Resume Next

Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
acadApp.Visible = True
‘====== Hết đoạn chương trình khởi động AutoCAD ======

‘ Hiển thị tên chương trình và phiên bản của AutoCAD
MsgBox "Now running " + acadApp.Name + _
" version " + acadApp.Version
End Sub
ThoátkhỏichươngtrìnhAutoCAD
Việc thoát khỏi AutoCAD rất đơn giản, chỉ cần thực hiện phương thức Quit có trong đối tượng
Applicaton. Phương thức này sẽ đóng tất cả các bản vẽ và dự án VBA trong AutoCAD lại, nếu
có bản vẽ hoặc dự án nào chưa được lưu, nó sẽ nhắc người dùng lưu bản vẽ, sau đó mới thực sự
thoát khỏ
i AutoCAD.
Đoạn mã lệnh sau sẽ đóng chương trình AutoCAD.
Sub Thoat_AutoCAD()
Application.Quit 206

theo vùng bao tất cả các đối tượng tuỳ thuộc vào vùng nào rộng hơn. Còn trong chế độ 3D,
phương thức này tương đương với phương thức ZoomExtents.
Đoạn mã sau phóng màn hình bản vẽ sử dụng phương thức ZoomAll:
Application.ZoomAll
ZoomPrevious
Phương thức này sẽ chuyển màn hình bản vẽ về trạng thái trước đó. Khi người dùng thực hiện
lệnh Pan hoặc các lệnh liên quan đến thu phóng màn hình bản vẽ, AutoCAD sẽ tự động lưu
trạng thái màn hình bản vẽ. Phương thức này có thể khôi phục lại trạng thái màn hình đã được
lưu đến 10 cấp.
Đoạn mã sau khôi phục lại trạng thái màn hình bản vẽ sử dụng phương thứ
c ZoomPrevious:
Application.ZoomPrevious
ZoomPickWindow
C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


V
V
:

N


A
A
U
U
T
T
O
O
C
C
A
A
D
D



207

Phương thức này sẽ phóng màn hình bản vẽ theo một hình chữ nhật do người dùng chọn trên
màn hình.
Đoạn mã sau minh hoạ cách sử dụng phương thức này:
Application.ZoomPickWindow
ZoomWindow
Phương thức này thực hiện thu phóng màn hình bản vẽ theo một hình chữ nhật được xác định
trước. Cú pháp của phương thức này như sau:
Application.ZoomWindow Dưới_Trái, Trên_Phải