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)
)