请高手完善程序，标注出不同全局比例的尺寸标注
<p>欲达目的：能标注出不同全局比例的尺寸标注</p><p>;;;线性标注<br/>(defun c:DSS (/ scal oldfac al a2 sa b1 i BL )<br/>(setvar "cmdecho" 0) <br/>(setvar "pickbox" 23)<br/>(setq scal (getvar "dimscale"))<br/>(command "-DIMSTYLE" "R" "TH_GBDIM")<br/>(IF (SETQ A (entlast))<br/>(PROGN (SETQ BL (GETDIST <br/>(strcat "\n 请输入新标注全局比例(全局标注比例默认值<" (rtos scal 2) ">):" )<br/>)))<br/>(if (/= BL Nil)(setq scal BL)))<br/>(princ "\n 选择线性标注点:")<br/>(command "DIMLINEAR" )<br/>;(command "dim1" "new" "<>" PAUSE "")<br/>;(command "dim1" "new" (strcat "<>")<br/>;(command "dim1" "dimscale" BL "" "Updat" A "" "EXIT" )<br/>(command "-DIMSTYLE" "R" "TH_GBDIM")<br/>(SETVAR "dimscale" scal)<br/>) </p>
页:
[1]