设置标注问题~~

xufen

各位大虾我想问一下我使用ThisDrawing.SetVariable进行标注设置，在CAD中标注设置已经改变，但在使用VBA标注时，设置并没有改变，请问如何可以把设置好的标注设为当前的~

subtlation

2. Dim dimStyle1 As AcadDimStyle
3. Set dimStyle1 = ThisDrawing.ActiveDimStyle
4. ThisDrawing.SetVariable "DIMADEC", 1                                       '     角度小数位数
5. ThisDrawing.SetVariable "DIMALT", 0                                         '     选定的换算单位
6. ThisDrawing.SetVariable "DIMALTD", 2                                       '       换算单位小数位数
7. dimStyle1.CopyFrom ThisDrawing

Dim dimStyle1 As AcadDimStyle Set dimStyle1 = ThisDrawing.ActiveDimStyle ThisDrawing.SetVariable "DIMADEC", 1                                       '     角度小数位数 ThisDrawing.SetVariable "DIMALT", 0                                         '     选定的换算单位 ThisDrawing.SetVariable "DIMALTD", 2                                       '       换算单位小数位数 dimStyle1.CopyFrom ThisDrawing

这样就可以用了

xufen

谢谢大虾~^_^