[CDR 2017-2021] Переименование обьекта

[Kramatorii]

Всем привет! кто может помочь сделать макрос на переименование обьектов в рандомные числа, только что бы при выборе нескольких обьектов число присваивалось каждому обьекту отдельно. Программировать не умею получилось вроде на все обьекты сразу ран.число кинуть, а вот каждому отдельно в выборе не как. Спасибо

 

[DukereD]

For Each S In ActiveSelection.Shapes
    n = ActiveSelection.Shapes.Count
    S.Name = Int(n * Rnd)
Next S

другой вопрос для каких целей интересуетесь зачем именно имена объектов рандомно задавать?

 

[dastin]

В CorelDRAW каждый объект уже имеет свой уникальный номер - StaticID

StaticID возвращает целое число, представляющее уникальный идентификационный номер, присвоенный каждому объекту. Это число не меняется, поэтому его можно использовать в течение всего срока существования объекта.

соответственно каждый объект = Shape имеет свой name

можно перебрать все объекты, прочесть их StaticID ( что-то сделать с этим номером) и записать номер в имя - повторений не будет

 

[Kramatorii]

другой вопрос для каких целей интересуетесь зачем именно имена объектов рандомно задавать?

Работаю в сфере проектирования вен.фасадов и часто при раскрое больших обьектов материала становиться очень много, и понять к примеру где находиться кассета из композита на фасаде и в раскрое занимает достаточно много времени, так было придумано просто искать в обычном поиске по имени, но сейчас благодаря ув.Dastin как я понял есть уникальный ID каждого обьекта в кореле что значительно упрощает задачу в разы. и прозьба слегка изменить макрос.

For Each S In ActiveSelection.Shapes
n = ActiveSelection.Shapes.Count
S.Name = Int(n * Rnd)
Next S

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

 

[_MBK_]

Ну так там по ссылке пример же был кода

For Each s In ActiveSelection.Shapes
     s.Name = s.StaticID 
    
  Next s

 

[Kramatorii]

Ну так там по ссылке пример же был кода

О, спасибо не увидел ссылки. Благодарю еще всех за помощь