리습 수정 요청<br>리습 수정 요청<br>리습 수정 요청

layer 이름 출력하는 리습입니다.
이 리습은 레어이 이름은 표기 되기는 하는데 수평으로만 표기가 되어서
이를 레이어와 수평되게 바꾸고 싶습니다.

** 또 레이어의 길이가 짧은 것도 표기가 되어 도면이 지져분 해져서,
표기되는 레이어 길이를 제어 할 수 있을 까요?
설정을 할 수 있으면 더욱 ^^

(defun c:lea () ;일반 주석 달기
   (eof)
   (setq allscf (getvar "DIMSCALE"))
   (setq othmo (getvar "ORTHOMODE"))
   (setvar "OSMODE" 34)
   (setq p0 (getpoint "Leader Start Point(Int,Mid): ")) (terpri)
   (setvar "OSMODE" 0)
   (setvar "ORTHOMODE" 0)
   (setq p1 (getpoint p0 "To Point: ")) (terpri)
   (setq dis (distance p0 p1))
   (if (< (nth 0 p0) (nth 0 p1))
      (if (< (nth 1 p0) (nth 1 p1))
         (setq ang (dtr 60))
         (setq ang (dtr 300))
      )
      (if (< (nth 1 p0) (nth 1 p1))
         (setq ang (dtr 120))
         (setq ang (dtr 240))
      )
   )
   (setq p2 (polar p0 ang dis))
   (command "LINE" p0 p2 "")
   (command "CHPROP" (entlast) "" "c" "255″ "")
   (arrow p0 ang allscf)
   (setvar "ORTHOMODE" 1)
   (setq p3 (getpoint p2 "To Point: ")) (terpri)
   (if (/= nil p3)
      (progn
         (setq te (getstring "Enter Dimension Text: " t))
         (if (/= "" te)
           (progn
             (setq ang (angle p2 p3)
                   dis (stringwide te (* allscf 2))
                   p4 (polar p2 ang (+ (* allscf 3) dis))
             )
             (if (< (dtr 90) ang)
                (setq tp (polar p4 (dtr 30) (* allscf 2)))
                (setq tp (polar p2 (dtr 30) (* allscf 2)))
             )
             (command "LINE" p2 p4 "")
             (command "CHPROP" (entlast) "" "c" "255″ "")
             (command "TEXT" tp (* allscf 2.5) "2″ te)
             (command "CHPROP" (entlast) "" "c" "2″ "")
           )
           (progn
             (command "LINE" p2 p3 ""
                      "CHPROP" (entlast) "" "c" "255″ ""

지시선 뽑는건데 딴거 색상조정은 되는데 
 화살표 색상만 안바뀌어요.. 화살표 색상이 어떤거지요?

삼각형 다듬질 기호 넣는 리습인데요.. 일반 라인상에서는 평행하게 그려지는데 치수 보조선에 그려 넣으면 이상하게 삐딱하게 그려지거든요…
매번 라인에다 그려서 옮기려니, 시간두 낭비고 해서요…
명령어는 SA 입니다.
고수님들 부탁드립니다.