전에 어떤분이 여 자료에 올리셨던건데..
추가적인 방법 질문요.. 현재 이 리습은 텍스트를 선택하는 라인의 기울기에 맞게 같은 각도로 해주는데요..
폴리라인은 안먹히네요.. 어디를 수정해야 가능한가요..
넘 잘쓰고 있는데… 고칠라 해봐도 잘 모르겠네요 넘 초보라.. 공부 한다고하는데.. 고수님들의 도움만 받네요.. 부탁드립니다…
(defun c:tr(/ tex lin t1 t2 ta l1 l2 lsp lep laa)
(setvar “cmdecho” 0)
(setq tex (entsel “n>>문자를 선택하십시요! : “))
(setq lin (entsel “n>>라인을 선택하십시요! : “))
(setq t1 (car tex)
t2 (entget t1)
ta (assoc 50 t2)
l1 (car lin)
l2 (entget l1)
)
(setq lsp (cdr (assoc 10 l2)))
(setq lep (cdr (assoc 11 l2)))
(setq laa (angle lsp lep))
(if (and (> laa 1.5708) (<= laa 4.71239))
(setq laa (angle lep lsp))
)
(if (and (<= laa 1.5708) (> laa 4.71239))
(setq laa (angle lep lsp))
)
(setq t2 (subst (cons 50 laa) ta t2))
(entmod t2)
(princ)
)