请高手完善程序，标注不同全局比例的尺寸,并将之转换为线性标注
<p>请高手完善程序，标注不同全局比例的尺寸,并将之转换为线性标注</p><p>1.假若原标注全局比例为N ，现标注出的尺寸全局比例为N2</p><p>2.将对齐标注转换成线性标注之属性</p><p>(defun c:DA (/ scal A1 BL )<br/>(setvar "cmdecho" 0) <br/>(setvar "pickbox" 23)<br/>(setq scal (getvar "dimscale"))<br/>(if (not (tblsearch "layer" "7标注层")) <br/>(command "-layer" "n" "标注层" "c" "4""7标注层"""));endif<br/>(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR")<br/>(command "OSMODE" "16367" )<br/>(command "layer" "s" "标注层" "" )<br/>(command "-DIMSTYLE" "R" "TH_GBDIM")<br/>(SETQ BL (GETSTRING (strcat "\n 请输入新标注全局比例(默认值<" (rtos scal 2) ">):" )))<br/>(if (null BL)(setq BL scal))<br/>(princ "\n 选择线性标注点:")<br/>(command "DIMALIGNED" PAUSE PAUSE )<br/>(command "dim1" "new" "<>" PAUSE "")<br/>(command "dim1" "new" (strcat "<>"))<br/>(command "dimscale" BL "DIM" "Updat" A1 "" "EXIT" )<br/>(command "-DIMSTYLE" "R" "TH_GBDIM")<br/>(SETVAR "dimscale" scal))</p>
页:
[1]