像新建图层、文字样式一样,通过VBA一样可以创建标注样式,代码如下:

Dim d As AcadDimStyle
Set d = ThisDrawing.DimStyles.Add("标注样式的名称")
With ThisDrawing
    .SetVariable "DimClrD", 256  '尺寸线、箭头的颜色,256代表ByLayer
    .SetVariable "DimClrE", 256  '尺寸界线的颜色,256代表ByLayer
    .SetVariable "DimExe", 0.4 * fsize  '超出尺寸线
    .SetVariable "DimExO", 0.1 * fsize '起点偏移量
    .SetVariable "DIMFXLON", 1    '将尺寸界线设置为固定长度
    .SetVariable "DIMFXL", 0.5 * fsize  '固定长度的尺寸界线
    .SetVariable "DimBlk", ""  '箭头样式:实心闭合
    .SetVariable "DimTxSty", "YT"
    .SetVariable "DimClrT", 256 '文字颜色,256代表ByLayer
    .SetVariable "DimJust", 0  '文字水平居中
    .SetVariable "DimTAD", 1   '文字垂直上方
    .SetVariable "DimGap", 0.1 * fsize  '文字从尺寸线偏移
    .SetVariable "DimASz", 0.6 * fsize  '箭头的大小
    .SetVariable "DimTxt", fsize  '文字高度
    .SetVariable "DimDec", 3      '小数精度
    .SetVariable "DimDSep", "."   '小数分隔符
    .SetVariable "DimLFac", DimSca  '比例因子
End With
d.CopyFrom ThisDrawing
ThisDrawing.ActiveDimStyle = d

  以上各参数可根据自己的需要调整,其中DimBlk各种取值见下表。如需其它帮助,可通过AutoCAD菜单帮助-其他资源-开发人员帮助中搜索相关信息。