Subscribe to this thread
Home - General / All posts - How to change the precision of all drawings
klausk115 post(s)
#10-Feb-16 12:00

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

firsttube


1,439 post(s)
#10-Feb-16 13:51

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

klausk115 post(s)
#10-Feb-16 13:58

perfect

Manifold User Community Use Agreement Copyright (C) 2007-2021 Manifold Software Limited. All rights reserved.