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

@Shtaked · Регистрация: 21.02.2019

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

Есть изображение состоящее целиком только из окружностей разного диаметра. Нужно найти и выделить все окружности определенного диаметра.
Через Поиск и замена- Эллипсы- Указать размер ничего не находит.

@GeoCod · 24.02.2019, 17:31

Сообщение от Fllex

Без обновления экрана не создается палитра документа внизу

А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов... За это время, ~~ручками~~ макросом замены на эллипсы и Ctrl+F одинаковых, можно с десяток таких изображений перекрасить.

Сообщение от Fllex

Нужно учесть, что получаемое в этом случае значение выходит за 255

По-хорошему много чего нужно предусмотреть. Что код имеет окончательный вид не утверждал.
В идеале нужно каждый эллипс окрашивать в определенный цвет в соответствии с размерным рядом свёрел/штихелей.
А стоит ли такая задача?

@Fllex · 24.02.2019, 17:54

Сообщение от GeoCod

А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов...

Ну не знаю. Перекрашивание 4х картинок из первого сообщения заняло около минуты, а это больше 9000 объектов. Но замена вместо перекрашивания однозначно быстрее в несколько раз, признаю. А как в новых версиях корела с многопотоком? Как и раньше - лучше запустить несколько экземпляров, или лучше?

@GeoCod · 24.02.2019, 19:06

Сообщение от Fllex

Перекрашивание 4х картинок из первого сообщения заняло около минуты, а это больше 9000 объектов.

Про 2 часа - это я погорячился. Первый раз когда запускал показалось что на один объект уходило больше времени.
Сейчас сделал точный замер. На перекрашивание 2346 объекта, из этого сообщения, ушло 311,4 секунд - 0,133 сек/объект.

Сообщение от Fllex

А как в новых версиях корела с многопотоком?

Честно говоря, не могу оценить его многопоточность.

Не приходится использовать весь его функционал. То что я каждый день держу открытым от 2 до 5 файлов с большим количеством различных объектов - да, то что ничего нигде не виснет - да, но у меня и виснуть по сути нечему.

@Fllex · 25.02.2019, 17:46

Сообщение от GeoCod

На перекрашивание 2346 объекта, из этого сообщения, ушло 311,4 секунд - 0,133 сек/объект.

У меня - около 12 секунд. Если отключить обновление - около 3-4 секунд. Корел 17 версии. 64 или 32 бит - нет разницы.

@Dimson_ · 05.03.2019, 15:46

Сообщение от Shtaked

Нужно найти и выделить все окружности определенного диаметра.

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

Visual Basic

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

@Fllex 12 / 12 / 0 Регистрация: 09.02.2014 Сообщений: 51
	24.02.2019, 17:54	22
	Сообщение от GeoCod А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов... Ну не знаю. Перекрашивание 4х картинок из первого сообщения заняло около минуты, а это больше 9000 объектов. Но замена вместо перекрашивания однозначно быстрее в несколько раз, признаю. А как в новых версиях корела с многопотоком? Как и раньше - лучше запустить несколько экземпляров, или лучше? 0

@Shtaked 0 / 0 / 0 Регистрация: 21.02.2019 Сообщений: 8
		1
	Поиск и выделение окружностей одинакового диаметра 21.02.2019, 13:35. Просмотров 4310. Ответов 24 Метки coreldraw, vba (Все метки) Всем добрый день! Надеюсь на вашу помощь с моим вопросом. Есть изображение состоящее целиком только из окружностей разного диаметра. Нужно найти и выделить все окружности определенного диаметра. Через Поиск и замена- Эллипсы- Указать размер ничего не находит. 0 Миниатюры

@GeoCod 168 / 94 / 24 Регистрация: 26.01.2019 Сообщений: 327
	24.02.2019, 17:31	21
	Сообщение от Fllex Без обновления экрана не создается палитра документа внизу А с обновлением перекрашивание, почти 7000 объектов, займет около 2 часов... За это время, ~~ручками~~ макросом замены на эллипсы и Ctrl+F одинаковых, можно с десяток таких изображений перекрасить. Сообщение от Fllex Нужно учесть, что получаемое в этом случае значение выходит за 255 По-хорошему много чего нужно предусмотреть. Что код имеет окончательный вид не утверждал. В идеале нужно каждый эллипс окрашивать в определенный цвет в соответствии с размерным рядом свёрел/штихелей. А стоит ли такая задача? 0

@GeoCod 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

@Fllex 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

Опции темы