Home -
General /
All posts - How to change the precision of all drawings
|
Hello, is it posible to change the properties>>precision of all drawings?? Sub Main Set CompSet = Application.ActiveDocument.ComponentSet Set refDRW = CompSet("GK4-DHDN") Set refCooSys = refDRW.CoordinateSystem for each drw in CompSet if drw.TypeName= "Drawing" then drw.CoordinateSystem = refCooSys ??drw.Precision = 0,01 Meters?? end if next End Sub
|
|
The property is "Epsilon": 'vbscript drw.Epsilon = 0.01
"The blessing in life is finding the torture you are comfortable with." - Jerry Seinfeld, 6/26/2013 |
|
perfect
|