Toggle visibility 3rd party object in .dwg

[Anonymous]

Hi all,

I was wondering if there is a way to toggle the visibility of a 3rd party object within a .dwg with a rule or something?

[MechMachineMan]

Here is one I wrote than will start from an assembly and iterate down.

Sub Main()
	Dim oDoc As Document = ThisApplication.ActiveDocument

	For Each oOLEFileRef In oDoc.ReferencedOLEFileDescriptors
	        oOLEFileRef.BrowserVisible = True
	Next

	For Each oSubDoc As Document In oDoc.AllReferencedDocuments
		If oSubDoc.ReferencedOLEFileDescriptors.Count > 0
			 For Each oOLEFileRef In oVisiDoc.ReferencedOLEFileDescriptors 
                               oOLEFileRef.BrowserVisible = True 
                         Next
		End If
	Next
        MsgBox("Rule Complete!",,"iLogic")
End Sub