Ouça uma das minhas músicas preferidas: , ou o canto de um passarinho: /spam>>

  ♩ ♪ ♫ Música do Dia  ♩  ♪♫

quarta-feira, 15 de agosto de 2012

Autolisp para alinhar texto em relação à uma linha


; Alinha o texto selecionado em relação à uma linha

(defun c:atexto()
(print)
(prompt "Selecione a linha. ")
(setq obj (entsel))
(setq obj  (car obj))
(setq obj (entget obj))


(setq p1 (assoc 10 obj))
(setq p2 (assoc 11 obj))

(setq x1 (nth 1 p1))
(setq y1 (nth 2 p1))

(setq x2 (nth 1 p2))
(setq y2 (nth 2 p2))

(if (= (- X1 X2) 0)
(setq ang (/ pi 2))
(setq ang (atan (/ (- y1 y2) (- x1 x2))))
)
(setq ang (/ (* 180 ang) pi))

(setq obj (entsel "Selecione o texto. "))

(command "change" obj "" "" "" "" "" ang "")

)


Nenhum comentário: