Como fazer Sobrescrito ou Subscrito no Autocad

Usando um MTEXT,
Digite o Circunflexo ^ (shift+6) e o texto desejado - Para subscrito
ex: CO^2
Digite o texto desejado e o Circunflexo ^(shift+6) - Para sobrescrito
ex: 10,0m3^

No editor de texto, selecione os caracteres "3^" ou "^2" clique com o botão direito do mouse e clique no item STACK.

---

Remover formatação

Remove rapidamente a formatação indesejada embutida em MTEXT, MLEADERS, DIMENSION, TABLE e em ATTRIB de múltiplas linhas.

---

Fonte: CADabyss - Baixar: StripMtextv5-0b.lsp

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

Criar camadas

---

(defun c:CriCa ()
;;(INICIAR)
(defun CriarCamada ()
(setq Vla-Obj
     (vla-Add
     (vla-Get-Layers
     (vla-Get-ActiveDocument
     (vlax-Get-Acad-Object)))
     CAMADA)
)
(vla-Put-Description Vla-Obj (strcat "# " DESCRICAO))

(command "-LAYER" "Set" CAMADA
                  "LWeight" PENA ""
                  "Color" COR ""
                  "Ltype" LINHA ""
                  "")
)

(princ "\n# Criando camadas...  ")
;;------------------------------------------------------------------------------
;;  Exemplos de como criar camadas
;;------------------------------------------------------------------------------

(setq   CAMADA    "Nome da camada que será criada"
        DESCRICAO "Descrição da camada (é opcional)"
        COR       "5"
        PENA      "0.05"
        LINHA     "Continuous"
)(CriarCamada)


(setq   CAMADA   "Nome da outra camada criada"
        DESCRICAO " "
        COR       "100"
        PENA      "1.00"
        LINHA     "Hidden"
)(CriarCamada)


(setq   CAMADA   "Outro nome de outra camada para criar"
        DESCRICAO ""
        COR       "211"
        PENA      "2.11"
        LINHA     "Gas_Line"
)(CriarCamada)

;;------------------------------------------------------------------------------
(princ "\n# Camadas criadas!  ")

(setq CAMADA    "")
(setq DESCRICAO "")
(setq COR       "")
(setq PENA      "")

(command "CLAYER" "0")
;;(FINALIZAR)
)

ALERTA!!!

Falha no sistema...