모서리 챔퍼 값 표시 리습 수정요청

모서리 챔퍼 값 입력 리습 수정 요청 드립니다.

1. 수정 하고자 하는 부분은 갑을 입력하는 지시선을 바꾸었으면 합니다.
R값을 입력했을때 나오는 선의 형상으로 바꾸고 싶습니다.

2. 입력되고 나면 선이 모두 분해되는데 연결된상태로는 안되는건가요?
된다면 연결된 상태로 바꾸어 지면 좋겠습니다.

———————————–
기존에 구했던 리습입니다.

(defun c:cB (/ kdh k10 k10-x k10-y k11 k11-x k11-y k-len s-len p1 p2 p3 k-ar);http://my.netian.com/~daeho71/
   (graphscr)  (setvar "cmdecho" 0)   (command "osnap" "off")
   (prompt "nCommand: CD <모따기부 치수입력>")
   (setq kdh   (entget (car (entsel "nSelect Chamfer : "))))
   (setq k10   (cdr    (assoc 10 kdh)) k10-x (cadr   (assoc 10 kdh)) k10-y (caddr  (assoc 10 kdh))
         k11   (cdr    (assoc 11 kdh)) k11-x (cadr   (assoc 11 kdh)) k11-y (caddr  (assoc 11 kdh))
         k-len (distance      k10 k11) s-len (fix (+ (* k-len (cos (dtr 45))) 0.005)) s-len (strcat (chr 67) (itoa s-len)) )
   (cond
      ((< k10-x k11-x)   (setq p1 k10 p2 k11) )
      ((> k10-x k11-x)   (setq p1 k11 p2 k10) )
      ((= k10-x k11-x)
         (cond
         ((< k10-y k11-y) (setq p1 k10 p2 k11) )
         ((> k10-y k11-y) (setq p1 k11 p2 k10) ))
      )
   )
   (setq k-ar (rtd (angle p1 p2))      p3 (polar p1 (dtr k-ar) (/ k-len 2.0)))
   (command "snap" "r" "" k-ar) (command "snap" "off") (command "ortho"  "on")
   (command "dim1″ "leader" p3 pause "" s-len)
   (command "snap" "r" "" 0)    (command "snap" "off") (command "ortho" "off")
   (prompt "n사용상의 문제점 1. 모따기 각 90도(1:1) 경우만 사용가능")
   (prompt "n2. 정수부분만 받는다 (예: 실수 10.5의 경우 결과값 C10)")(princ))