在CATIA中，可以使用以下代码示例来禁用预选功能：

1. 使用CATIA.Application对象中的SelectedElement属性获取当前选择的元素，然后使用Deselect方法取消选择：

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

' 获取当前选择的元素
Dim SelectedElement As Object
Set SelectedElement = CATIA.ActiveDocument.Selection.SelectedElement

' 取消选择
CATIA.ActiveDocument.Selection.Clear

2. 可以使用CATIA.Application对象中的SelectionFilter属性将选择过滤器设置为"Nothing"，这将禁用所有的预选功能：

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

' 将选择过滤器设置为"Nothing"
CATIA.ActiveDocument.SelectionFilter = "Nothing"

请注意，这些代码示例仅适用于VBA编程环境。如果您使用的是其他编程语言，可以参考CATIA API文档中的相应部分来实现类似的功能。