Inventor Customization

Inventor Customization

Reply
Member
5 Posts
0 Kudos
Registered: ‎07-13-2011
Post 1 of 8
Accepted Solution

Turn off Translucent using VBA

761 Views, 7 Replies
11-10-2011 08:36 PM

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

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

 

Valued Mentor
425 Posts
11 Kudos
Registered: ‎06-14-2005
Post 2 of 8

Re: Turn off Translucent using VBA

11-12-2011 07:19 AM in reply to: rrdeveloper

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

 

-------------------------------------------------------------------------
Inventor Professional 2012 SP1 (25 seats with subscription)
Windows 7 64 bit
Lenovo D20, 12 GB RAM, Intel Xeon X5687 3.6 GHz, SSD
Quadro 4000, driver 8.17.12.9573, dual monitors
SpacePilot, driver version 6.15.3 Firmware 3.12
Member
5 Posts
0 Kudos
Registered: ‎07-13-2011
Post 3 of 8

Re: Turn off Translucent using VBA

11-13-2011 07:40 PM in reply to: JohanLarsson

Thank You.

I works as expected :womanvery-happy:

Active Member
10 Posts
1 Kudo
Registered: ‎10-07-2008
Post 4 of 8

Re: Turn off Translucent using VBA

03-14-2012 07:40 AM in reply to: JohanLarsson

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?

Member
5 Posts
0 Kudos
Registered: ‎07-13-2011
Post 5 of 8

Re: Turn off Translucent using VBA

03-14-2012 08:47 PM in reply to: jalexander

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

Contributor
16 Posts
1 Kudo
Registered: ‎10-09-2012
Post 6 of 8

Re: Turn off Translucent using VBA

09-26-2014 07:45 AM in reply to: rrdeveloper

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?

Contributor
16 Posts
1 Kudo
Registered: ‎10-09-2012
Post 7 of 8

Re: Turn off Translucent using VBA

09-26-2014 07:59 AM in reply to: dwweekly
I found that it does not work in multiple sub assemblies, is there a change in code to go down thru multiple assemblies?
Contributor
16 Posts
1 Kudo
Registered: ‎10-09-2012
Post 8 of 8

Re: Turn off Translucent using VBA

09-26-2014 08:01 AM in reply to: dwweekly
also it hangs on solid models...I think
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are you interested in helping shape the future of the Autodesk Community? To participate in this brief usability study, please click here. Your time and input is greatly appreciated!