||||(defun c:jj()
        (setq pt2 (getpoint "pink point..: "))
        (while(/= pt2 nil)
                (setq pt1 pt2)
                (setq pt2 (getpoint pt1 "pink point..: "))
                (setq x1 (car pt1))
                (setq y1 (cadr pt1))
                (setq x2 (car pt2))
                (setq y2 (cadr pt2))
                (setq x3 (/ (+ x1 x2) 2))
                (setq y3 (/ (+ y1 y2) 2))
                (setq pt3 (list x3 y3))        
                (setq x4 (/ (+ x1 x2) 2))
                (setq y4 (/ (+ y1 y2) 2))
                (setq pt4 (list x4 y4))                                
                (command ".layer" "m" "line" "c" "cyan" "" "")                                                        
                (command "line" pt1 pt2 "")
                (command ".layer" "m" "좌표" "c" "green" "" "")                                
                (setq ang (angle pt1 pt2))                        
                (setq ang (rtd ang))        
                ;(setq p1 (polar pt1 (+ 0 (dtr 90) 4)))        
                ;(setq p2 (polar pt2 (+ 0 (dtr 90) 4)))                
                ;(setq p3 (polar pt3 (dtr 270) 4)))                        
                (command "text" pt1 "1" ang (strcat "(X:" (rtos x1 2 2) ", Y:" (rtos y1 2 2) ")") )
                (command "text" "j" "r" pt2 "1" ang (strcat "(X:" (rtos x2 2 2) ", Y:" (rtos y2 2 2) ")"))
                (command ".layer" "m" "거리" "c" 32 "" "")                        
                (setq dis (distance pt1 pt2 ))                                    
                (command "text" "j" "c" pt3 "1" ang (strcat "L=" (rtos dis 2 1) "m") )
                (command ".layer" "m" "circle" "c" "red" "" "")                        
                (setq r 10)
                (command "circle" pt1 r)        
                (setvar "dimzin" 0)        
                (setq nu (getint "관번호를 입력하시요 :"))        
                (command "text" pt4 "1" ang (itoa nu) )
                
        )
)
(defun dtr (a)
        (* pi(/ a 180.0))
)
(defun rtd (a)
        (/(* a 180.0) pi)
)

수정했습니다...
1.두번째 getpoint에서.. pt1을 추가했구요..
2.text 에서 스타일에서 크기가 설정 안되어있으면 크기를 물어복
   크기값이 입력되어있으면 크기를 안무어봅니다..
   첨 코딩하실대는 크기가 설정되있었는거 같은데..
   테스트 하실때는 크기가 설정이 안되어있었나보네요..

수고하세요
화이팅!!!