帮忙看看程序

szx025

(defun C:DimReplace( / dim bl jd len diment dimss dimty )
  (princ "\n选择标注: ")
  (setq dim (ssget '((0 . "DIMENSION"))))
  (setq bl (getreal "\n标注比例: <1>"))
  (if (not bl) (setq bl 1))
  (setq jd (getint "\n标注精度: <0>"))
  (if (not jd) (setq jd 0))
  (if dim
    (progn
      (repeat
        (setq len (sslength dim))
        (setq diment (entget (ssname dim (setq len (1- len)))))
        (setq dimss (cdr (assoc 1 diment)))
        (if (or (= dimss "") (= dimss "<>"))
          (progn
            (setq dimty (cdr (assoc 70 diment)))
            (setq dimss (cdr (assoc 42 diment)))
            (cond
              (  (or (= dimty 32) (= dimty 160);线性
                  (= dimty 33) (= dimty 161);对齐
                  (= dimty 37) (= dimty 165);弧长
                )
                (setq dimss (rtos (* dimss bl) 2 jd))
              )
              ((or (= dimty 34) (= dimty 162));角度
                (setq dimss (strcat (rtos (WYB-rtod dimss) 2 jd) "%%D"))
              )
              ((or (= dimty 35) (= dimty 163));直径
                (setq dimss (strcat "%%C" (rtos (* dimss bl) 2 jd)))
              )
              ((or (= dimty 36) (= dimty 164));半径
                (setq dimss (strcat "R" (rtos (* dimss bl) 2 jd)))
              )
            )
            (entmod (subst (cons 1 dimss) (assoc 1 diment) diment))
          )
        )
      )
    )
  )
  (princ "\n完成标注的文本替换")
  (princ)
)


(defun WYB-rtod(r)
  (/ (* r 180) pi)
)

这个程序有两个问题请叫高手
1，如何在选中尺寸时先显示尺寸的标准比例，然后再修改这个数据。
2，这个程序只能修改一次尺寸，修改或的尺寸就不能用这个程序再修改了