Tham khảo tài liệu 'cơ sở lập trình tự động hóa tính toán, thiết kế với vb và vba trong môi trường auto cad part 10', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | B4 Kích đúp chuột vào nút Exit và thêm đoạn mã lệnh như sau Private Sub Thoat_Click End End Sub B5 Trên cửa sổ soạn thảo chọn hàm DrawXycloit như hình vẽ. Microsoft Visual Basic - D book_VBA cacvidu Cycloit ẼH File Ẹdtt View nsert Format Debug Run Tools Window Help Ề â Q 4 II M Ế - ACADProject D book_ ị - AutoCAD Objects r- .. DrawCydoit General IlDrawCyclort 1 Lal el5 Hình . chọn sự kiện Click. Ln 4 Col 1 Click Click .ne 2 Dbiciick I Enter Error Exit Hình . Sau đó thêm đoạn mã chương trình sau Private Sub DrawXycloit_Click Khai hảo đường Xycloit có dạng AcadLWPolyline trong VBA. Dim Xycloit As AcadLWPolyline Khai báo các thông số liên quan Dim pi As Double i As Integer Dim p 0 To 719 As Double Dim a As Double bk As Double bk Val r pi Fori 0To719 If i Mod 2 0 Then p i r i pi 180 - Sin i pi 1 SOI 244 Else p i r 1 - Cos i pi 180 End If Next Tạo đường Xycloit trong không gian vẽ. Set Xycloit p acRed Hiến thị đối tượng trên màn hình. End Sub B6 Trong cửa sổ soạn thảo từ thanh công cụ vào Insert Procedure. Giao diện hộp thoại hiện ra như sau Type 5ub Cancel Function Property Scope Public Private F All Local variables as Statics Hình . Hộp thoại AddProcedure. B7-. Trong Name TextBox nhập tên Marco Main vào với kiểu Sub và quyền truy vấn là Public để có thể gọi được ở mọi nơi ở trong chương trình. Thêm đoạn mã chương trinh sau vào Modulel Public Sub main End Sub 245 B8 Chạy Macro từ hộp thoại hoặc dùng lệnh VBARUN từ command . Hình . Macros. B9-. Chạy chương trình click vào nút Run. Hình . Giao diện chương trình. .
