Thuật Toán Chèn Cabin Từ Đường Dẫn

Một phần của tài liệu Xây dựng phần mềm thiết kế mẫu tàu du lịch mang nét văn hóa đặc trưng của khánh hòa (Trang 65 - 67)

Để chương trình hoạt động được thì cabin mẫu cần được lưu ở support và phải đảm bảo rằng đường dẫn đến file cabin mẫu đã được lưu lại trong mục “support file search path” của AutoCAD.

(command "-view" "_nwiso") // Chuyển góc nhìn sang 3D để vẽ cabin 3D (setvar "cmdecho" 0)

// Biến này sẽ cho phép (CMDECHO = 1) hoặc ngăn chặn (CMDECHO = 0) hiển thị các lệnh nhắc nhở trên cửa sổ văn bản AutoCAD. Nó được sử dụng trong AutoLISP như một thủ tục để không làm phiền người dùng với một chuỗi các dây trên dấu nhắc lệnh.

(setvar "OSMODE" 128)

// Xác lập chế độ Osnaps bắt điểm vuông góc.

(setq pt(LIST (* dxt (- 4790)) 0 (* dxt (- 1040)) )) (COMMAND "INSERT"

"CABIN BAI BIEN.dwg" pt 1 1 0

) // mặc định scale theo phương x y và góc xoay lần lượt là 1 1 0 Câu lệnh insert của AutoCAD bao gồm các mục như sau : 1. Enter block name or [?]: tên block cần chèn

2. Specify insertion point or [Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:chọn điểm chèn cụ thể hoặc scale ba phương/theo phương X/ theo phươngY/ theo phương Z/rotate/vị trí điểm đặt sau khi chèn PX/PY/PZ.

3. Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 : Nếu không muốn thay đổi thì mặc định scale theo phương X với tỷ lệ 1:1

4. Enter Y scale factor : 1 : Nếu không muốn thay đổi thì mặc định scale theo phương Y với tỷ lệ 1:1

5. Specify rotation angle <0>:Góc scale cụ thể, nếu không muốn thay đổi thì mặc định là 0

Ứng với 5 câu lệnh đó, khi viết 5 biến vào chương trình lisp tương ứng sẽ là: (command "insert" 1 2 3 4 5)

Khi người dùng không nhập biến như 3, 4 thì dùng dấu "" như sau : (command "insert" 1 2 "" "" 5)

(command "_.Zoom" "0.95")

(setq xscl (ureal 1 "U" "\n Kiem tra ty le scale dx (nhan enter khi chap nhan ) " dx)) // gán giá trị scale theo phương x là dx

(setq yscl (ureal 1 "U" "\n Kiem tra ty le scale dy (nhan enter khi chap nhan )" dy)) // gán giá trị scale theo phương y là dy

(setq zscl (ureal 1 "U" "\n Kiem tra ty le scale dz (nhan enter khi chap nhan ) " dz)) // gán giá trị scale theo phương z là dz

(setq tset (ssget '((0 . "INSERT")))).

Một phần của tài liệu Xây dựng phần mềm thiết kế mẫu tàu du lịch mang nét văn hóa đặc trưng của khánh hòa (Trang 65 - 67)

Tải bản đầy đủ (PDF)

(99 trang)