topic Re: Error: Object Variable or With block variable not set in Inventor Programming Forum

Error: Object Variable or With block variable not set

Anonymous — Tue, 29 Oct 2019 19:15:36 GMT

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

Re: Error: Object Variable or With block variable not set

bradeneuropeArthur — Wed, 30 Oct 2019 10:27:19 GMT

Hi,

What is the value of "

BORDERNAME=Parameter("KINZEBORDER")

Re: Error: Object Variable or With block variable not set

JelteDeJong — Wed, 30 Oct 2019 12:22:12 GMT

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.

Re: Error: Object Variable or With block variable not set

Anonymous — Wed, 30 Oct 2019 13:09:16 GMT

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

Re: Error: Object Variable or With block variable not set

Anonymous — Fri, 01 Nov 2019 23:58:12 GMT

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.