Code:
Sub CATMain()Set settingControllers1 = CATIA.SettingControllers
Set knowledgeSheetSettingAtt1 = settingControllers1.Item("CATLieKnowledgeSheetSettingCtrl")
knowledgeSheetSettingAtt1.ParameterTreeViewWithValue = 1
knowledgeSheetSettingAtt1.ParameterTreeViewWithFormula = 0
knowledgeSheetSettingAtt1.ParameterNameSurroundedByTheSymbol = 0
knowledgeSheetSettingAtt1.RelationsUpdateInPartContextSynchronousRelations = 1
knowledgeSheetSettingAtt1.RelationsUpdateInPartContextEvaluateDuringUpdate = 1
knowledgeSheetSettingAtt1.DesignTablesCopyData = 0
knowledgeSheetSettingAtt1.DesignTablesSynchronization = 0
knowledgeSheetSettingAtt1.SaveRepository
knowledgeSheetSettingAtt1.Commit
End Sub