Error: Object Variable or With block variable not set

[Anonymous]

Please help. With this iLogic rule run as external rule, I am intermittently getting the error: Object Variable or With block variable not set with the codes below:

Sub Main()
Dim oDoc As Document
oDoc = ThisDoc.Document

Dim BORDERNAME as String
BORDERNAME=Parameter("KINZEBORDER") 
    Dim cd
    cd = ThisApplication.CommandManager.ControlDefinitions("DrawingBorderInsertNoDlgCtxCmd")
    
    Dim bp
    bp = ThisApplication.ActiveDocument.BrowserPanes("DlHierarchy")
    
    Dim node
    node = FindBorderNode(BORDERNAME, 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

[bradeneuropeArthur]

Hi,

What is the value of "

BORDERNAME=Parameter("KINZEBORDER") 

"

[JelteDeJong]

Hi, when i tryed your script it made inventor crash. Also i see a couple of things i dont understand. Anyway i think you try to set a border by a parameter. You could try this script.

Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheet As Sheet = oDrawDoc.ActiveSheet
Dim oBorder As Border = oSheet.Border
oBorder.Delete()
Dim borderName As String = KINZEBORDER

If (borderName = "Default Border") Then
    oSheet.AddDefaultBorder()
Else
    Dim oBorderDef As BorderDefinition = oDrawDoc.BorderDefinitions.Item(borderName)
    oSheet.AddBorder(oBorderDef)
End If

in this script i expect the default border is called "Default Border". That could be different in your language. if so you need to set it correct in the script.

[Anonymous]

Thank you for your reply.

The value of 

BORDERNAME=Parameter("KINZEBORDER") 

is a multi value parameter with values of "KASSEMBLY", "KPART", "KGANGPART" AND "KGANGASSEMBLY".

I'm sorry it crashed your inventor session. I am using Inventor 2016. This code was given to me by Autodesk Help to work around the problem of using the  ActiveSheet.Border = Parameter ("KINZEBORDER") code which was setting border zones to value =0 and not displaying. This code was to simulate actually hitting the browser button to delete existing border and add the desired border. 

I will try your suggestion and let you know how it works.

Raj

[Anonymous]

Unfortunately, the code provided by Jelte De Jong works but has the problem with border zones turning off. This is the same issue as using the "ActiveSheet.Border="NameofBorder"". Zones disappear when the border is placed into the drawing sheet.

With the codes for expanding the browser node and simulating the click even gives "Object variable or With block variable not set" error constantly.