Để 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")))).