Макросы VBA для CATIA работают на одном компьютере и не работают на другом компьютере - PullRequest
Новая
       43

Макросы VBA для CATIA работают на одном компьютере и не работают на другом компьютере

0 голосов
/ 22 февраля 2020

enter image description here

Я не эксперт в макросах Catia, но я написал один простой код, и он работает на моей Catia, но на другом компьютере он не работает. Макрос предназначен для удаления деактивированных тел из дерева. ПОЖАЛУЙСТА ПОМОГИ. Вот код: 

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

'If Err.Number=0 Then

Dim selection1 'As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"

'if no deactivated components then end program
If selection1.Count = 0 Then
MsgBox "No deactivated features."
Exit Sub
Else

'delete all deactivated components then update the part
selection1.Delete
part1.Update
End If

'error handling
'Else
' Msgbox "Not a part document! Open a single part document."
'End If
End Sub
...