Báo cáo nghiên cứu khoa học: CHƯƠNG TRÌNH AUTOLISP TẠO LỆNH THIẾT LẬP NHANH BẢN VẼ MẪU XÂY DỰNG TRONG AUTOCAD

Bài báo trình bày chương trình AutoLISP tạo lệnh thiết lập nhanh các bản vẽ mẫu xây dựng tổng quát trong AutoCAD. Các bản vẽ mẫu này được sử dụng để thiết kế các đồ án tốt nghiệp cho sinh viên xây dựng thuộc trường Đại học Bách khoa Đà Nẵng.
Nội dung trích xuất từ tài liệu:
Báo cáo nghiên cứu khoa học: "CHƯƠNG TRÌNH AUTOLISP TẠO LỆNH THIẾT LẬP NHANH BẢN VẼ MẪU XÂY DỰNG TRONG AUTOCAD" CHƯƠNG TRÌNH AUTOLISP TẠO LỆNH THIẾT LẬP NHANH BẢN VẼ MẪU XÂY DỰNG TRONG AUTOCAD THE AUTOLISP PROGRAM CREATING THE COMMANDS FOR QUICK SETUP OF THE GENERAL CONSTRUCTIONAL TEMPLATE DRAWINGS IN AUTOCAD NGUYỄN ĐỘ Trường Đại học Bách Khoa, Đại học Đà Nẵng TÓM TẮT Bài báo trình bày chương trình AutoLISP tạo lệnh thiết lập nhanh các bản vẽ mẫu xây dựng tổng quát trong AutoCAD. Các bản vẽ mẫu này được sử dụng để thiết kế các đồ án tốt nghiệp cho sinh vi ên xây dựng thuộc trường Đại học Bách khoa Đà Nẵng. ABSTRACT This paper presents the AutoLISP program creating the command for quick setup of the general constructional template drawings in AutoCAD. These template drawings are used to design graduation plans for students of construction of Da Nang College of Technology. 1. Đặt vấn đề AutoCAD là phần mềm đồ hoạ thiết kế tự động với sự trợ giúp của máy tính được sinhviên Kỹ thuật sử dụng để thiết kế các loại đồ án tốt nghiệp và đồ án môn học, ... Trong AutoCAD có một số bản vẽ mẫu nhưng không phù hợp với các quy định ở ViệtNam mà cụ thể là ba khoa Xây dựng thuộc trường Đại học bách Khoa Đà Nẵng. Khi thiết kếbản vẽ ta thường thực hiện các bước sau: Tạo giới hạn bản vẽ; tạo các lớp rồi gán các tínhchất cho lớp; tạo các kiểu văn bản và gán phông tiếng Việt cho kiểu này; tạo các kiểu kíchthước và gán các biến kích thước; vẽ giới hạn bản vẽ và khung tên; viết các dòng văn bảntiếng Việt cần thiết vào khung tên; định tỉ lệ dạng đường, tỉ lệ mặt cắt cho bản vẽ; .... Để giảm thời gian cho việc định lại các bước trên, ta thiết lập chúng một lần rồi lưuthành các bản vẽ mẫu có giới hạn được xác định theo các khổ giấy tiêu chuẩn khác nhau. Khithiết kế ta mở một trong các bản vẽ mẫu này thì những gì đã thiết lập sẵn sẽ sao chép ra bảnvẽ hiện hành để sử dụng. Tuy nhiên để thiết lập bản vẽ mẫu cực kỳ nhanh và tổng quát hơn cho cả khổ giấy và t ỉlệ bản vẽ,... Bằng ngôn ngữ lập trình đồ hoạ AutoLISP, tác giả viết chương trình tạo lệnhthành lập bản vẽ mẫu trong AutoCAD nhằm phục vụ sinh viên ba khoa Xây dựng: Dân dụng& CN; Thuỷ lợi & Thuỷ điện và Cầu đường thuộc Trường Đại học Bách Khoa Đà Nẵng, giảmthời gian ban đầu khi vẽ đồ án tốt nghiệp trên AutoCAD. 2. Chương trình tạo lệnh bản vẽ mẫu Chương trình tạo lệnh BVMAUXD để thiết lập bản vẽ mẫu đồ án tốt nghiệp cho sinhviên ba khoa Xây dựng thuộc trường Đại học Bách khoa Đà Nẵng thể hiện qua sơ đồ khối(hình 1) với nội dung sau:(defun C:BVMAUXD ( ) (setq r (getreal \nNhap chieu ngang cua kho giay r = ) h (getreal \nNhap chieu dung cua kho giay h = ) k (getreal \nNhap he so ti le ban ve k = ) i 1.0 tl (* i k) P1 (list 0.0 0.0) P2 (list (+ r (car P1)) (cadr P1)) P3 (list (car P2) (+ h (cadr P2))) P4 (list (car P1) (+ h (cadr P1))) d1 (list (* 3 (+ k (car P1))) (cadr P1)) d2 (list (* 3.5 (+ k (car P1))) (cadr P1)) d3 (list (* 4 (+ k (car P1))) (cadr P1)) d4 (list (* 4.5 (+ k (car P1))) (cadr P1)) d5 (list (* 5 (+ k (car P1))) (cadr P1)) Bàõt âáöu cao1 (distance P1 d1) cao2 (distance P1 d2) cao3 (distance P1 d3) N háûp caïc biãún : cao4 (distance P1 d4) - Nháûp tãn lãûn h : BV MAU XD - Âån vë veî, caïc chiãöu giåïi haûn , tè lãû baín veî cao5 (distance P1 d5) - Taûo caïc låïp, kiãøu kêch thæåïc, kiãøu vàn baín sf2-1 0.5 - Caïc tè lãû daûng â æåìn g, màût càõt, kêch thæåïc... sf2.5-1 0.4 sf4-1 0.25 Kãút quaí veî sf5-1 0.2 DD BV máùu D án duûn g sf10-1 0.1 sf1-2 2.0 Kãút thuïc Kãút quaí veî TL BV máùu Thuyí låüi l ãûn h)(setvar cmdecho 0) Kãút quaí veî(setvar lwdisplay 1) CD BV máùu Cáöu âæåìn g(setvar lwunits 1)(setvar measurement 1) (Initget 1 Dandung TLoi Cauduong Thoat)(setvar SHORTCUTMENU 0)(setvar LUPREC 2)(setvar Limcheck 0) (Setq KT (getkword Nhap [D dung/T Loi/Cduong/T hoat]:)(setvar DIMASZ 2.5)(setvar DIMTXT 3)(setvar DIMCLRD 256) CO ND(setvar DIMCLRE 256) Thoaït lãûn h KT=Cauduong KT=T ...