---

Hallo,

ich habe dazu leider nichts finden können.
Ich möchte den Stil per VBA importieren.

Stil Editor -> importieren -> test.styxml -> Ok

Habe leider gelesen das es nicht möglich sei? Stimmt das?
Ein Script in den Beispieln von Inventor bzgl. Schfitfeld austauschen habe ich schon.
Jetzt wäre es noch schön den Stil zu importieren 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Starbuzz,

ist zwar nicht VBA sondern VB.NET sollte aber trotzdem gehen, wenn du es ein wenig modifizierst. Das Script stammt aus einem eigenen Tool, welches alle Stile, Symbole, Parameter etc. von einer Vorlage in das jeweils aktuelle Dokument kopiert.

Code:

---

'Stile übertragen
      Dim obj_InvApp As Inventor.Application = GetObject(, "Inventor.Application")
      Dim obj_InvDestDrawDoc As Inventor.DrawingDocument = obj_InvApp.ActiveDocument

      Dim obj_InvStyles As Inventor.DrawingStylesManager
      Dim obj_InvStyle As Inventor.Style
      obj_InvStyles = obj_DestDrawDoc.StylesManager
     
      For Each obj_InvStyle In obj_InvStyles.Styles
          If obj_InvStyle.UpToDate = False Then
              obj_InvStyle.UpdateFromGlobal() '<-- Hier werden die Zeichnungsstile mit den globalen aktualisiert
          End If
      Next

---

Gruß

Stefan

------------------
Wer nicht mitmacht, kann auch nichts verändern

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke.
Habe aber glaube ich etwas ähnliches gefunden.
Und zwar aktualisiert er den Stil nach einem gegebenen Stil

Public Sub ChangeObjDefaults()

    'set active document as drawing document
    Dim oDrgDoc As DrawingDocument
    Set oDrgDoc = ThisApplication.ActiveDocument
     
    Dim oDrgStlMgr As DrawingStylesManager
    Set oDrgStlMgr = oDrgDoc.StylesManager
   
    Dim oObjDfStl As ObjectDefaultsStylesEnumerator
    Set oObjDfStl = oDrgStlMgr.ObjectDefaultsStyles

    'set Object Defaults (ISO) as active object default style
    oDrgStlMgr.ActiveStandardStyle.ActiveObjectDefaults = oObjDfStl.Item("Object Defaults (ISO)")

End Sub

Ich schaue mal wie ich jetzt den neuen Stil da einfügen soll, den ich manuell immer importiere.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So ich habe es 

Der Code ist etwas länger aber tut es auch

Sub IDW_UpdateStylesIV2008()
'message box strings
msgPrm1 = " This Macro Only Works with Drawings Documents "
msgPrm2 = " Please open a Drawing "
msgTit = "Wrong Active Document Type"
Prm1 = Len(msgPrm1) + 4
Prm2 = Len(msgPrm2) + 4
Tit = Len(msgTit)
cmsgPrm2 = String((Prm1 - Prm2) / 2, Chr(32)) & msgPrm2
cmsgTit = String((Prm1 - Prm2) / 2, Chr(32)) & msgTit

'check if the active document is a drawing document
If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
Dim oIDW As DrawingDocument
Set oIDW = ThisApplication.ActiveDocument

Dim oIDWStyles As Inventor.DrawingStylesManager
Set oIDWStyles = oIDW.StylesManager
Else
MsgBox msgPrm1 & Chr(13) & Chr(13) & cmsgPrm2, vbExclamation, cmsgTit
End If

Dim i As Integer

'loop thru all styles and check if they are up to date
For i = 1 To oIDWStyles.StandardStyles.Count
'Debug.Print "Std Styles - " + oIDWStyles.StandardStyles.Item(I).Name
If oIDWStyles.StandardStyles.Item(i).UpToDate = False Then
oIDWStyles.StandardStyles.Item(i).UpdateFromGlobal
End If
Next

For i = 1 To oIDWStyles.ObjectDefaultsStyles.Count
'Debug.Print "Obj Def Styles - " + oIDWStyles.ObjectDefaultsStyles.Item(I).Name
If oIDWStyles.ObjectDefaultsStyles.Item(i).UpToDate = False Then
oIDWStyles.ObjectDefaultsStyles.Item(i).UpdateFromGlobal
End If
Next

For i = 1 To oIDWStyles.DimensionStyles.Count
'Debug.Print "Dim Styles - " + oIDWStyles.DimensionStyles.Item(I).Name
If oIDWStyles.DimensionStyles.Item(i).UpToDate = False Then
oIDWStyles.DimensionStyles.Item(i).UpdateFromGlobal
End If
Next

For i = 1 To oIDWStyles.TextStyles.Count
'Debug.Print "TXT Styles - " + oIDWStyles.TextStyles.Item(I).Name
If oIDWStyles.TextStyles.Item(i).UpToDate = False Then
oIDWStyles.TextStyles.Item(i).UpdateFromGlobal
End If
Next

For i = 1 To oIDWStyles.Layers.Count
'Debug.Print "Layers Styles - " + oIDWStyles.Layers.Item(I).Name
If oIDWStyles.Layers.Item(i).UpToDate = False Then
oIDWStyles.Layers.Item(i).UpdateFromGlobal
End If
Next

'Inv2008 Styles Class
For i = 1 To oIDWStyles.Styles.Count
Debug.Print "Styles - " + oIDWStyles.Styles.Item(I).Name
If oIDWStyles.Styles.Item(i).UpToDate = False Then
oIDWStyles.Styles.Item(i).UpdateFromGlobal
End If
Next

oIDW.Update
oIDW.Save
'set Drawing settings
If oIDW.DrawingSettings.DeferUpdates = True Then
oIDW.DrawingSettings.DeferUpdates = False
oIDW.Save
End If
'oIDW.Close
End Sub

Mit dem Code Teil des Rahmen und Schriftfeldes erneuern, ist mein VBA nun komplett!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP