请高手完善程序，标注不同全局比例的尺寸,并将之转换为线性标注

894560869

请高手完善程序，标注不同全局比例的尺寸,并将之转换为线性标注

1.假若原标注全局比例为N ，现标注出的尺寸全局比例为N2

2.将对齐标注转换成线性标注之属性

(defun c:DA (/ scal A1 BL )
(setvar "cmdecho" 0)
(setvar "pickbox" 23)
(setq scal (getvar "dimscale"))
(if (not (tblsearch "layer" "7标注层"))
(command "-layer" "n" "标注层" "c" "4""7标注层"""));endif
(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR")
(command "OSMODE" "16367" )
(command "layer" "s" "标注层" "" )
(command "-DIMSTYLE" "R" "TH_GBDIM")
(SETQ BL (GETSTRING (strcat "\n 请输入新标注全局比例(默认值<" (rtos scal 2) ">):" )))
(if (null BL)(setq BL scal))
(princ "\n 选择线性标注点:")
(command "DIMALIGNED" PAUSE PAUSE )
(command "dim1" "new" "<>" PAUSE "")
(command "dim1" "new" (strcat "<>"))
(command "dimscale" BL "DIM" "Updat" A1 "" "EXIT" )
(command "-DIMSTYLE" "R" "TH_GBDIM")
(SETVAR "dimscale" scal))