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

THIẾT KẾ ĐƯỜNG ĐI DẠO TRONG VƯỜN - MỘT VÍ DỤ VỀ ActiveX/VBATrong chương nàyĐây là phần hướng dẫn người đọc cách thêm một Macro mới vào trong AutoCAD, giải thích sự làm việc của ActiveX và VBA, và cách sử dụng các công nghệ này hiệu quả nhất. Ví dụ này hướng theo kiến trúc cảnh quan nhưng những khái niệm mà người đọc có thể học được vẫn có thể vận dụng vào các lĩnh vực ứng dụng khác. Phần ví dụ này được soạn với đối tượng là những người sử dụng AutoCAD thành thạo nhưng mới...
Nội dung trích xuất từ tài liệu:
Phát triển AutoCAD bằng ActiveX & VBA - Chương 13THIẾT KẾ ĐƯỜNG ĐI DẠOTRONG VƯỜN - MỘT VÍ DỤVỀ ActiveX/VBA 13 Trong chương nàyĐây là phần hướng dẫn người đọc cách thêm một Kiểm tra môi trường làm việcMacro mới vào trong AutoCAD, giải thích sự làm Xác định mục đíchviệc của ActiveX và VBA, và cách sử dụng các công Viết đoạn chương trìnhnghệ này hiệu quả nhất. Ví dụ này hướng theo kiến đầu tiêntrúc cảnh quan nhưng những khái niệm mà người Nhập số liệuđọc có thể học được vẫn có thể vận dụng vào các Vẽ đường đi dạolĩnh vực ứng dụng khác. Phần ví dụ này được soạn Vẽ lớp gạch látvới đối tượng là những người sử dụng AutoCAD Tổng hợp lạithành thạo nhưng mới học lập trình với VBA. Duyệt mã lệnh Thực thi Macro Thêm giao diện hộp thoại Phát triển ứng dụng ActiveX và VBA | 2951. Kiểm tra môi trường làm việcĐể thực hiện các thao tác cần thiết trong ví dụ này, trước hết cần cài đặt môi trườngVBA trong AutoCAD. Khi cài AutoCAD với tuỳ chọn Full hoặc Standard thì môitrường VBA được tự động cài đặt, nếu chọn Custom thì có thể VBA sẽ không đượccài đặt.Kiểm tra việc cài đặt VBA:1 Khởi động AutoCAD. Tại dòng nhập lệnh, gõ VBAIDE.23 Nếu môi trường lập trình VBA mở ra thì VBA đã được cài đặt. Nếu xuất hiện thông báo “AutoCAD VBA is not currently installed” thì VBA chưa được cài đặt.Cài đặt môi trường VBA:1 Thoát khỏi chương trình AutoCAD.2 Chạy chương trình cài đặt AutoCAD setup.exe.3 Chọn Add để thêm một thành phần vào bản cài đặt hiện tại.4 Chọn VBA Support.5 Chọn Next để tiếp tục cài đặt6 Khẳng định các cài đặt bằng cách chọn Next một lần nữa.7 Khi đã hoàn thành việc cài đặt thì khởi động lại chương trình AutoCAD. Tại dòng nhập lệnh, nhập VBAIDE. Môi trường lập trình VBA sẽ được mở ra và8 môi trường làm việc để thực hiện ví dụ trong chương này đã sẵn sàng.2. Xác định mục đíchMục tiêu trong ví dụ này là lập một Marco mới cho AutoCAD để vẽ một đường đitrong vườn và được lát bởi các viên bêtông tròn. Marco mới sẽ có các dòng nhắctheo trình tự như sau:Command: gardenpathStart point of path: Người dùng sẽ chỉ ra điểm đầu của tuyến đườngEndpoint of path: Người dùng sẽ chỉ ra điểm kết thúc của tuyến đườngHalf width of path: Người dùng nhập vào giá trị của một nửa bề rộngRadius of tiles: Người dùng nhập vào giá trị bán kính của gạch látSpacing between tiles: Người dùng nhập vào khoảng cách giữa hai viên gạchKhi thực hiện, Macro sẽ nhắc người dùng nhập vào điểm bắt đầu và kết thúc củatim đường đi dạo thiết kế. Tiếp đó, macro nhắc người dùng nhập bề rộng nửa đường(vẽ bề rộng nửa từ đường tim sẽ giúp dễ hình dung hơn là cả bề rộng đường) và bánkính của những viên gạch lát hình tròn. Cuối cùng, người dùng được yêu cầu nhậpkhoảng cách giữa các viên gạch lát.296 | Chương 13: Thiết kế đường đi dạo trong vườn – Một ví dụ về ActiveX/VBA3. Viết đoạn chương trình đầu tiênMacro sẽ được xây dựng dựa trên một loạt các hàm và thủ tục. Một số thủ tục làmviệc với các góc vì lý do đơn vị của góc trong ActiveX là radians nhưng hầu hếtngười dùng thường quen làm việc với góc tính theo độ. Do đó, trước hết cần xâydựng hàm chuyển đổi từ độ sang radians. Nếu chưa mở VBA IDE thì khởi động nótừ bằng lệnh VBAIDE.Trong VBA IDE, mở cửa sổ Code như sau: trong menu View Code; hoặc dùngphím F7.Hàm chuyển đổi từ độ sang radiansGõ đoạn mã sau vào cửa sổ Code sau dòng Option Explicit:Const pi = 3.14159’ Chuyển đổi từ độ sang radiansFunction dtr(a As Double) As Double dtr = (a / 180) * piEnd FunctionNgay khi xuống dòng để kết thúc dòng lệnh Function dtr(a As Double) AsDouble, VBA sẽ tự động thêm dòng lệnh End Function. Môi trường lập trìnhVBA luôn thực hiện như vậy để đảm bảo rằng tất cả các chương trình con đều cólệnh kết thúc tương ứng.Ở dòng đầu tiên, hằng số pi được gán giá trị là 3.14159. Điều này cho phép thay thếviệc gõ lại số 3.14159 mỗi khi cần dùng bằng cách nhập pi.Dòng tiếp theo để định nghĩa một hàm có tên là dtr (Degrees To Radians). Hàm sốnày cần một đối số a là góc theo đơn vị độ. Kết quả tính bằng cách chia góc a cho180 và nhân với pi. Dòng bắt đầu bằng dấu nháy đơn là câu chú thích. VBA sẽ bỏqua tất cả những dòng bắt đầu bằng ký tự này.Hàm này đã có t ...