Отправлено: 28.09.07 12:40. Заголовок: "Взлом" недоступных для редактирования эскизов деталей

В некоторых деталях (полученных из Design Accelerator) отсутствует такая нужная порой возможность редактирования эскизов (так хочется чуть подправить валы и т.д.). Для возвращения доступности эскизов рекомендуется выполнить нижеследующий макрос (тестировалось на AIP 11 SP3):

Sub FixSketch()
Dim oSketch As PlanarSketch

Dim oPartDoc As PartDocument

Set oPartDoc = ThisApplication.ActiveDocument

For Each oSketch In oPartDoc.ComponentDefinition.Sketches
oSketch.DisabledActionTypes = kNoAction
Next
End Sub