Phát triển AutoCAD bằng ActiveX & VBA - Chương 3

ĐIỀU KHIỂN MÔI TRƯỜNG AutoCADTrong chương nàyChương này trình bày những vấn đề cơ bản cần biết để xây dựng một ứng dụng trong AutoCAD cũng như sẽ giải thích rõ cách thức điều khiển môi trường AutoCAD và cách làm việc hiệu quả trong môi trường này.
Nội dung trích xuất từ tài liệu:
Phát triển AutoCAD bằng ActiveX & VBA - Chương 3ĐIỀU KHIỂN MÔI TRƯỜNGAutoCAD 3 Trong chương nàyChương này trình bày những vấn đề cơ bản cần biết Mở, Lưu và Đóng các bản vẽđể xây dựng một ứng dụng trong AutoCAD cũng Thiết lập các lựa chọnnhư sẽ giải thích rõ cách thức điều khiển môi trường trong AutoCADAutoCAD và cách làm việc hiệu quả trong môi Điều khiển cửa sổ ứng dụngtrường này. Điều khiển cửa sổ bản vẽ Thiết lập lại các đối tượng hiện hành Gán và lấy biến hệ thống Vẽ với độ chính xác cao Nhắc người dùng nhập dữ liệu Truy xuất dòng lệnh của AutoCAD Thao tác khi không mở bản vẽ nào Nhập vào các định dạng khác Xuất sang các định dạng khác Phát triển ứng dụng ActiveX và VBA | 611. Mở, Lưu và Đóng các bản vẽTập Documents và đối tượng Document cho phép thực hiện các hàm liên quan đếntệp trong AutoCAD.Để tạo một bản vẽ mới, hoặc mở một bản vẽ đã có, ta phải sử dụng các phương thứctrong tập đối tượng Documents. Phương thức Add sẽ tạo một bản vẽ mới và thêmbản vẽ đó vào tập đối tượng Documents. Phương thức Open sẽ mở một bản vẽ đãcó. Ngoài ra còn có phương thức Close trong tập đối tượng Documents dùng đểđóng tất các các bản vẽ đang mở trong phiên làm việc của AutoCAD.Để lưu, nhập hoặc xuất một bản vẽ, ta sử dụng các phương thức của đối tượngDocument: Save, Save As, Import và Export.1.1. Mở bản vẽVí dụ sau sử dụng phương thức Open để mở một bản vẽ đã có. Hàm Dir củaVisual Basic dùng để kiểm tra sự tồn tại của tệp trước khi tiến hành mở bản vẽ. Tanên thay đổi tên bản vẽ hoặc đường dẫn để chỉ đến một bản vẽ đã có trong hệ thống.Sub Ch3_OpenDrawing() Dim dwgName As String dwgName = c:Program Filesacad2000samplecampus.dwg If Dir(dwgName) Then ThisDrawing.Application.Documents.Open dwgName Else MsgBox File & dwgName & does not exist. End IfEnd Sub1.2. Tạo bản vẽ mớiVí dụ này sử dụng phương thức Add để tạo một bản vẽ mới dựa trên khuôn thứcmặc định.Sub Ch3_NewDrawing() Dim docObj As AcadDocument Set docObj = ThisDrawing.Application.Documents.AddEnd Sub1.3. Lưu bản vẽCó thể dụng phương thức Save hoặc Save As để lưu bản vẽ.Lưu bản vẽ hiện hànhVí 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 Ch3_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.dwgEnd Sub62 | Chương 3: Điều khiển môi trường AutoCADThông thường, khi ta muốn kiểm tra xem bản vẽ hiện hành có lưu những thay đổihay chưa trước khi thoát khỏi phiên làm việc của AutoCAD hoặc khi bắt đầu mộtbản vẽ mới, hãy sử dụng thuộc tính Saved để kiểm tra chắc chắn rằng bản vẽ đã lưunhững thay đổi trước đó.Kiểm tra xem bản vẽ đã lưu hay chưaVí dụ sau sẽ kiểm tra xem bản vẽ đã được lưu hay chưa và sẽ hỏi người dùng xemcó đồng ý để lưu bản vẽ hay không (Nếu không đồng ý, sẽ thoát khỏi chương trình).Nếu đồng ý, sẽ sử dụng phương thức Save để lưu bản vẽ hiện hành.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 IfEnd Sub2. Thiết lập các lựa chọn trong AutoCADCó chín đối tượng gắn với các lựa chọn khác nhau, mỗi đối tượng tương ứng vớimột thẻ trong hộp thoại Options. Thông qua các đối tượng này, ta có thể truy cậpđược tất cả các dữ liệu về lựa chọn được lưu giữ trong hộp thoại Options. Do vậy,người lập trình có thể tuỳ biến các thiết lập trong AutoCAD thông qua các thuộctính có trong những đố ...