Centraggio automatico quote dopo sostituzione rif. modello

stefanobruno

Moderatore
Staff Forum
Professione: Progettazione caotica e notturna e Seguace Anonimo di Shiren :)
Software: Inventor 2016 - Autocad ( read only ) - Rhino un pochino
Regione: Piemonte,Torino
#1
Avevo trovato una spuntina che mi consentiva di avere le quote centrate anche dopo la sostituzione del modello legato ad una messa in tavola, ora avrei bisogno di quella opzione e non la trovo più, qualcuno sa dove devo guardare ? ( inv. 2014 )

Grazie.
 

Catafratto

Utente Standard
Professione: Disegnatore/progettista
Software: Inventor 2016
Regione: Veneto
#2
Avevo trovato una spuntina che mi consentiva di avere le quote centrate anche dopo la sostituzione del modello legato ad una messa in tavola, ora avrei bisogno di quella opzione e non la trovo più, qualcuno sa dove devo guardare ? ( inv. 2014 )

Grazie.
Ho trovato solo un "Centra quote alla creazione" nelle Opzioni Applicazione > Disegno (INv.2014)... interesserebbe molto anche a me!
 

Catafratto

Utente Standard
Professione: Disegnatore/progettista
Software: Inventor 2016
Regione: Veneto
#3
Finchè non trovi la spunta...
Lo sto provando/usando e pare funzioni.

Codice:
' 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 -
Ecco, appunto. Adesso l'ho impallato, ho fatto un paio di modifiche