지시선으로 각도 표시하는 리습 수정좀 부탁드립니다

아래 리습은 선을 클릭하면 지시선으로 각도를 기입하는 리습입니다

이 리습을 실행해서 표시되는 지시선과 글자가 자동으로 dim 레이어에 기입되도록 수정이 가능할까요?

부탁좀 드리겠습니다

좋은 하루 되세요


(DEFUN C:AD (/ ENT PT1 PT2 pt3 pt4 PT5 pt6 AN an1 an2 an3 an4)
<!- OSMODE SAVE->
(setq *Osmode_Save (getvar “osmode” ))
<-END->

(SETQ ent(entget (car (entsel “npick a line : “))))
(setq pt1(cdr (assoc 10 ent)))
(setq pt2(cdr (assoc 11 ent)))
(setvar “osmode” 0)

; (setq pt6(polar pt4 (dtr 330) 8.26 ))
(setq an(angle pt1 pt2))
(if (<= an (/ pi 4)) ;0~45
(setq an1 an)
(if (<= an (/ pi 2)) ;45~90
(setq an1 (- (/ pi 2) an))
(if (<= an (/ (* pi 3) 4)) ;90~135
(setq an1 (- an (/ pi 2)))
(if (<= an pi) ;135~180
(setq an1 (- pi an))
(if (<= an (/ (* 5 pi) 4)) ;180~225
(setq an1 (- an pi))
(if (<= an (/ (* 3 pi) 2)) ;225~270
(setq an1 (- (/ (* 3 pi) 2) an))
(if (<= an (/ (* 7 pi) 4)) ;270~315
(setq an1 (- an (/ (* pi 3) 2)))
(setq an1 (- (* pi 2) an)) ;315~360
)
)
)
)
)
)
);;IF
(setq an2(angtos an1 0 3))

(if (zerop an1)
(setq an3(strcat (angtos an1 0 5)”%%d”))
(setq an3(vl-string-subst “%%d” “d” (angtos an1 1 2)))
);;if

(setq an4(strcat an3 ))
(setvar “osmode” 512)
(command “_leader” PAUSE PAUSE “” an4 “”)
<!- OSMODE LOAD->
(setvar “osmode” *Osmode_Save)
);===END OF PROGRAM===

<-END>