Updating idw styles and getting double prompt...would like just one.
Hi @steveh5. This should do it for you. I just got rid of the question in the middle of the loop, and the conditional statement, based on the answer to that question. Then condensed some stuff a bit.
'This logic runs thru all of Drawings Styles and updates them.
Sub Main()
OpenDoc = ThisDoc.Document
oStyles = OpenDoc.StylesManager.Styles
'Runs thru all Styles and see if they are up to date
For Each oStyle As Style In oStyles
If Not oStyle.UpToDate Then oStyle.UpdateFromGlobal
Next
Try : OpenDoc.Save : Catch : End Try
'Tells user that Styles have been updated.
MessageBox.Show("Drawing Styles have been Updated" & vbCr & oFile)
End SubIf this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
OK, I misunderstood. I thought the one prompt you were talking about was the one at the end. Here is a version with a question before the loop, asking if you want to proceed with updating all drawing styles.
'This logic runs thru all of Drawings Styles and updates them.
Sub Main()
OpenDoc = ThisDoc.Document
oStyles = OpenDoc.StylesManager.Styles
oAns = MessageBox.Show("Do you want to update all Styles in this drawing?", _
"Update Drawing Styles", MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2)
If oAns = DialogResult.Yes Then
'Runs thru all Styles and update them, if needed
For Each oStyle As Style In oStyles
If Not oStyle.UpToDate Then oStyle.UpdateFromGlobal
Next
End If
Try : OpenDoc.Save : Catch : End Try
'Tells user that Styles have been updated.
MessageBox.Show("Drawing Styles have been Updated" & vbCr & oFile)
End Sub
Wesley Crihfield
(Not an Autodesk Employee)
If we create a Boolean type variable named something like 'RequiresUpdate', set to False initially, then loop all drawing styles before the main question, checking if each is 'UpToDate', and as soon as any one of them returns False, then set the boolean variable to True, then exit the loop. Then check the value of that boolean. If False, simply exit the rule, because no update is needed. But if it is True, then ask the question, then if Yes, run the rest of the rule, as before. This requires two loops of all styles though, instead of just the one, so it would be less efficient, but would get the job done the way you want.
Wesley Crihfield
(Not an Autodesk Employee)
Thanks for the guidance. With your help, I'm really close.
If I run the iLogic manually, does exactly what I need it to do.
But, if I attach it to an Event Trigger so that on Drawings it runs "After Open Document, it errors.
What am I missing?
'This logic runs thru all of Drawings Styles and updates them. Sub Main() OpenDoc = ThisDoc.Document oStyles = OpenDoc.StylesManager.Styles 'Sets Update dialog to initially False Dim RequiresUpdate = False 'Runs thru all Styles and switches to RequiresUpdate to True For Each oStyle As Style In oStyles If Not oStyle.UpToDate Then RequiresUpdate = True Next If RequiresUpdate = True Then ' Pop up message asking if you want to update styles oAns = MessageBox.Show("Update to Current Drawing Styles?", "Styles Update", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2) If oAns = DialogResult.Yes Then 'Runs thru all Styles and update them, if needed For Each oStyle As Style In oStyles If Not oStyle.UpToDate Then oStyle.UpdateFromGlobal Next End If 'Tells user that Styles have been updated. ' MessageBox.Show("Drawing Styles have been Updated!" + vbCrLf + vbCrLf + "PLEASE Review all Dimensions and Balloons" & vbCr & oFile) End If Try : OpenDoc.Save : Catch : End Try If oAns = DialogResult.Yes Then 'Tells user that Styles have been updated. MessageBox.Show("Drawing Styles have been Updated!" + vbCrLf + vbCrLf + "PLEASE Review all Dimensions and Balloons" & vbCr & oFile) End If End Sub
Best,
Hi @steveh5. I am not sure. What does the error message say? Could you include what both tabs of the error message say when it pops-up? There is usually a pretty good clue somewhere within the More Info tab, that would tell us what it was trying to do when the error was encountered, which will usually make it easier for us to pinpoint which line of code that is happening at. Since you said it is working OK when ran manually, that makes me think there may be a timing issue involved. Maybe the rule is triggered to run too early after the document is opened, and it maybe has not fully loaded all styles related stuff. Just a thought.
Wesley Crihfield
(Not an Autodesk Employee)
So, moving this iLogic over to another machine and periodically I get this error on the second machine. I was getting same error on my machine at first too. I can't seem to get it on my machine now. Opening same file as other machine. He gets error I don't.
I'm pretty sure it has something to do with the trigger. I run the logic manually and not thru the trigger, I don't get an error on that second machine. Originally, my machine was acting same way.
Here's the error....
Any thoughts?
Best,
Steve H.
That second error screen indicates that the error happened while it was performing an 'UpdateFromGlobal' method on a Style. Are your styles/style libraries located locally on each machine, or are they stored centrally, like on a server? If on a server, then if mapped drives are being used, make sure everyone has the same drive letter for that location, otherwise you may have to eliminate the use of mapped drive letters in your paths, and use the full path back to the server in your paths. Just one tip I picked up due to similar sounding issues a couple years ago.
Wesley Crihfield
(Not an Autodesk Employee)
I guess to help avoid this error, you could just replace this:
If Not oStyle.UpToDate Then oStyle.UpdateFromGlobal...with this:
If Not oStyle.UpToDate Then
Try : oStyle.UpdateFromGlobal : Catch : End Try
End IfIt doesn't explain why the error is happening, but helps you keep moving forward.
Wesley Crihfield
(Not an Autodesk Employee)
