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,
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
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 SubRE: 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