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

LinkWithin

Related Posts Plugin for WordPress, Blogger...