Visible sketch with ilogic (in an assemble)

[Z0methink]

This code is good:

Visible = True

prt = "Part:1"

sktch = "Sketch"

Dim compOcc = Component.InventorComponent(prt)

Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)

Dim oSkProx As PlanarSketchProxy = Nothing

Call compOcc.CreateGeometryProxy(oSk, oSkProx)

oSkProx.Visible = Visible

This code gives an error message:

Sub Main()

Visible = True

prt = "Part:1"

sktch = "Sketch"

SketchVisible

End Sub


Sub SketchVisible()

Dim compOcc = Component.InventorComponent(prt)

Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)

Dim oSkProx As PlanarSketchProxy = Nothing

Call compOcc.CreateGeometryProxy(oSk, oSkProx)

oSkProx.Visible = Visible

End Sub

Message: "Component : The Component named "Nothing" was Not found."

 Why?

[Z0methink]

This code gives an error message:

Sub Main()

Visible = True

prt = "Part:1"

sktch = "Sketch"

SketchVisible

End Sub

Sub SketchVisible()

Dim compOcc = Component.InventorComponent(prt)

Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)

Dim oSkProx As PlanarSketchProxy = Nothing

Call compOcc.CreateGeometryProxy(oSk, oSkProx)

oSkProx.Visible = Visible

End Sub

Message: "Component : The Component named "Nothing" was Not found."

 Why?

[andrewiv · Accepted solution]

If you want to use variables in multiple sub routines you have to pass them to the sub routine or make them global variables.  Here are the two ways of doing it.  I commented out the first part that shows passing the variables.

'Sub Main()
'Dim Visible As Boolean = True
'Dim prt As String = "Part:1"
'Dim sktch As String = "Sketch"
'	Call SketchVisible(Visible, prt, sktch)
'End Sub

'Sub SketchVisible(Visible As Boolean, prt As String, sktch As String)
'	Dim compOcc = Component.InventorComponent(prt)
'	Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)
'	Dim oSkProx As PlanarSketchProxy = Nothing
'	Call compOcc.CreateGeometryProxy(oSk, oSkProx)
'	oSkProx.Visible = Visible
'End Sub

Class thisRule
Dim Visible As Boolean = True
Dim prt As String = "Part:1"
Dim sktch As String = "Sketch"
Sub Main()
	Call SketchVisible()
End Sub

Sub SketchVisible()
	Dim compOcc = Component.InventorComponent(prt)
	Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)
	Dim oSkProx As PlanarSketchProxy = Nothing
	Call compOcc.CreateGeometryProxy(oSk, oSkProx)
	oSkProx.Visible = Visible
End Sub
End Class

[marcin_otręba]

Try now:

But honestly i do not now what you want to do?

Sub Main()

Visible = True

SketchVisible

End Sub

Sub SketchVisible()

prt = "Part:1"

sktch = "Sketch"

Dim compOcc = Component.InventorComponent(prt)

Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item(sktch)

Dim oSkProx As PlanarSketchProxy = Nothing

Call compOcc.CreateGeometryProxy(oSk, oSkProx)

oSkProx.Visible = Visible

End Sub

[Z0methink]

Thank you very very much! Works! I just simplified the code for ilogic (this worked too):

Sub main ()
Visible = True
prt = "Part: 1"
sktch = "Sketch"
SketchVisible (Visible, prt, sktch)
End sub

Sub SketchVisible (Visible As Boolean, prt As String, sktch As String)
Dim compOcc = Component.InventorComponent (prt)
Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item (sktch)
Dim oSkProx As PlanarSketchProxy = Nothing
Call compOcc.CreateGeometryProxy (oSk, oSkProx)
oSkProx.Visible = Visible
End sub

Thanks!

[Z0methink]

I wanted to do something like this:

Sub main ()

Visible = True
prt = "Part: 1"
SketchVisible (Visible, prt)

Visible = True
prt = "Part: 2"
SketchVisible (Visible, prt)

Visible = False
prt = "Part: 3"
SketchVisible (Visible, prt)

End sub

Sub SketchVisible (Visible As Boolean, prt As String)
Dim compOcc = Component.InventorComponent (prt)
Dim oSk As PlanarSketch = compOcc.Definition.Sketches.Item ("Sketch")
Dim oSkProx As PlanarSketchProxy = Nothing
Call compOcc.CreateGeometryProxy (oSk, oSkProx)
oSkProx.Visible = Visible
End sub