创建标注问题

liuyang4740

程序如下，要求同时创建2个标注，但是只有dim_beam（后一个标注）符合要求

sub adddim()

    Set dim_border = ThisDrawing.DimStyles.Add("dim_border")
    ThisDrawing.ActiveDimStyle = dim_border
    With ThisDrawing
     .SetVariable "dimscale", 3  '设置全局比例因子
     .SetVariable "dimlfac", 1     '线性比例因子
     .SetVariable "dimadec", 2     '控制角度标注的显示精确位数
     .SetVariable "DimAUnit", 1     '设置角度标注的单位格式
     .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数
     .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
     .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离
     .SetVariable "DimExO", 0       '指定尺寸界线偏移原点的距离
     .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制
     .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度
     .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记
     .SetVariable "Dimasz", 100             '指定箭头大小
     .SetVariable "DimJust", 0
     .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置
    End With
   
    Set dim_beam = ThisDrawing.DimStyles.Add("dim_beam")
    ThisDrawing.ActiveDimStyle = dim_beam
    With ThisDrawing
     .SetVariable "dimscale", 3  '设置全局比例因子
     .SetVariable "dimlfac", 1     '线性比例因子
     .SetVariable "dimadec", 2     '控制角度标注的显示精确位数
     .SetVariable "DimAUnit", 1     '设置角度标注的单位格式
     .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数
     .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
     .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离
     .SetVariable "DimExO", 600       '指定尺寸界线偏移原点的距离
     .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制
     .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度
     .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记
     .SetVariable "Dimasz", 100             '指定箭头大小
     .SetVariable "DimJust", 0
     .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置
    End With
end sub

wylong

2. sub adddim()
3.     Set dim_border = ThisDrawing.DimStyles.Add("dim_border")
4.     ThisDrawing.ActiveDimStyle = dim_border
5.     With ThisDrawing
6.      .SetVariable "dimscale", 3  '设置全局比例因子
7.      .SetVariable "dimlfac", 1     '线性比例因子
8.      .SetVariable "dimadec", 2     '控制角度标注的显示精确位数
9.      .SetVariable "DimAUnit", 1     '设置角度标注的单位格式
10.      .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数
11.      .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
12.      .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离
13.      .SetVariable "DimExO", 0       '指定尺寸界线偏移原点的距离
14.      .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制
15.      .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度
16.      .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记
17.      .SetVariable "Dimasz", 100             '指定箭头大小
18.      .SetVariable "DimJust", 0
19.      .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置
20.     End With
21.     dim_border.CopyFrom ThisDrawing
22.    
23.     Set dim_beam = ThisDrawing.DimStyles.Add("dim_beam")
24.     ThisDrawing.ActiveDimStyle = dim_beam
25.     With ThisDrawing
26.      .SetVariable "dimscale", 3  '设置全局比例因子
27.      .SetVariable "dimlfac", 1     '线性比例因子
28.      .SetVariable "dimadec", 2     '控制角度标注的显示精确位数
29.      .SetVariable "DimAUnit", 1     '设置角度标注的单位格式
30.      .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数
31.      .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离
32.      .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离
33.      .SetVariable "DimExO", 600       '指定尺寸界线偏移原点的距离
34.      .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制
35.      .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度
36.      .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记
37.      .SetVariable "Dimasz", 100             '指定箭头大小
38.      .SetVariable "DimJust", 0
39.      .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置
40.     End With
41.     dim_beam.CopyFrom ThisDrawing
42. end sub

sub adddim()     Set dim_border = ThisDrawing.DimStyles.Add("dim_border")     ThisDrawing.ActiveDimStyle = dim_border     With ThisDrawing      .SetVariable "dimscale", 3  '设置全局比例因子      .SetVariable "dimlfac", 1     '线性比例因子      .SetVariable "dimadec", 2     '控制角度标注的显示精确位数      .SetVariable "DimAUnit", 1     '设置角度标注的单位格式      .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数      .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离      .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离      .SetVariable "DimExO", 0       '指定尺寸界线偏移原点的距离      .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制      .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度      .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记      .SetVariable "Dimasz", 100             '指定箭头大小      .SetVariable "DimJust", 0      .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置     End With     dim_border.CopyFrom ThisDrawing         Set dim_beam = ThisDrawing.DimStyles.Add("dim_beam")     ThisDrawing.ActiveDimStyle = dim_beam     With ThisDrawing      .SetVariable "dimscale", 3  '设置全局比例因子      .SetVariable "dimlfac", 1     '线性比例因子      .SetVariable "dimadec", 2     '控制角度标注的显示精确位数      .SetVariable "DimAUnit", 1     '设置角度标注的单位格式      .SetVariable "DimDec", 0      '设置标注主单位显示的小数位位数      .SetVariable "DimDLE", 0      '当使用小斜线代替箭头进行标注时，设置尺寸线超出尺寸界线的距离      .SetVariable "DimExe", 200      '指定尺寸界线超出尺寸线的距离      .SetVariable "DimExO", 600       '指定尺寸界线偏移原点的距离      .SetVariable "DimLUnit", 2    '为所有标注类型（除角度标注外）设置单位制      .SetVariable "DimTxt", 300         '指定标注文字的高度，除非当前文字样式具有固定的高度      .SetVariable "Dimblk", "_ARCHTICK"   '指定建筑标记      .SetVariable "Dimasz", 100             '指定箭头大小      .SetVariable "DimJust", 0      .SetVariable "DimTVP", 1          '控制尺寸线上方或下方标注文字的垂直位置     End With     dim_beam.CopyFrom ThisDrawing end sub

liuyang4740

谢谢楼上的，问题解决，不知为何要加后面一句话？

stuwhh

wylong 发表于 2009-12-29 17:52

请问如果是C#中怎么操作，我找不到