-
- Dim dimStyle1 As AcadDimStyle
- Set dimStyle1 = ThisDrawing.ActiveDimStyle
- ThisDrawing.SetVariable "DIMADEC", 1 ' 角度小数位数
- ThisDrawing.SetVariable "DIMALT", 0 ' 选定的换算单位
- ThisDrawing.SetVariable "DIMALTD", 2 ' 换算单位小数位数
- dimStyle1.CopyFrom ThisDrawing
这样就可以用了 |