Giáo trình phân tích các phương pháp lập trình trên autocad p2

Tham khảo tài liệu 'giáo trình phân tích các phương pháp lập trình trên autocad p2', công nghệ thông tin, đồ họa - thiết kế - flash phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình phân tích các phương pháp lập trình trên autocad p2 Ví dụ sau minh hoạ cách thức sử dụng phương thức ZoomScaled bằng cách phóng màn hình bản vẽ lên 2 lần so với màn hình bản vẽ hiện tại: Sub VD_ZoomScaled() Dim ti_le As Double Dim kieu_phong_dai As Integer ti_le = 2 kieu_phong_dai = acZoomScaledRelative ‘ Thực hiện phương thức ZoomScaled ZoomScaled ti_le, kieu_phong_dai End Sub 5.1.5. Nhập dữ liệu người dùng từ dòng lệnh của AutoCAD Trong một chương trình, giao diện để người sử dụng thao tác với chương trình là một bộ phận rất quan trọng và không thể thiếu. Thông qua giao diện, người sử dụng có thể nhập dữ liệu và điều khiển chương trình hoạt động, còn chương trình, cũng thông qua giao diện, sẽ hướng dẫn cho người dùng cách thao tác và trình bày kết quả thực hiện của nó cho người dùng. Có nhiều cách để thiết kế giao diện nhập dữ liệu cho chương trình, như sử dụng các hộp thoại chuẩn (như InputBox hoặc MsgBox) hay thông qua hệ thống các hộp thoại người dùng (UserForm). Khi lập trình VBA trong AutoCAD, bởi chương trình sẽ hoạt động dựa trên nền là AutoCAD cho nên việc thiết kế một giao diện cho phép người dùng tương tác với chương trình ngay trong giao diện của AutoCAD là một nhu cầu cần thiết. Hơn nữa điều này được AutoCAD và VBA hỗ trợ thông qua đối tượng Utility (là một thuộc tính của đối tượng Document). Với những phương thức của đối tượng Utility người lập trình có cho phép người sử dụng thao tác với chương trình VBA thông qua dòng lệnh của AutoCAD cũng như màn hình đồ họa của AutoCAD. Các phương thức này sẽ hiển thị một dòng nhắc trên dòng lệnh của AutoCAD và yêu cầu người sử dụng nhập vào nhiều kiểu dữ liệu khác nhau (tuỳ thuộc vào từng loại phương thức) từ bàn phím hoặc chọn trên màn hình đồ họa của AutoCAD. Các phương thức để người dùng nhập dữ liệu vào từ bàn phím hay bằng chuột thường có dạng GetXXX, tuỳ thuộc vào loại dữ liệu mà người lập trình cần lấy. Dưới đây là một số phương thức thường được sử dụng: Prompt  Phương thức này chỉ đơn giản là gửi một đoạn văn bản đến dòng lệnh của AutoCAD và thường được sử dụng để thông báo cho người dùng biết một nội dung nào đó trước hoặc sau một thao tác với chương trình. Cú pháp như sau: Utility.Prompt Message Trong đó Message là đoạn văn bản sẽ được hiển thị trên dòng lệnh của AutoCAD. Khi gửi một đoạn văn bản đến dòng lệnh của AutoCAD, cần thêm vào ký tự xuống dòng, tránh dòng văn bản cần hiển thị nối vào dòng văn bản đang có trong dòng lệnh. Ví dụ sau sẽ minh hoạ rõ hơn điều này. 1. Trong VBAIDE, tạo Macro sau: Sub VDPrompt() Utility.Prompt (Vi du phuong thuc Prompt) End Sub 208 CHƯƠNG V: LẬP TRÌNH TRÊN AUTOCAD  2. Trở về AutoCAD để thực thi Macro bằng cách gọi lệnh –vbarun. Lưu ý là sử dụng phím SPACE để kết thúc dòng lệnh, thay vì sử dụng phím ENTER như thông thường. Kết quả hiển thị trên dòng lệnh như sau: 3. Để đoạn văn bản được in ra trên một dòng riêng biệt, thêm vào trước đoạn văn bản hằng số vbCrLf, và đoạn mã lệnh trên được chuyển thành: Sub VDPrompt() Utility.Prompt (vbCrLf & Vi du phuong thuc Prompt) End Sub 4. Thực thi lại Macro trên, đoạn văn bản đã được hiển thị trên một dòng riêng biệt GetString  Phương thức này được sử dụng để người dùng nhập vào một chuỗi ký tự. AutoCAD sẽ dừng lại cho đến khi người dùng nhập vào một giá trị nào đó. Cú pháp của phương thức GetString như sau: RetVal = Utility.GetString(HasSpaces[, Prompt]) Tham số Giải thích HasSpaces Tham số cho phép người dùng nhập vào dấu cách. Nếu bằng TRUE, người dùng có thể nhập dấu cách trong dòng lệnh, để kết thúc nhập phải nhấn phím ENTER. Nếu bằng FALSE, người dùng không thể nhập dấu cách cho chuỗi ký tự, khi người dùng nhấn phím SPACE hoặc ENTER thì sẽ kết thúc quá trình nhập. Prompt Tham số tuỳ chọn, là chuỗi ký tự sẽ hiện trên dòng lệnh AutoCAD để nhắc người dùng nhập dữ liệu. RetVal Là biến kiểu String, chứa giá trị là chuỗi ký tự được người dùng nhập vào. Một điểm cần lưu ý là phương thức này chỉ trả về tối đa 132 ký tự. Nếu người dùng nhập nhiều hơn 132 ký tự, kết quả trả về cho biến RetVal chỉ là 132 ký tự đầu tiên. Ví dụ sau sẽ minh hoạ cách sử dụng phương thức GetString: Sub VD_GetString() ' Ví dụ minh hoạ các cách sử dụng phương thức GetString Dim returnString As String ' Nhắc người dùng nhập 209 ' Giá trị nhập vào không thể chứa dấu cách returnString = ThisDrawing.Utility.GetString _ (False, Nhập chuỗi (nhấn SPACE hoặc ENTER để kết thúc): ) MsgBox Chuỗi vừa nhập là: ' & returnString & ' ' Nhắc người dùng nhập ' Giá trị nhập vào có thể chứa dấu cách returnString = ThisDrawing.Utility.GetString _ (True, Nhập chuỗi (nhấn ENTER để kết thúc): ) MsgBox Chuỗi vừa nhập là: ' & returnString & ' End Sub GetInteger, GetReal  Phương thức này được sử dụng khi muốn người dùng nhập một số nguyên (phương thức GetInteger) hoặc một số thực (phương thức GetReal). Cú pháp của các phương thức này như sau: RetVal = Utility.GetInteger([Prompt]) RetVal = Utility.GetReal([Prompt]) Tham số Giải thích Prompt Tham số tuỳ chọn, là chuỗi ký tự sẽ hiện trên dòng lệnh AutoCAD để nhắc người dùng nhập dữ liệu. RetVal Là biến kiểu Double hoặc Interger (tuỳ thuộc vào phương thức được sử dụng), chứa giá trị là số người dùng vừa nhập vào. Nếu người dùng nhập vào một từ khoá hoặc không nhập số mà nhấn ngay phím ENTER để kết thúc nhập liệu, AutoCAD sẽ phát sinh lỗi “User input keyword.”. Ví dụ sau minh hoạ cách sử dụng các phương thức này: Sub Example_GetReal() ' Ví dụ sau sử dụ ...