autolisp创建CAD标注样式

        工作中经常遇到新建CAD图纸时，需要重设标注样式，比较浪费时间。因此根据自己工作需求，创建了符合自己需要的标注样式。个别代码参考了网络及CAD帮助。希望它也能有益于有此类需求的网友，供大家参考，并用来设置自己需要的标注样式。新打开的CAD图纸标注样式如图一，代码执行后可得到图二的结果，并且能按自己的需求去标注。代码的前段设置了作图环境，后面的代码对尺寸文字位置做了一些设定。设置CAD标注样式的参数非常多，未设定的基本就沿用了系统默认，比如尺寸线颜色、箭头等等。

 

代码如下：

(defun C:FWL()

(setvar  "INSUNITS" 4)  ;设置绘图单位为mm

(setvar  "DIMDEC" 2)  ;设置主单位精度

(setvar  "DIMTXT"   3.5)   ;设置文字高度

(setvar  "DIMSCALE"  "1.0")  ;设置比例

(setvar  "DIMASZ"   "3")  ;设置箭头大小

(setvar  "DIMEXO"   0)  ;设置尺寸界限偏离原点距离

(setvar  "DIMTOL"   1)  ;设置是否显示公差

(setvar  "DIMTZIN"   8)  ;设置主单位精度

(setvar  "DIMTDEC"   2)  ;设置公差精度

(setvar  "DIMTAD"   1)  ;设置文字相对尺寸位置

(setvar  "DIMTIH"   2)  ;设置尺寸文本尺寸线内部放置方式

(setvar  "DIMTOH"  2)  ;设置外部放置方式

(setvar  "DIMUPT" 2)  ;设置是否手动调整位置

(setvar  "DIMTOFL"  2)  ;设置是否在尺寸线之间绘制尺寸

；1线性标注

(command ".-DIMSTYLE"    "S"   "FWLGS");新建标注样式 FWLGS

(While(/= (getvar "CMDACTIVE") 0 )(command "Y")

(command ".-DIMSTYLE"    "S"   "FWLGS$0");新建 FWLGS标注样式二级子样式线性标注

(While(/= (getvar "CMDACTIVE") 0 )(command "Y")

(setvar  "DIMTOH"  1)  ;设置直线对齐标注

(setvar  "DIMCLRT"   1)  ;设置线性标注颜色

；2角度标注

(command ".-DIMSTYLE"    "S"   "FWLGS$2");新建 FWLGS标注样式二级子样式角度标注

(While(/= (getvar "CMDACTIVE") 0 )(command "Y")

(setvar  "DIMTAD"   1)  

(setvar  "DIMTIH"   0)  

(setvar  "DIMTOH"  1)  

(setvar  "DIMCLRT"   2)  ;设置角度标注颜色

；3半径标注

(command ".-DIMSTYLE"    "S"   "FWLGS$3");新建 FWLGS标注样式二级子样式半径标注

(While(/= (getvar "CMDACTIVE") 0 )(command "Y")

(setvar  "DIMTAD"   1)  

(setvar  "DIMTIH"   0)  

(setvar  "DIMTOH"  1)  

(setvar  "DIMCLRT"   3)  ;设置半径标注颜色

；4直径标注

(command ".-DIMSTYLE"    "S"   "FWLGS$4");新建 FWLGS标注样式二级子样式直径标注

(While(/= (getvar "CMDACTIVE") 0 )(command "Y")

(setvar  "DIMTAD"   1)  

(setvar  "DIMTIH"   0)  

(setvar  "DIMTOH"  1)  

(setvar  "DIMCLRT"   4)  ;设置直径标注颜色

(command ".-DIMSTYLE"    "S"   "FWLGS")

(princ "已创建FWLGS标注样式")

)