Sub CATMain()
Dim settingControllers1 As SettingControllers
Dim settingRepository1 As SettingRepository
Dim boolean61 As Boolean
Set settingControllers1 = CATIA.SettingControllers
Set settingRepository1 = settingControllers1.Item("DraftingOptions")
boolean61 = settingRepository1.GetAttr("Drw_settings_GridDisplay")
If boolean61 Then
settingRepository1.PutAttr "Drw_settings_GridDisplay", False
Else
settingRepository1.PutAttr "Drw_settings_GridDisplay", True
End If
MsgBox settingRepository1.GetAttr("Drw_settings_GridDisplay")
settingRepository1.Commit
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("Tempo")
Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000
drawingView1.x = 0
drawingView1.y = 0
Dim double1 As Double
double1 = drawingSheet1.Scale
drawingView1.Scale = 1.000000
drawingView1.Activate
Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Search "Name=Tempo,all"
Dim selection2 As Selection
Set selection2 = drawingDocument1.Selection
selection2.Delete
End Sub