Giáo trình hình thành phương pháp lập trình trên autocad và phương pháp hệ thống đối tượng p1

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 acR14_DXF acR15_DWG acR15_DXF : tệp AutoCAD Release14/LT97 DWG (*.dwg) : tệp AutoCAD Release14/LT97 DXF (*.dxf) : tệp AutoCAD 2000 DWG (*.dwg) : tệp AutoCAD 2000 DXF (*.dxf)
Nội dung trích xuất từ tài liệu:
Giáo trình hình thành phương pháp lập trình trên autocad và phương pháp hệ thống đối tượng p1Giáo trình hình thành phương pháp lập trình trên autocad và phương pháp hệƯƠNGV:LẬPTRÌtượngAUTOCAD CH thống đối NHTRÊN 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à: : tệp AutoCAD Release14/LT97 DWG (*.dwg) acR14_DWG : tệp AutoCAD Release14/LT97 DXF (*.dxf) acR14_DXF : tệp AutoCAD 2000 DWG (*.dwg) acR15_DWG : tệp AutoCAD 2000 DXF (*.dxf) acR15_DXF acR15_Template: tệp AutoCAD 2000 Drawing Template File (*.dwt) : 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 acNative 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). Ví dụ sau sẽ kiểm tra xem bản vẽ đã được lưu hay chưa và sẽ hỏi người dùng xem có đồ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 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 Đóngbảnvẽ Để đóng bản vẽ, sử dụng phương thức Close có trong đối tượng Document. Cú pháp của phương thức Close như sau: object.Close([SaveChanges][, FileName]) Tham số Giải thích object Đối tượng kiểu Document, là đối tượng chứa bản vẽ cần đóng. SaveChanges Tham số tuỳ chọn, xác định xem có cần phải lưu bản vẽ lại trước khi đóng hay không. Nếu bằng TRUE, sẽ lưu bản vẽ, ngược lại là FALSE. Giá trị mặc định của tham số này là TRUE. 203 FileName Tham số tuỳ chọn, xác định tên của bản vẽ sẽ được lưu trong trường hợp bản vẽ chưa được lưu lần nào. Trong trường hợp chưa có sự thay đổi trong bản vẽ, các tham số trên được bỏ qua và phương thức Close chỉ đơn giản là đóng bản vẽ đang được tham chiếu. Nếu đã có sự thay đổi trong bản vẽ, tham số SaveChanges sẽ xác định xem bản vẽ có được lưu hay khô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 ‘←Đóng bản vẽ hiện hành ThisDrawing.Close SaveChanges:=True 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 từng bản vẽ nên phương thức Close của tập đối tượng Documents nên hạn chế sử dụng. 5.1.2. Khởi động và thoát khỏi chương trình AutoCAD KhởiđộngchươngtrìnhAutoCAD Do được thực thi bên trong AutoCAD nên các chương trình viết bằng VBA trong AutoCAD không cần phải thực ...