질문이있습니다…혹시나 아시는분 부탁드립니다.

;=====================================================================================
;     mm INCH 소숫점 변환  =  0.394″  [ 10 ]
;=====================================================================================
 
 (defun C:E4 (/ f_text a_text ANG_B ANG_D OSM ET2 ET3 ET3-H et5 et5-a ET4 ET6 ET7 CA1 CA2 CA3 CA4 CA5 CA6 PL1)
          (DEFUN DTR (DT)
              (* PI (/ DT 180.0)))
          (DEFUN RTD (RT)
     (/ (* RT 180.0) PI))
     (setvar "cmdecho" 0)
     (SETQ OSM (GETVAR "OSMODE"))
     (SETQ ANG_B (GETVAR "ANGBASE"))
     (SETQ ANG_D (GETVAR "ANGDIR"))
     (setvar "angbase" 0)
     (setvar "angdir" 0)
     (setvar "osmode" 183)
     (WHILE (= NIL (SETQ ET1 (ENTSEL "n☞변환 할 문자 선택 : (ex : 소숫점인치 [미리미터])☜"))))
     (setq et2 (ENTGET (CAR ET1)))
  (if (or (= (cdr (assoc 0 et2)) "TEXT") (= (cdr (assoc 0 et2)) "MTEXT"))
         (progn
     (setq et3 (CDR (ASSOC 10 ET2)))
     (setq et3-h (CDR (ASSOC 40 ET2)))
     (setq et4 (CADR ET3))
     (setq et5-a (CDR (ASSOC 1 ET2)))
     (setq et6 (CDR (ASSOC 50 ET2)))
     (setq et7 (ASSOC 1 ET2))
 (if (= 0.0 (atof et5-a))
     (progn
      (cond ((or (= (substr et5-a 1 3) "%%c") (= (substr et5-a 1 3) "%%C"))
                 (setq et5 (atof (substr et5-a 4)) a_text "%%c"  f_text (CDR (ASSOC 1 ET2)))))
      (cond ((= (substr et5-a 1 4) "\A1;")
                (setq et5 (atof (substr et5-a 5)) a_text ""
                      et3 (CDR (ASSOC 10 ET2))
                      et3-h (CDR (ASSOC 40 ET2))
                      et4 (CADR ET3)
                      f_text (rtos et5))))
      (cond ((= (substr et5-a 1 1) "t")
                (setq et5 (atof (substr et5-a 2)) a_text "t"  f_text (CDR (ASSOC 1 ET2)))))
      (cond ((= (substr et5-a (strlen et5-a)) "t")
               (setq et5 (atof (substr et5-a 1 (- (strlen et5-a) 1))) a_text "t"  f_text (CDR (ASSOC 1 ET2))))))
     (setq et5 (atof (CDR (ASSOC 1 ET2)))
           f_text (CDR (ASSOC 1 ET2))))
     (setq ca1 (/ et5 25.4))
    (setq ca2 (STRCAT (RTOS CA1 2 2) " [" et5-a "]"))
     (setq CA5 (CONS 1 CA2))
     (setq CA6 (SUBST CA5 ET7 ET2))
     (setq PL1 (polar et3 (+ et6 (DTR 270)) (* ET3-H 1.92)))
     (ENTMOD CA6)
     (SETVAR "OSMODE" OSM)
     (setvar "angbase" ang_b)
     (setvar "angdir" ang_d)
     (setvar "cmdecho" 1)))
     (c:E4))


====
현재상태에서 인치를 소주점 두자리로 하는방법과….하나씩클릭이아닌 드래그를 할수있다면
혹시 가능 한건 질문합니다.ㅠㅠ 고수님들 부탁좀 드리겠습니다.