Mặc dù có rất nhiều kiểu đối tượng khác nhau, nhưng ta cũng có thể đễ dàng biết được tên kiểu đối tượng bằng cách thêm “Acad” vào trước tên của đối tượng có trong cây phân cấp thể thiện mô hình đối tượng của AutoCAD. Ví dụ khi muốn khai báo một đối tượng có kiểu là đường thẳng (trong mô hình đối tượng có tên là Line), ta sẽ thực hiện như sau:
Dim objLbine As AcadLine
Để truy xuất vào đối tượng cũng như các phương thức và thuộc tính có trong đối tượng, ta cân phải căn cứ vào mô hình đôi tượng. Đề truy cập vào đôi tượng bên trong, ta cần phải truy cập thông qua các đối tượng ở lớp cha. Trong đó đối tượng gốc là Application, và ta không cần phải thể hiện rõ trong tham chiếu đến đối tượng. Ví dụ, để truy xuất đến đối tượng Utility của bản vẽ hiện hành, ta sử dụng đoạn mã lệnh sau:
Application.ActiveDocument.Utility
Còn đối với các đối tượng nằm trong một tập đối tượng, ta có thể truy xuất thông qua chỉ số hoặc tên của đối tượng trong tập đối tượng. Ví dụ, để truy xuất vào lớp có tên là “Cot_ Thep” của bản vẽ hiện hành, ta sử dụng đoạn mã sau:
ThisDrawing.Layers (*Cot_ thep”)
hoặc
ThisDrawing.Layers. Item (*Cot_ thep”)
Để truy xuất đến các phương thức và thuộc tính có trong đối tượng, ta sử dụng cú pháp
Sau:
<Ten_ doi_ tuong>.<Thuoc_tiỉnh> <Ten_ doi_ tuong>.<Phuong_ thuc>
Ví dụ khi cần thay đổi màu của lớp cốt thép thành màu đỏ, ta sử dụng đoạn mã lệnh sau:
ThisDrawing.Layers. Item (*Cot_thep”).Color = acRed
b. Làm việc với bản vẽ
Các thao tác liên quan đến bản vẽ được thực hiện thông qua đối tượng Document trong tập đôi tượng Documents và thông quan bản thân tập đôi tượng Documents.
" _ Tạo mới bản vẽ: sử dụng phương thức Add của tập đối tượng Documents
Sub Tao_ moi ()
Dim objDwg As AcadDocument
Set objDwg = Application.Documents.Add
tnd Sub
" Mở bản vẽ đã có: sử dụng phương thức Open của tập đối tượng Documents.
Sub Mo_ban_ ve ()
Application.Documents.Open _
"C:\Program Files\Autocad 2002\sample`\campus . dwg"
tnd Sub
Hoặc để kiểm tra sự tồn tại của bản vẽ trước khi thực sự mở bản vẽ, ta có thể sử dụng đoạn mã lệnh sau:
Sub Mo_ban ve ()
Dim dwgName As String
TỰ ĐỘNG HOÁ THIẾT KÉ CÀU ĐƯỜNG Lập trình trên ứng dụng nền
|
dwgName="C:\Program Files\Autocad 2002\sample`\campus . dwgj
Tf Dir(dwgName) <> "" Then
Apbplication.Documents.Open dwgName
llse
MsgBox "Teẹp " § dwgName § " khong ton tai." tnd TẾ
End Sub
"_ Lưu bản vẽ: sử dụng phương thức Save hoặc SaveAs của đối tượng Document.
Sub Luu_ban_ve()
" Tưu bản vẽ hiện hành theo tên đang sử dụng
ThisDrawing.Save
' Tưu bản vẽ hiện hành theo tên mới
ThisDrawing.SaveAs "MyDrawing.dwg" End Sub
"“ Đóng bản vẽ: sử dụng phương thức Close của đối tượng Document để đóng một bản vẽ, hoặc sử dụng phương thức Close của tập đối tượng Documents để đóng tât cả các bản vẽ đang được mở trong AutoCAD.
Sub Dong_ ban_ ve ()
"Đóng bản vẽ hiện hành và không lưu bản vẽ ThisDrawing.Close SaveChanges:=FPalse
"Đóng bản vẽ hiện hành và lưu bản vẽ.
'Nếu bản vẽ chưa được lưu trước đó thì sẽ được lưu
'tvới tên được chỉ định
ThisDrawing.Close SaveChanges:=True, _
Fi1eName :="C: \MyDrawing..DWG"
'Đóng tất cả các bản vẽ đang được mở
Apbplication.Documents.Close
tnd Sub
c. Làm việc với các đối tượng Tạo mới đối tượng
Theo mô hình đối tượng của AtuoCAD, các đối tượng đồ hoạ đều thuộc trong ModelSpace và PaperSpace, còn các đôi tượng phi đô hoạ thì năm chủ yêu trong đôi tượng Documeit. Để tạo mới một đối tượng đối tượng đồ hoạ, trước tra cần phải khai báo biến đối tượng, sau đó sử dụng phương thức Add<tên_ đối_tượng> tạo đôi tượng mới và câu lệnh s¿/ đê gán đối tượng vừa được tạo trong bản vẽ cho biến đối tượng mà ta khai báo.
Đối với đối tượng phi đồ hoạ, thông thường, đề tạo một đối tượng mới, ta chỉ cần sử dụng phương thức Adđ có trong tập đôi tượng chứa đôi tượng phi đô hoạ đó.
Ví dụ sau sẽ minh hoạ cách tạo một đường thẳng mới (đối tượng đồ hoạ) và một lớp mới (đôi tượng phi đồ hoạ)