chef 发表于 2005-12-13 19:50:00

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

图形中有 "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 发表于 2005-12-14 09:14:00

把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
页: [1]
查看完整版本: 求助!怎么样设置标注样式的比例?