Qual XP?

(defun c:QualXP (/ ESCALA RESULTADO)
(setq ESCALA 
  (getreal "\n|| Para qual escala você deseja saber o fator de 'zoom'? ")
)
  (setq RESULTADO (calculo-do-zoom))
  (princ "\n|| O seu fator de 'zoom' é: ")
  (princ RESULTADO) (princ "xp") (princ))
  (defun calculo-do-zoom ()
  (/ 1000 ESCALA)
)

Imprime LAYOUTs do intervalo

(defun c:PINT ()
(setq PGINI '()) (setq PGFIM '())
(setq PGATUAL '()) (setq PGINTER '())

(if (= PGINI nil) (progn
  (setq PGINI (getint "\n|| Página inicial: "))
  (setq PGFIM (getint "\n|| Página final..: "))
) )
(setq PGATUAL PGINI)
(repeat (- (1+ PGFIM) PGINI)
 (progn
  (setq PGINTER (append PGINTER (list PGATUAL)))
  (setq PGATUAL (1+ PGATUAL))
 )
)
(setq PGATUAL '())
(princ (strcat "\n|| Iniciando a impressão do intervalo: " (itoa PGINI) " -> " (itoa PGFIM)))
(foreach LAY PGINTER (command "-PLOT" "no"
 (if (< LAY 10)
  (strcat "0" (itoa LAY))
  (itoa LAY)
 )
 "previous plot" "" "" "y" "y") )
(princ (strcat "\n|| Fim da Impressão "))
(princ PGINTER)(princ)
)

Reconfigura o ctb dos LAYOUTS para 'monochrome'

(defun c:MONOCTB ( / LAY)
 (princ "\n|| Iniciando a reconfiguração dos LAYOUTs para 'monochrome'...")
 (foreach LAY (layoutlist)
  (command "-PLOT" 
   "Yes" LAY "DWG To PDF.pc3" 
   "ISO full bleed A3 (420.00 x 297.00 MM)" 

   "Millimeters" 
   "Landscape" "No" "Extents" 
   "1=1" "Center" 
   "Yes" 
   "monochrome.ctb" 
   "Yes" "No" "No" "No" "No" "Yes" "No")
  )
(princ (strcat "\n|| Fim da Reconfiguração "))(layoutlist)(princ)
)