Dimensions de cabeça pra baixo

Atendendo a pedidos, aí vai a rotina para desvirar dimensions que estejam de cabeça pra baixo
Não está totalmente testada, mas já está funcionando... pelo menos aqui... se o seu UCS estiver rotacionado e a rotina não estiver produzindo efeito, experimente digitar PLAN na linha de comando, escolher CURRENT, e usar a rotina novamente

mais...

(defun c:rotdim (/ ss ent xdir)
  (tbn:error-init  (list (list "cmdecho" 0) T))
  (setq ss   (ssget '((0 . "DIMENSION")))
        xdir (angle (trans '(0 0) 0 1) (trans '(1 0) 0 1)))
  (repeat (if ss (sslength ss) 0)
    (setq ent (ssname ss 0))
    (remake-ent ent 51 xdir)
    (ssdel ent ss))
  (tbn:error-restore t))

Link(s) da(s) subrotina(s) usada(s):
tbn:error-init, remake-ent, tbn:error-restore