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

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

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

最后修改:2020 年 04 月 05 日 10 : 34 AM
如果觉得我的文章对你有用,请随意赞赏