Для удаления сопряжений (связей между объектами) в Компас-3D рекомендуется использовать макросы, которые можно создавать с помощью встроенного редактора VBA (Visual Basic for Applications) или API Компас.
Вот пример на основе VBScript, который поможет вам начать:
Sub DeleteAllConstraints()
' Получаем доступ к активному документу Компас
Dim kompasApp As Object
Set kompasApp = CreateObject("KOMPAS.Application.5")
If kompasApp Is Nothing Then
MsgBox "Компас-3D не запущен."
Exit Sub
End If
' Получаем активный документ сборки
Dim doc As Object
Set doc = kompasApp.ActiveDocument
If doc Is Nothing Then
MsgBox "Нет открытого документа сборки."
Exit Sub
End If
' Получаем количество сопряжений в текущем документе
Dim constraints As Object
Set constraints = doc.KompasConstraints
' Если сопряжения присутствуют, удаляем их
If Not constraints Is Nothing Then
Dim i As Integer
For i = constraints.Count To 1 Step -1
constraints(i).Delete
Next i
MsgBox "Все сопряжения удалены."
Else
MsgBox "Сопряжений не найдено."
End If
End Sub
Чтобы использовать этот макрос:
Откройте Компас-3D и необходимую сборку.
Запустите редактор макросов (VBA) или создайте новый макрос.
Вставьте данный код в текстовое поле редактора макросов.
Выполните макрос для удаления всех сопряжений.
Пожалуйста, убедитесь, что у вас есть резервная копия вашего файла перед запуском макроса, так как это действие необратимо.