请高手完善程序，标注出不同全局比例的尺寸标注

894560869

欲达目的：能标注出不同全局比例的尺寸标注

;;;线性标注
(defun c:DSS (/ scal oldfac al a2 sa b1 i BL )
(setvar "cmdecho" 0)
(setvar "pickbox" 23)
(setq scal   (getvar "dimscale"))
(command "-DIMSTYLE" "R" "TH_GBDIM")
(IF (SETQ A (entlast))
(PROGN (SETQ BL (GETDIST
(strcat "\n 请输入新标注全局比例(全局标注比例默认值<" (rtos scal 2) ">):" )
)))
(if (/= BL Nil)(setq scal BL)))
(princ "\n 选择线性标注点:")
(command "DIMLINEAR" )
;(command "dim1" "new" "<>" PAUSE "")
;(command "dim1" "new" (strcat "<>")
;(command "dim1" "dimscale" BL "" "Updat" A "" "EXIT" )
(command "-DIMSTYLE" "R" "TH_GBDIM")
(SETVAR "dimscale" scal)
)