Come scrivevo qualche post sopra seguendo le istruzioni di questo blog
Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
per inserire in automatico la scala nel cartiglio c'è il fastidiosissimo problema che ogni volta che si crea un disegno o un foglio nuovo appare una finestra.

Cerca che ti ricerca ho trovato la soluzione scrivendo questo codice con iLogic

Codice:
Dim odrawdoc As DrawingDocument
odrawdoc = ThisApplication.ActiveDocument
customPropertySet = odrawdoc.PropertySets.Item("Inventor User Defined Properties")
For i = 1 To odrawdoc.Sheets.Count
' Make sure the desired property exists
Try
      prop = customPropertySet.Item("Scale" + Str(i))
Catch
      ' Assume error means not found
      customPropertySet.Add("", "Scale" + Str(i))
End Try
Try
iProperties.Value("Custom", "Scale" + Str(i)) = odrawdoc.sheets.item(i).DrawingViews.Item(1).ScaleString
Catch
End Try
Next i
InventorVb.DocumentUpdate()
Fatelo girare una prima volta e poi andate nel cartiglio e in "formatta testo" -> "Proprietà personalizzate - Disegno" vedrete che c'è una nuova proprietà che si chiama "Scale 1", scegliete questa e il tutto funzionerà egregiamente

Ciao