|
图形中有 "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
|
|