topic Re: Turn off Translucent using VBA in Inventor Programming Forum

Turn off Translucent using VBA

Anonymous — Fri, 11 Nov 2011 04:36:36 GMT

Hi All,

I'm trying to make a translucent part file to a opaque part file by using the below code

    Dim oDocument As Document
    Set oDocument = ThisApplication.ActiveDocument
    oDocument.ActiveRenderStyle.Opacity = 1    'making the body opaque

But it doesnot help.Can someone please let me know how to do it through code.

PS: attached is the process of doing it manually

Thank You

Re: Turn off Translucent using VBA

Anonymous — Sat, 12 Nov 2011 15:19:15 GMT

Like this?

Public Sub TranslucentTest()
    Dim app As Inventor.Application
    Set app = ThisApplication
    Dim partDoc As PartDocument
    Set partDoc = app.ActiveDocument
    Dim oWorkSurface As WorkSurface
    Set oWorkSurface = partDoc.ComponentDefinition.WorkSurfaces.Item(1)
    oWorkSurface.Translucent = False
   
End Sub

Re: Turn off Translucent using VBA

Anonymous — Mon, 14 Nov 2011 03:40:30 GMT

Thank You.

I works as expected

Re: Turn off Translucent using VBA

jalexander — Wed, 14 Mar 2012 14:40:18 GMT

This works for part docs only, is there any way we can improve upon this to change all part surfaces in an assembly file instead of opening each part that has a surface individually?

Re: Turn off Translucent using VBA

Anonymous — Thu, 15 Mar 2012 03:47:37 GMT

Public Sub TranslucentTest()
      Dim app As Inventor.Application
      Set app = ThisApplication
        Dim oModel As AssemblyDocument
        Set oModel = ThisApplication.ActiveDocument '.iam file
        'or open the assembly file as below
        'Set oModel = ThisApplication.Documents.Open("D:\TestAssm.iam", False)
       'then identify each part in the assembly & set the surface to opaque
      Dim partDoc As PartDocument
      For i = 1 To oModel.ComponentDefinition.Occurrences.Count
       Set partDoc = oModel.ComponentDefinition.Occurrences.Item(i).Definition.Document
        Dim oWorkSurface As WorkSurface
        Set oWorkSurface = partDoc.ComponentDefinition.WorkSurfaces.Item(1)
        oWorkSurface.Translucent = False
       Next

End Sub

////////////////

The above code identifies each part in the assembly & changes its surface

Hope this helps

Re: Turn off Translucent using VBA

dwweekly — Fri, 26 Sep 2014 14:45:22 GMT

I tried it,

I have inventor 2012

got an error

Runtime error '-2147467259 (80004005)':

Method 'Item' of object 'WorkSurfaces' failed

it highlighted

Set oWorkSurface = partDoc.ComponentDefinition.WorkSurfaces.Item(1)

any suggestions?

Re: Turn off Translucent using VBA

dwweekly — Fri, 26 Sep 2014 14:59:38 GMT

I found that it does not work in multiple sub assemblies, is there a change in code to go down thru multiple assemblies?

Re: Turn off Translucent using VBA

dwweekly — Fri, 26 Sep 2014 15:01:05 GMT

also it hangs on solid models...I think

Re: Turn off Translucent using VBA

sebastien.forman — Fri, 08 Jun 2018 08:00:42 GMT

Hi,

Please find my code with recursive functionality.

Public Sub TranslucentToOpaqueAllParts()
    Dim app As Inventor.Application
    Set app = ThisApplication
    Dim oModel1 As AssemblyDocument
    Set oModel1 = ThisApplication.ActiveDocument
    
    TranslucentToOpaqueAllPartsRecurcivePart oModel1
End Sub
Private Sub TranslucentToOpaqueAllPartsRecurcivePart(oModel As AssemblyDocument)
    Dim partDoc As Document
        For i = 1 To oModel.ComponentDefinition.Occurrences.Count
            Set partDoc = oModel.ComponentDefinition.Occurrences.Item(i).Definition.Document
                If partDoc.DocumentType = kPartDocumentObject Then
                    Dim oWorkSurface As WorkSurface
                    Set oWorkSurface = partDoc.ComponentDefinition.WorkSurfaces.Item(1)
                    oWorkSurface.Translucent = False
                Else
                    changeInIamToOpaque partDoc
                End If
        Next
End Sub

Re: Turn off "All" Translucent Surfaces using VBA

Stooie — Mon, 25 Feb 2019 05:48:53 GMT

Obvious, Itinerant every surface.

Public Sub TranslucentToOpaqueAllParts()
Dim app As Inventor.Application
Set app = ThisApplication
Dim oModel1 As AssemblyDocument
Set oModel1 = ThisApplication.ActiveDocument

TranslucentToOpaqueAllPartsRecurcivePart oModel1
End Sub
Private Sub TranslucentToOpaqueAllPartsRecurcivePart(oModel As AssemblyDocument)
Dim partDoc As Document
For i = 1 To oModel.ComponentDefinition.Occurrences.Count
Set partDoc = oModel.ComponentDefinition.Occurrences.Item(i).Definition.Document
If partDoc.DocumentType = kPartDocumentObject Then
Dim oWorkSurface As WorkSurface
For Each oWorkSurface In partDoc.ComponentDefinition.WorkSurfaces
oWorkSurface.Translucent = False
Next
Else
'changeInIamToOpaque partDoc
End If
Next
End Sub