求助!怎么样设置标注样式的比例?

chef

 图形中有 "STANDARD","CAD"....的标注样式,我想设置他们标注比例,以及其它属性,用VBA怎么实现.

下面是我做的对 "STANDARD" 比例的修改,可以运行后,出现一个对应的,"样式替代"

Dim adDimStyle As AcadDimStyle
  For Each adDimStyle In ThisDrawing.DimStyles
 
       If adDimStyle.Name = "STANDARD" Then
         ThisDrawing.ActiveDimStyle = adDimStyle
    End If
  Next
  With ThisDrawing
    .SetVariable "DimScale", 96   

  End With

wyj7485

把With ThisDrawing
    .SetVariable "DimScale", 96   

  End With

换为:

ThisDrawing.SetVariable "DIMSCALE", 96
ThisDrawing.DimStyles.Item("Sca96"Delete
Set NewTxtStyle = ThisDrawing.DimStyles.Add( "Sca96")
NewTxtStyle.CopyFrom ThisDrawing