[CDR 2017-2021] Сокращение узлов.

[DukereD]

В кореле есть стандартное сокращение узлов, но когда записываешь макрос , то в результате он просто выдает некую уже сгенерированную готовую кривую. есть ли стандартный какой метод по сокращению узлов?

 

[-Moh-]

А Вы не задумывались о том, что для каждого объекта "сокращение узлов" сугубо индивидуально?
Или всем хочется Искусственного Интеллекта?

 

[DukereD]

А Вы не задумывались о том, что для каждого объекта "сокращение узлов" сугубо индивидуально?
Или всем хочется Искусственного Интеллекта?

искусственного интеллекта конечно в кореле не хватает, но хотябы алгоритм и принцип действия вытянуть или понять.

 

[_MBK_]

искусственного интеллекта конечно в кореле не хватает, но хотябы алгоритм и принцип действия вытянуть или понять.

Через пункт меню разве что. Принцип действия - чертовски сложный матан

 

[DukereD]

Через пункт меню разве что. Принцип действия - чертовски сложный матан

хотелось бы макросом делать.
тогда вопрос другой ) можно ли из макроса вызвать стандартный пункт меню чтобы выполнил? ))))

 

[_MBK_]

хотелось бы макросом делать.
тогда вопрос другой ) можно ли из макроса вызвать стандартный пункт меню чтобы выполнил? ))))

Можно, если его GUID знать, насколько я помню.

 

[dastin]

можно ли из макроса вызвать стандартный пункт меню

а поконкретней?

 

[_MBK_]

а поконкретней?

Reduce nodes
Это не пункт меню, а кнопка, но у нее тоже есть GUID
Cобственно вот ответ

 

[dastin]

Cобственно вот ответ

да ... это я видел ... и вывод тамошнего ТС - руками аккуратнее

 

[_MBK_]

руками аккуратнее

Ну это очевидно же

 

[DukereD]

так есть же стандартный метод у курвы AutoReduceNodes )))
и как я его не заметил )

For Each s In ActiveSelectionRange.Shapes
    If Not s.Curve Is Nothing Then
        s.Curve.AutoReduceNodes gap.Value
    End If
Next s

 

[_MBK_]

так есть же стандартный метод у курвы AutoReduceNodes )))
и как я его не заметил )

For Each s In ActiveSelectionRange.Shapes
    If Not s.Curve Is Nothing Then
        s.Curve.AutoReduceNodes gap.Value
    End If
Next s

Ну а разве по моей ссылке это не написано?

 

[DukereD]

Ну а разве по моей ссылке это не написано?

там и отыскал это. просто написал сюда в тему чтобы было всем видно.

 

[_MBK_]

Ну там, как я понял, в итоге сделали вывод, что кнопкой все таки лучше