[Nhờ chỉnh sửa]Lisp tạo viewport từ khung chọn bên model

[nhimret 1]

Hiện giờ tôi đang dùng lisp của bạn nhoclangbat trong topic bên dưới. 

;========LISP TAO VIEWPORT TREN LAYOUT BANG CACH CHON O MODEL========
(defun C:mtl(/ taphop soluong ten size i index oldos)
 (command "UNDO" "BE")
 (setq oldos (getvar "osmode"))
 (setvar "OSMODE" 0)
 (setq taphop(ssget))
 (setq soluong (sslength taphop))
 (setq ten (getstring 1 "\n Nhap ten layout:"))
 (setq index 0)
 (setq i 0)
 (while (< index soluong)
(setq i(1+ i))
(setq khung(ssname taphop index))
(setq lst(acet-geom-vertex-list khung))
(command "COPYCLIP" khung "")
(command "LAYOUT" "N" (strcat ten (rtos i 2 0)))
(command "LAYOUT" "S" (strcat ten (rtos i 2 0)))
(command "layout" "d" "layout1" "")
(command "layout" "d" "layout2" "")
(command "layout" "d" "layout3" "")
(command "ERASE" "ALL" "")
(command "PASTECLIP" "0,0")
(command "MVIEW" "O" (entlast))
(command "MSPACE")
(command "ZOOM" (nth 0 lst) (nth 2 lst))
(command "PSPACE")
(command "ZOOM" "E")
(command "PLOT" "Y" "" "" size "M" "L" "N" "W" "0,0" (list (abs(- (car (nth 2 lst)) (car (nth 0 lst)))) (abs(- (cadr (nth 2 lst)) (cadr (nth 0 lst))))) "F" "" "Y" "" "Y" "N" "N" "N" "N" "Y" "N")
(command "MODEL")
(setq index (+ index 1))
)
 (command "UNDO" "END")
 (setvar "OSMODE" oldos)
 (princ)
 )

Lisp của nhoclangbat và các bạn tham gia topic đều chỉ thực hiện theo ý chủ thớt là chọn 1 khung chữ nhật. 

Nhờ mọi người chỉnh hộ có thể chọn cả 1 khung tên có sẵn (dạng xref hoặc block). 

Cám ơn nhiều.

 

[nikizi 9]

Bạn tham khảo bộ lisp yqarch autocad của mấy anh tung của :3