[求助]VB中为CAD14增加标注样式

waley111

我想在VB中为CAD14增加标注样式，设定标注变量值失效，但是同样的语句在CAD2002中有用，是不是CAD14不支持设置VBA的设置标注样式啊？*-*8

设置语句如下：

    Dim DimStyle As Object

    Set DimStyle = AcadDoc.DimStyles.Add("DimStyle")

    AcadDoc.ActiveDimStyle = DimStyle

    AcadDoc.SetVariable "DimScale", 1    '设置全局比例因子
    AcadDoc.SetVariable "DimLFac", 10 '线性比例因子. '1'=1:1, '2'=2:1,'.5'=1:2等
   
    AcadDoc.SetVariable "DIMSAH", 1  '设置该值为1，标注箭头形式才有用
     
    AcadDoc.SetVariable "DimBlk1", "_ARCHTICK"     '当 DIMSAH 系统变量打开时，设置尺寸线第一个端点的箭头
    AcadDoc.SetVariable "DimBlk2", "_ARCHTICK"     '当 DIMSAH 系统变量打开时，设置尺寸线第二个端点的箭头
   
    AcadDoc.SetVariable "DimASz", 1.5      '控制尺寸线、引线箭头的大小。并控制钩线的大小
    AcadDoc.SetVariable "DimDLE", 1#     '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
    AcadDoc.SetVariable "DimDLI", 2#      '控制基线标注中尺寸线的间距
    AcadDoc.SetVariable "DimDSep", "."    '指定一个单字符作为创建十进制标注时使用的小数分隔符
    AcadDoc.SetVariable "DimExe", 1#  '指定尺寸界线超出尺寸线的距离
    AcadDoc.SetVariable "DimExO", 1.5 '指定尺寸界线偏移原点的距离
    AcadDoc.SetVariable "DimGap", 0.5 '当尺寸线分成段以在两段之间放置标注文字时，设置标注文字周围的距离

   
    AcadDoc.SetVariable "DimTxSty", "MYSTYLE"     '指定标注的文字样式
    AcadDoc.SetVariable "DimAltD", 0       '控制换算单位中小数位的位数
    AcadDoc.SetVariable "DimDec", 0
    AcadDoc.SetVariable "DimTxt", 2#         '指定标注文字的高度，
    AcadDoc.SetVariable "DimJust", 0      '控制标注文字的水平位置
                                       ' 0 将文字置于尺寸线之上，并在尺寸界线之间置中对正
    AcadDoc.SetVariable "DimTAD", 1        '控制文字相对尺寸线的垂直位置
                                       '0 标注文字在尺寸界线之间居中放置
    AcadDoc.SetVariable "DimTIH", 0       '控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内的位置
                                        '0 或关 将文字与尺寸线对齐
    AcadDoc.SetVariable "DimTIX", 1       '在尺寸界线之间绘制文字
                                        '0 或关 结果随标注类型的不同而不同。对于线性和角度标注，AutoCAD
                                        '将文字放置到尺寸界线之间（如果有足够的空间）。对于不适于放入圆
                                        '或圆弧中的半径标注和直径标注，DIMTIX 无效并总是强制将文字放到圆或圆弧之外
    AcadDoc.SetVariable "DimTOFL", 1      '控制是否将尺寸线绘制在尺寸界线之间（即使文字放置在尺寸界线之外）
    AcadDoc.SetVariable "DimTOH", 0       '控制标注文字在尺寸界线外的位置
    AcadDoc.SetVariable "DimTSz", 0       '指定线性标注、半径标注以及直径标注中替代箭头的小斜线尺寸
    AcadDoc.SetVariable "DimTVP", 0        '控制尺寸线上方或下方标注文字的垂直位置

   DimStyle.copyfrom AcadDoc