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