How to set property of drawing view to display Thread feature

How to set property of drawing view to display Thread feature

Anonymous
Not applicable
887 Views
2 Replies
Message 1 of 3

How to set property of drawing view to display Thread feature

Anonymous
Not applicable

Hi ,

 

I have created the drawing views through ETO rule.I can able to set the property to display tanget edges.

But there is no method to set a property to "display thread feature" in the drawing View.

Is this possible through ETO rule?

 

Regrads,

Appadurai.G

Reply
Reply
0 Likes
Accepted solutions (1)
888 Views
2 Replies
Replies (2)
Message 2 of 3

Lesoux
Advocate
Advocate

As I know, this functionallity doesn't support yet.

Try this, it works for me:

 

Somewhere on the top level:

Rule bDisplayThreadFeature As Boolean = true ' (or false)

 

Apply these rules to each type of view (see the picture below):

' Returns "True" If the object(parent) of the drawing view is assembly
Rule bIsAssemblyType As Boolean
   If Model.IsKindOf?(:IvAssemblyDocument) Then
      Return True
   Else
      Return False
   End If
End Rule

 

' Shows the thread features on the assembly drawing views only
Rule DisplayThreadFeatures As Any
   Dim oInvApp As Any = %%InventorApplication
   Dim oDrawDoc As Any = oInvApp.ActiveDocument
   Dim oSheet As Any = oDrawDoc.ActiveSheet
   Dim oDrawViews As Any = oSheet.DrawingViews

 

      If bIsAssemblyType Then
         If bDisplayThreadFeature Then
            For i = 1 To oDrawViews.Count
               If oDrawViews.get_Item(i).DisplayThreadFeatures = False Then
                  Dim oView As Any = oDrawViews.get_Item(i)
                  oView.DisplayThreadFeatures = True
               End If 
            Next
         Else
            For i = 1 To oDrawViews.Count
               If oDrawViews.get_Item(i).DisplayThreadFeatures = True Then
                  Dim oView As Any = oDrawViews.get_Item(i)
                  oView.DisplayThreadFeatures = False
               End If
            Next
         End If
      Else
         Return NoValue
      End If
End Rule

 

' Calls the "DisplayThreadFeatures" rule
Child DisplayThread As :BasePart
   render? = (DisplayThreadFeatures <> NoValue)
   showInModelBrowser? = False
End Child

 

Untitled-1.jpg

Win10 x64
Xeon E5-1630
32 Gb RAM
Quadro K5200

Inventor 2020.3.4, Build 373
Reply
Reply
0 Likes
Message 3 of 3

Anonymous
Not applicable
Accepted solution

Thanks Lesoux. Its works fine.

 

Regards,

Appadurai.G

Reply
Reply
0 Likes