automatic centering quotas after replacement ref. model

[stefanobruno]

I had found a snack that allowed me to have the quotas centered even after the replacement of the model tied to a table, now I would need that option and I don't find it anymore, someone knows where I have to look? (inv. 2014 )

Thank you.

 

[Catafratto]

I had found a snack that allowed me to have the quotas centered even after the replacement of the model tied to a table, now I would need that option and I don't find it anymore, someone knows where I have to look? (inv. 2014 )

Thank you.

I found only a "center quotas to creation" in the application options > drawing (inv.2014)... would interest me a lot too!

 

[Catafratto]

until you find the check...
I'm trying/using and it seems to work.

' centra tutte le quote lineari ed angolari
' in tutti i fogli della tavola
public sub centraquote()
    dim odoc as document
    dim odrw as drawingdocument
    
    set odoc = thisapplication.activeeditdocument
    
    if odoc.documenttype = kdrawingdocumentobject then
        set odrw = odoc
    else
        exit sub
    end if
    
    dim osheet as sheet
    dim odrawdim as drawingdimension
    
    for each osheet in odrw.sheets
        for each odrawdim in osheet.drawingdimensions
            if typeof odrawdim is lineargeneraldimension or _
                typeof odrawdim is angulargeneraldimension then
                    call odrawdim.centertext
            end if
        next
    next
end sub

- edit -
That's right. Now I've planned it, I've made a couple of changes.