快速建立标注样式
本帖最后由 荒野孤行 于 2016-1-5 20:30 编辑图示中对应标注样式中的每个系统变量。
以下源码只做了几个标注样式，需要的自己改哦！
;;;***速建标样 程序开始
(defun c:by()
(setvar "cmdecho" 0)
(setvar "expert" 0)
(setvar "osmode" 15359)
(command "undo" "be")
(princ "\n★功能：快速新建标注样式.\n")
(command "style" "Calibri" "Calibri" "" "1" "" "" "")
(command "style" "Cambria" "Cambria" "" "1" "" "" "")
(command "style" "Times New Roman" "Times New Roman" "" "1" "" "" "")
;------新建名称为“WDY”的标注样式，并定义默认的标注样式参数
(command "blipmode" "0" ;点标记模式：关
"dimadec""2" ;角度标注小数位精度
"dimalt" "off" ;控制换算单位是否打开
"dimalttz" "1" ;控制对公差值的消零处理
"dimaltu""2" ;设置所有标注子样式（角度标注除外）的换算单位的单位格式
"dimassoc" "2" ;控制标注对象的关联性以及是否分解标注
"dimasz" "1" ;控制尺寸线和引线箭头的大小。并控制基线的大小
"dimatfit" "3" ;尺寸界线内的空间不足以同时放下标注文字和箭头时，此系统变量将确定这两者的排列方式
"dimaunit" "0" ;设置角度标注的单位格式
"dimazin""0" ;对角度标注进行消零处理
"dimblk" "" ;设置尺寸线末端显示的箭头块
"dimcen" "0" ;标注圆心：不标
"dimclrd""0" ;尺寸线、箭头和标注引线指定颜色。随块输入 0，随层输入256
"dimclre""0" ;尺寸界线指定颜色。随块输入 0，随层输入256
"dimclrt""0" ;为标注文字指定颜色
"dimdec" "2" ;设置标注主单位中显示的小数位数
"dimdle" "0.00" ;当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
"dimdli" "0.05" ;控制基线标注中尺寸线的间距
"dimdsep""." ;小数分隔符为.
"dimexe" "0.35" ;指定尺寸线超出尺寸界线的距离
"dimexo" "0.35" ;指定尺寸界线偏离原点的距离
"dimfxlon" "off" ;控制是否将尺寸界线设置为固定长度
"dimgap" "0.5" ;尺寸线分成两段从而将标注文字放置在两段之间时，设置标注文字周围的距离
"dimjust""0" ;控制标注文字的水平位置
"dimldrblk" "" ;箭头引线打开30
"dimlfac""1" ;设置线性标注测量值的比例因子
"dimlunit" "2" ;设置所有标注类型（角度标注除外）的单位
"dimscale" "1" ;设置应用于标注变量（可指定大小、距离或偏移量）的全局比例因子
"dimtad" "1" ;控制文字相对尺寸线的垂直位置
"dimtdec""2" ;设置标注主单位的公差值中要显示的小数位数
"dimtfac""1" ;指定分数和公差值的文字高度相对于标注文字高度的比例因子
"dimtfill" "0" ;控制标注文字的背景
"dimtfillclr" "0" ;设置标注中文字背景的颜色
"dimtih" "off" ;标注文字在尺寸界线内的位置：关
"dimtix" "off" ;在尺寸界线之间绘制文字
"dimtmove" "0" ;设置标注文字的移动规则
"dimtofl""on" ;控制是否在尺寸界线之间绘制尺寸线
"dimtol" "off" ;将公差附在标注文字之后
"dimtolj""1" ;设置公差值相对于标注文字的垂直对正方式
"dimtxsty" "Standard" ;文字样式
"dimtxt" "2.5" ;文字高度
"dimtzin""1" ;控制对公差值的消零处理
"dimupt" "off" ;控制用户定位文字选项
"dimzin" "1" ;控制对主单位值的消零处理
)
(if (not (tblsearch "dimstyle" "WDY"))
(command "dimstyle" "S" "WDY")
)
;------新建名称为“±0.05”的标注样式
(command "dimtol" "on" ;将公差附在标注文字之后
"dimtm" "0.05" ;设置标注文字的最小（下）公差极限
"dimtp" "0.05") ;设置标注文字的最大（上）公差极限
(if (not (tblsearch "dimstyle" "±0.05")) (command "dimstyle" "S" "±0.05"))
;------新建名称为“±0.10”的标注样式
(command "dimtol" "on" "dimtm" "0.10" "dimtp" "0.10")
(if (not (tblsearch "dimstyle" "±0.10")) (command "dimstyle" "S" "±0.10"))
;------新建名称为“±0.15”的标注样式
(command "dimtol" "on" "dimtm" "0.15" "dimtp" "0.15")
(if (not (tblsearch "dimstyle" "±0.15")) (command "dimstyle" "S" "±0.15"))
;------新建名称为“±0.20”的标注样式
(command "dimtol" "on" "dimtm" "0.20" "dimtp" "0.20")
(if (not (tblsearch "dimstyle" "±0.20")) (command "dimstyle" "S" "±0.20"))
;------新建名称为“Middle”的标注样式
(command "dimtol" "off" "dimasz" "0.5" "dimexe" "0.17" "dimexo" "0.17" "dimtxt" "1.2" "dimgap" "0.02")
(if (not (tblsearch "dimstyle" "Middle")) (command "dimstyle" "S" "Middle"))
;------新建名称为“Small”的标注样式
(command "dimtol" "off" "dimasz" "0.05" "dimexe" "0.02" "dimexo" "0.02" "dimtxt" "0.1" "dimgap" "0.02")
(if (not (tblsearch "dimstyle" "Small")) (command "dimstyle" "S" "Small"))
(command "undo" "e")
(alert "\n★提示：\n已完成标注样式的创建！\n")
(princ)
)
**** Hidden Message *****
jiangmingxiu 发表于 2019-11-10 03:05
不好意思，我运行后，是这个情况
未知命令“DIMFXLON”。按 F1 查看帮助。
要基于使用的AutoCAD版本看，在命令栏输入对应的标注命令看是否有相应的选项，如果显示命令不存在那么说明使用的AutoCAD版本不支持相应的命令。 不好意思，我运行后，是这个情况
未知命令“DIMFXLON”。按 F1 查看帮助。
未知命令“OFF”。按 F1 查看帮助。
未知命令“DIMTFILL”。按 F1 查看帮助。
未知命令“0”。按 F1 查看帮助。
未知命令“DIMTFILLCLR”。按 F1 查看帮助。
未知命令“0”。按 F1 查看帮助。
讲解详细，感谢分享 学习一下，这个不错，可以根据自己需要模仿定制 kkkkkkkkkkkkkkkkkk 不错，谢谢分享 这个看起来很方便样 大师啊
能不能做一个
动态改变标注文字大小的程序啊
谢谢你 这个不错！ 回复下载，学习学习。