Merubah sudut text

;Merubah sudut text berdasarkan satu garis yang dipilih
;Dari end point terdekat kearah endpoint terjauh


(DEFUN C:99(/ rr v2 se a f an d i k u su ma)
(setq rr *error* *error* merr)
(setq v1(ssget '((0 . "TEXT"))) V2 0
se(nsel" Select line : "))
(setq a (cdr (assoc 10 (entget (car se))))
an (distance (car (cdr se)) a)
f (cdr (assoc 11 (entget (car se))))
d (distance (car (cdr se)) f) )
(if (< an d )(setq i a k f)(setq i f k a))
(setq u (cons 50(ANGLE i k)))
(while (< v2 (sslength v1))
(setq su (assoc 50 (setq ma(entget (ssname v1 v2)))))
(entmod (subst u su ma))
(setq v2 (1+ v2))
)
(setq *error* rr)(princ))