Форум программистов, компьютерный форум, киберфорум
CorelDRAW
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.57/21: Рейтинг темы: голосов - 21, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
1

Поиск и выделение окружностей одинакового диаметра

21.02.2019, 13:35. Просмотров 4310. Ответов 24

Всем добрый день! Надеюсь на вашу помощь с моим вопросом.

Есть изображение состоящее целиком только из окружностей разного диаметра. Нужно найти и выделить все окружности определенного диаметра.
Через Поиск и замена- Эллипсы- Указать размер ничего не находит.
0
Миниатюры
Поиск и выделение окружностей одинакового диаметра  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2019, 13:35
Ответы с готовыми решениями:

есть ли мячи одинакового цвета или диаметра
помогите пожалуйста решить через цикл ПОКА: Дано N мячей. Имеются сведения о диаметре и цвете...

Выясните есть ли мячи одинакового цвета или диаметра
В детском саду есть N мячей. Имеются сведения о диаметре и цвете каждого мяча. Выясните: а) есть...

Выясните, есть ли мячи одинакового цвета или диаметра
В детском саду есть N мячей. Имеются сведения о диаметре и цвете каждого мяча. Выясните: а) есть...

Узор из 100 окружностей случайного диаметра и цвета
%-)Написать программу, которая выводит на экране узор из 100 колец случайного диаметра, толщины и...

24
168 / 94 / 24
Регистрация: 26.01.2019
Сообщений: 327
24.02.2019, 17:31 21
Цитата Сообщение от Fllex Посмотреть сообщение
Без обновления экрана не создается палитра документа внизу
А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов... За это время, ручками макросом замены на эллипсы и Ctrl+F одинаковых, можно с десяток таких изображений перекрасить.
Цитата Сообщение от Fllex Посмотреть сообщение
Нужно учесть, что получаемое в этом случае значение выходит за 255
По-хорошему много чего нужно предусмотреть. Что код имеет окончательный вид не утверждал.
В идеале нужно каждый эллипс окрашивать в определенный цвет в соответствии с размерным рядом свёрел/штихелей.
А стоит ли такая задача?
0
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 51
24.02.2019, 17:54 22
Цитата Сообщение от GeoCod Посмотреть сообщение
А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов...
Ну не знаю. Перекрашивание 4х картинок из первого сообщения заняло около минуты, а это больше 9000 объектов. Но замена вместо перекрашивания однозначно быстрее в несколько раз, признаю. А как в новых версиях корела с многопотоком? Как и раньше - лучше запустить несколько экземпляров, или лучше?
0
168 / 94 / 24
Регистрация: 26.01.2019
Сообщений: 327
24.02.2019, 19:06 23
Цитата Сообщение от Fllex Посмотреть сообщение
Перекрашивание 4х картинок из первого сообщения заняло около минуты, а это больше 9000 объектов.
Про 2 часа - это я погорячился. Первый раз когда запускал показалось что на один объект уходило больше времени.
Сейчас сделал точный замер. На перекрашивание 2346 объекта, из этого сообщения, ушло 311,4 секунд - 0,133 сек/объект.
Цитата Сообщение от Fllex Посмотреть сообщение
А как в новых версиях корела с многопотоком?
Честно говоря, не могу оценить его многопоточность. Не приходится использовать весь его функционал. То что я каждый день держу открытым от 2 до 5 файлов с большим количеством различных объектов - да, то что ничего нигде не виснет - да, но у меня и виснуть по сути нечему.
0
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 51
25.02.2019, 17:46 24
Цитата Сообщение от GeoCod Посмотреть сообщение
На перекрашивание 2346 объекта, из этого сообщения, ушло 311,4 секунд - 0,133 сек/объект.
У меня - около 12 секунд. Если отключить обновление - около 3-4 секунд. Корел 17 версии. 64 или 32 бит - нет разницы.
0
3 / 2 / 1
Регистрация: 02.11.2016
Сообщений: 110
05.03.2019, 15:46 25
Цитата Сообщение от Shtaked Посмотреть сообщение
Нужно найти и выделить все окружности определенного диаметра.
Всем привет, не знаю еще актуально или нет, накидал не большой макрос.
Выделяете искомый объект, запускаете макрос, все объекты с такими же размерами автоматически выделяются, потом можно их перекрасить, не снимая выделения

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Shapes1()
 
    ActiveDocument.Unit = cdrMillimeter
    
    Dim h As Double
    Dim w As Double
    
    Dim s As Shape
    
    Dim sr As New ShapeRange
    Dim sr2 As New ShapeRange
 
    Set s = ActiveSelection
    Set sr = ActiveDocument.ActiveLayer.Shapes.all
    
    h = Round(s.SizeHeight, 2)
    w = Round(s.SizeWidth, 2)
    
    For i = 1 To sr.count
        If Round(sr(i).SizeHeight, 2) = h And Round(sr(i).SizeWidth, 2) = w Then
            sr2.Add sr(i)
        End If
    Next
    
    sr2.CreateSelection
    
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2019, 15:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Начертить 100 окружностей случайного диаметра и цвета
Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и...

Вывести на экране узор из 5 концентрических окружностей различного диаметра и цвета
4.Написать программу, которая вычерчивает на экране узор из 5 концентрических окружностей...

Как нарисовать на форме 100 окружностей случайного диаметра и цвета?
Ребята, объясните каким образом можно реализовать подобное в C#. Никогда не работал с такими...

Вывести на экран узор из 100 окружностей случайного диаметра и цвета
Составить программу, которая выводит на экран узор из 100 окружностей случайного диаметра и цвета


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.