;;----------bfractor-----
;;converts bigfont fraction to decimal real
;;bigfont must use fraction codes as shown!
;;handles inch + fractions only (no feet!)
;;-----------------------
(defun bfractor (instrg /
                          fcodes
                          pos
                )
  (setq fcodes
    (list '("~1" . ".0625")
          '("~2" . ".125")
          '("~3" . ".1875")
          '("~4" . ".25")
          '("~5" . ".3125")
          '("~6" . ".375")
          '("~7" . ".4375")
          '("~8" . ".5")
          '("~9" . ".5625")
          '("~A" . ".625")
          '("~B" . ".6875")
          '("~C" . ".75")
          '("~D" . ".8125")
          '("~E" . ".875")
          '("~F" . ".9375")
    )
  )
  (if (setq pos (vl-string-position 126 instrg 0 T))
        (distof (vl-string-subst "" "-" (strcat (substr instrg 1 pos)
         (cdr (assoc (substr instrg (1+ pos) 2) fcodes)))) 2)
      (distof instrg 2)
  );if
);bfractor