09-06-2022
05:25 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-06-2022
05:25 AM
hi,
i use:
For i = 1 To odraw.StylesManager.DimensionStyles.Count
If odraw.StylesManager.DimensionStyles.Item(i).UpToDate = False Then
odraw.StylesManager.DimensionStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.StandardStyles.Count
If odraw.StylesManager.StandardStyles.Item(i).UpToDate = False Then
odraw.StylesManager.StandardStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.BalloonStyles.Count
If odraw.StylesManager.BalloonStyles.Item(i).UpToDate = False Then
odraw.StylesManager.BalloonStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.CentermarkStyles.Count
If odraw.StylesManager.CentermarkStyles.Item(i).UpToDate = False Then
odraw.StylesManager.CentermarkStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.FeatureControlFrameStyles.Count
If odraw.StylesManager.FeatureControlFrameStyles.Item(i).UpToDate = False Then
odraw.StylesManager.FeatureControlFrameStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.HoleTableStyles.Count
If odraw.StylesManager.HoleTableStyles.Item(i).UpToDate = False Then
odraw.StylesManager.HoleTableStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.LeaderStyles.Count
If odraw.StylesManager.LeaderStyles.Item(i).UpToDate = False Then
odraw.StylesManager.LeaderStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.ObjectDefaultsStyles.Count
If odraw.StylesManager.ObjectDefaultsStyles.Item(i).UpToDate = False Then
odraw.StylesManager.ObjectDefaultsStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.PartsListStyles.Count
If odraw.StylesManager.PartsListStyles.Item(i).UpToDate = False Then
odraw.StylesManager.PartsListStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.RevisionTableStyles.Count
If odraw.StylesManager.RevisionTableStyles.Item(i).UpToDate = False Then
odraw.StylesManager.RevisionTableStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.StandardStyles.Count
If odraw.StylesManager.StandardStyles.Item(i).UpToDate = False Then
odraw.StylesManager.StandardStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.TableStyles.Count
If odraw.StylesManager.TableStyles.Item(i).UpToDate = False Then
odraw.StylesManager.TableStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.TextStyles.Count
If odraw.StylesManager.TextStyles.Item(i).UpToDate = False Then
odraw.StylesManager.TextStyles.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.Layers.Count
If odraw.StylesManager.Layers.Item(i).UpToDate = False Then
odraw.StylesManager.Layers.Item(i).UpdateFromGlobal()
End If
Next
For i = 1 To odraw.StylesManager.Styles.Count
If odraw.StylesManager.Styles.Item(i).UpToDate = False Then
odraw.StylesManager.Styles.Item(i).UpdateFromGlobal()
End If
Next
Dim oStyles As DrawingStylesManager = odraw.StylesManager
Dim noneleft As Boolean = True
Dim ostyle As Style
Do While (noneleft)
noneleft = False
For Each ostyle In oStyles.Styles
If ostyle.StyleLocation = 51202 And ostyle.InUse = False Then
' uncomment next line to see styles being deleted
' MsgBox(ostyle.Name)
ostyle.Delete()
noneleft = True
End If
Next
Loop