求助!怎么样设置标注样式的比例?
图形中有 "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
把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]