×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

3D points

3D points

3D points

(OP)
Hello World!
I want to activate 3D points in my drawing views using a macro in CATIA
I would greatly appreciate any help or any suggestions
Regards,

RE: 3D points

Hello Mayrou,

I think it would help you.

Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As selection
Set selection1 = CATIA.ActiveDocument.selection

selection1.Search "Drafting.'Generated Item'.Symbol=Cross,all"

End Sub

RE: 3D points

CODE -->

Sub Points_Projection_Mode()

    Dim oDrawing As DrawingDocument
    Set oDrawing = CATIA.ActiveDocument
    
    Dim oSheets As DrawingSheets
    Set oSheets = oDrawing.Sheets
    
    Dim oSheet As DrawingSheet
    Set oSheet = oSheets.Item(1)
    
    Dim oView As DrawingView
    Set oView = oSheet.Views.Item(3)
    oView.Activate
    
    oView.GenerativeBehavior.PointsProjectionMode = catPointsProjectionModeOn
    Set oView2 = oView.GenerativeBehavior
    
    oView2.Update
    
End Sub 

RE: 3D points

CODE -->

Sub Points_Projection_Mode()

    Dim oDrawing As DrawingDocument
    Set oDrawing = CATIA.ActiveDocument
    
    Dim oSheets As DrawingSheets
    Set oSheets = oDrawing.Sheets
    
    Dim oSheet As DrawingSheet
    Set oSheet = oSheets.Item(1)
    
    Dim oView As DrawingView
    Set oView = oSheet.Views.Item(3)
    oView.Activate
    
    oView.GenerativeBehavior.PointsProjectionMode = catPointsProjectionModeOn
    Set oView2 = oView.GenerativeBehavior
    
    oView2.Update
    
End Sub 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources