TextBox2

Outro dia estava precisando desenhar um retângulo tal que circunscrevesse um TEXT ou MTEXT… pois bem, existe a função textbox no autolisp, mas esta so funciona com TEXT… e ainda, ele devolve uma lista com a diagonal do retângulo ocupado pelo texto, como se ele estivesse na origem (0,0) e tivesse rotação zero…

aí desenvolvi esta rotinazinha:

(defun textbox2 (ent / box w h pt ang al)
(if (setq ent (ename-of ent))
(progn
(setq pt (3d-of-vla
(vla-get-insertionpoint
(vlax-ename->vla-object ent)))
ang (dxf 50 ent))
(if (= (dxf 0 ent) “TEXT”)
(setq box (textbox (list (cons -1 ent)))
w (– (caadr box) (caar box))
h (– (cadadr box) (cadar box)))
(setq w (dxf 42 ent)
h (dxf 43 ent)
ang (angle (trans ‘(0 0) 1 0)
(trans
(polar ‘(0 0) ang 1)
1 0))
al (1- (dxf 71 ent))
pt (polar
(polar pt ang
(* w -0.5 (rem al 3)))
(– ang (/ pi 2))
(* h 0.5 (– 2 (/ al 3))))))
(list pt
(polar pt ang w)
(polar pt
(+ ang (atan (/ h w)))
(sqrt (+ (expt h 2)
(expt w 2))))
(polar pt (+ ang (/ pi 2)) h)))))

ela devolve uma lista com os quatro vértices do retângulo, esteja o texto onde estiver e a rotação que for… serve para TEXT e MTEXT…