Edit Lisp to create viewport from the model sidebar

[Phamyen]

The selection box is not arranged in any order you can choose by pline or text (ordinal number) in Figure 1

b1: type command
b2: scan by pline or text
b3: select the print rate (500,1000,2000,5000 ..)
b4: select a frame (if any)
b5: enter the space between the layout side frames
- If you have arranged in order, then automatically numbered (or pline ...) Figure 2

  code :

(defun C:mtll()
 (command "UNDO" "BE")
 (setvar "OSMODE" 0)
 (setq taphop(ssget))
 (if (= Tyle nil)
(setq Tyle1 1)
(setq Tyle1 Tyle))
 (setq Tyle (getreal (strcat "\n Ty le: <" (rtos Tyle1 2 0) "> ")))
 (if (= Tyle nil)
(setq Tyle Tyle1))
 (setq soluong (sslength taphop))
 (setq index 0)
 (setq i 0)
 (setq ten (getstring "\n Nhap ten layout:"))
 (command "layout" "N" ten)
 (command "LAYOUT" "S" ten)
 (command "ERASE" "ALL" "")
 (command "MODEL")
 (setq X 0)
 (command "ZOOM" "E")
 (while (< index soluong)
(setq i(1+ i))
(setq khung(ssname taphop index))
(setq lst(acet-geom-vertex-list khung))
(command "COPYCLIP" khung "")
(command "LAYOUT" "S" ten)
(command "PASTECLIP" (list X 0))
(command "SCALE" (entlast) "" (list X 0) (/ 1 tyle))
(command "MVIEW" "O" (entlast))
(command "MSPACE")
(command "ZOOM" (nth 0 lst) (nth 2 lst))
(command "PSPACE")
(setq X(+ X 300.5607 (/ (abs(- (car (nth 2 lst)) (car (nth 0 lst)))) tyle)))
(command "ZOOM" "W" (list 0 0) (list (+ X 100) 0))
(setq index (+ index 1))
)
 (command "MODEL")
 (command "UNDO" "END")
 (setvar "OSMODE" 15359)
 (princ)
 )
 

(I can't speak English to use google translate
Sorry if bothered)

aaa.dwg