Sheet Size iLogic Problem
Hi,
I've just found this issue logged in our system and it does not seem to be fixed yet 😞
It's not specific to iLogic, you could reproduce the same by using "Call ThisApplication.ActiveDocument.ActiveSheet.AddBorder(myBorderDefinition)" in VBA
The only workaround I could think of is executing the same command that is being used when you double-click a specific Border definition in the Browser window in the user interface.
In that case we need to retrieve the definition of that control and then iterate through the broswer nodes, select the appropriate one and then execute the command.
In case of an iLogic rule it would look like this and it seemed to work fine when I tested it. In this case the border definition we want to add is "Border1"
Sub Main()
Dim cd
cd = ThisApplication.CommandManager.ControlDefinitions("DrawingBorderInsertNoDlgCtxCmd")
Dim bp
bp = ThisApplication.ActiveDocument.BrowserPanes("DlHierarchy")
Dim node
node = FindBorderNode("Border1", bp.TopNode.BrowserNodes)
If Not ThisDoc.Document.ActiveSheet.Border Is Nothing Then
ThisDoc.Document.ActiveSheet.Border.Delete
End If
node.DoSelect
cd.Execute2 (True)
End Sub
Function FindBorderNode(name, nodes)
Dim node
For Each node In nodes
If name = node.BrowserNodeDefinition.Label Then
FindBorderNode = node
Exit Function
End If
FindBorderNode = FindBorderNode(name, node.BrowserNodes)
If Not FindBorderNode Is Nothing Then
Exit Function
End If
Next
End Function
Cheers,
Adam Nagy
Autodesk Platform Services
... or just create a custom border for each size and replace it on the sheet.
That's what I've been doing for 3 years now. And it's 3 lines of code in VBA, 2 in iLogic.
Jonathan D. Kriek
MFG Solutions Engineer
KETIV Technologies, Inc.
MFG Solutions Engineer
KETIV Technologies, Inc.
Hi,
Do you still need help, or you're OK now? 🙂
Cheers,
Adam Nagy
Autodesk Platform Services
Hi Adam, hi to all,
i have attached an idw file.
I use your code Adam, works fine, only some issue that i can't fix it.
Just open the idw, run the Form in it, and try switch through the sheets option (A0,A1,A2..etc..), nothing happen.
To make it works i have to manually insert a boder from Drawing Resource, then if i use the Form it works.
How can i make it works directly from the beginning?
I think that it depends on the closed border folder in Drawing Resource..
Thank you Adam, thank you all.
Admaiora
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Facebook | Twitter | Youtube
Any solutions in the meanwhile?
Admaiora
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Facebook | Twitter | Youtube
Accepted solution
Hi,
The difference between when it's working and when it's not working is not that you added a border manually, but that you expanded the list of borders in the model browser window. It seems once it's been expanded the code works even if you collapse it.
You can expand the border nodes programmatically as well. Just make the selected node visible:
Dim node
node = FindBorderNode("Bordo A0", bp.TopNode.BrowserNodes)
node.EnsureVisible()
Cheers,
Adam Nagy
Autodesk Platform Services
Thank you Adam!
It works perfectly!
Admaiora
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Facebook | Twitter | Youtube
Sorry, but I could not reproduce the issue in Inventor 2015.
What version are you using?
Not sure how the behaviour you described could happen without any error popping up.
You could try to track what your code is doing like this:
http://adndevblog.typepad.com/manufacturing/2014/08/debug-ilogic.html
You could also test how the same thing behaves from VBA, where you could also debug into the code seeing it execute line by line.
Adam Nagy
Autodesk Platform Services
Does the save happen through a dialog?: e.g. when saving for the first time or saving the doc with a different name
Because if there is something in the UI open, then I can imagine that the selection cannot not take place in the browser tree, so executing "DrawingBorderInsertNoDlgCtxCmd" will do nothing.
Also don't forget that running commands directly is just a workaround, not a robust solution.
Shame Sheet.AddBorder() does not work properly with zoned borders 😕
Adam Nagy
Autodesk Platform Services
Yes, as I said executing control definitions is not robust, and it seems trying to do that from an event is one way to prove that :-s
If you are willing to create an add-in instead, there you would have more options. E.g. there you could even cancel the save or close if not everything is as it should be in the drawing, then bring up a dialog listing the issues offering the user to fix them on the click of a button. Then you would be outside the event handler execution and probably it should all work.
Actually, the form part could be done in iLogic as well. So in one rule you could check the drawing (that is run from "before save" event) and if there are issues it would bring up a form which can run another rule that would do the actual work of changing the border.
In this example first the form pops up because "Mine" border is not used. Then user clicks "Fix them", the border is changed, and during the next save no form pops up, because all is fine:
http://www.screencast.com/t/sPoX2Vl6jvx
I don't think there is a way however to change the border before the document save takes place.
The real solution for you would be if AddBorder() functioned as it should, but not not sure when that will happen.
In the meantime I cannot think of a way to make the border change fully event driven, not requiring the user to explicitly run your rule (e.g. from an iLogic form).
Adam Nagy
Autodesk Platform Services