엔지니어 기술블로그

;;문자를 선의 각도에 맞추어 정렬

(defun c:rt( / tex lin t2 ta e_n p_line p_lsp p_lep laa t2 l_ine l_lsp l_lep)
       (setvar "cmdecho" 0)
       (setq tex (entsel "n>>문자를 선택하십시요! : "))
       (setq lin (entsel "n>>라인 또는 피라인을 선택하십시요! : "))
       (setq t2 (entget (car tex))
             ta (assoc 50 t2)
       )
       (setq e_n (cdr (assoc 0 (entget (car lin)))))

   (if (= e_n "LWPOLYLINE")
       (progn
         (command "explode" lin "")
         (setq p_line (entget (entlast)))
         (setq p_lsp (cdr (assoc 10 p_line)))
         (setq p_lep (cdr (assoc 11 p_line)))
         (setq laa (angle p_lsp p_lep))
           (if (and (> laa 1.5708) (<= laa 4.71239))
              (setq laa (angle p_lep p_lsp))
           )
           (if (and (<= laa 1.5708) (> laa 4.71239))
              (setq laa (angle p_lep p_lsp))
           )
          (setq t2 (subst (cons 50 laa) ta t2))
          (command "undo" "")
          (entmod t2)
       )
    )

   (if (= e_n "LINE")
     (progn
       (setq l_ine (entget (car lin)))
       (setq l_lsp (cdr (assoc 10 l_ine)))
       (setq l_lep (cdr (assoc 11 l_ine)))
       (setq laa (angle l_lsp l_lep))
           (if (and (> laa 1.5708) (<= laa 4.71239))
              (setq laa (angle l_lep l_lsp))
           )
           (if (and (<= laa 1.5708) (> laa 4.71239))
              (setq laa (angle l_lep l_lsp))
           )
          (setq t2 (subst (cons 50 laa) ta t2))
          (entmod t2)
     )
   )
(princ)
)