0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
1 | |
Поиск и выделение окружностей одинакового диаметра21.02.2019, 13:35. Просмотров 5416. Ответов 24
Всем добрый день! Надеюсь на вашу помощь с моим вопросом.
Есть изображение состоящее целиком только из окружностей разного диаметра. Нужно найти и выделить все окружности определенного диаметра. Через Поиск и замена- Эллипсы- Указать размер ничего не находит.
0
|
|
21.02.2019, 13:35 | |
есть ли мячи одинакового цвета или диаметра
Узор из 100 окружностей случайного диаметра и цвета |
|
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 53
|
|
21.02.2019, 18:04 | 2 |
У меня находит все эллипсы одного и того же диаметра, если искать объекты, соответствующие выделенному. Но лучше вам скинуть этот файл на форум.
0
|
0 / 0 / 0
Регистрация: 29.12.2017
Сообщений: 5
|
|
21.02.2019, 21:50 | 3 |
В CorelDraw нет поиска кривой по диаметру, радиусу, площади или длине. Не получится сделать то, что вам нужно.
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
||||||
22.02.2019, 08:42 | 4 | |||||
Не вводите людей в заблуждение
Есть штатный функционал выделяете нужный Код
Правка -> Правка и замена -> Найти объекты -> Найти объекты, соответствующие выбранному -> Найти все
В общем, простор для творчества ![]()
1
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
23.02.2019, 01:04 [ТС] | 5 |
Цель состоит не в замене размера или абриса на всех выделенных точках. Каждым диаметрам нужно назначить свой цвет.
НО при команде Найти похожие, выделяются все объекты, без подразделения по размерам. Кидаю оригинальный файл для проб.
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
|
23.02.2019, 10:13 | 6 |
![]() Решение
В вашем случае все точки были выполнены в виде замкнутых кривых с одинаковым числом узлов, что в понятиях Corel'а - одно и тоже не зависимо от их размеров.
Поэтому нужно было использовать предложенный макрос. Кликните здесь для просмотра всего текста
Заменив все кривые на эллипсы аналогичных размеров, поиск (Ctrl+F) начинает работать как надо. Проделал с вашим файлом все вышеописанное, получил нужный результат Если не ошибся, то у вас CorelDraw x4? PS Прошу прощения у de_Facto. Действительно Но кривые можно представить в виде других объектов, который корел различает
1
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
23.02.2019, 15:48 [ТС] | 7 |
Я далек от программирования. Не понял как нужно было раскомметировать эти строки. Добавил ваш макрос целиком по видео из youtube)) При попытке проделать 6 пункт выдает ошибку Invalid outside procedure.
Добавлено через 20 минут В модуль вставил без проблем. Теперь всегда вылетает ошибка Enable to execute vba code while in break mode
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
||||||
23.02.2019, 16:32 | 8 | |||||
значит убрать знаки апострофа вначале этих строк
Кликните здесь для просмотра всего текста
В своем предыдущем посте я выкладывал ваш файл, в котором сделал все необходимое. Вы его смотрели?
0
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
23.02.2019, 20:05 [ТС] | 9 |
Да, конечно, именно так мне и нужно было. Спасибо вам.
Теперь хочу сам все это проделать, ведь работать придется не только с этим изображением. Добавлено через 18 минут Ошибка 438. The object doesnt support this property of layer и указывает на эту строку кода. Добавлено через 15 секунд Ошибка 438. The object doesnt support this property of layer и указывает на эту строку кода. Добавлено через 13 минут Залил видео своих попыток запустить. Надеюсь на вашу помощь новичку) https://youtu.be/B64GeGylNiQ
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
|
23.02.2019, 20:26 | 10 |
Всегда пожалуйста. А еще на форуме для выражения благодарностей есть кнопка "+1 спасибо" под сообщениями и возможность указать лучшие ответы по вашему вопросу.
![]() Данный макрос был написан давно и не вызывал проблем в старых версиях CorelDraw, у меня в CorelDraw 2017 тоже сработал без проблем. Думаю, вам необходимо еще раз проделать все по порядку:
Добавлено через 14 минут Слушайте, мы над разными фалами пытаемся решить одну задачу. Так ведь не делается. Откройте файл из 1111111to4kami+.rar там встроен макрос. Сделайте все вышеописанное. Получается. Видите? А вы производите другие действия: Импортируете из автокадовского (?) в корел, и пытаетесь получить тот же результат. А там кривыми ли импортировалось? Может еще какие-то особенности появились. Тогда выкладывайте все файлы, что бы можно было это изучить и сделать какие-то соображения
1
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
23.02.2019, 20:45 [ТС] | 11 |
Это первое что пришло мне в голову. Если вы уже проделали эту операцию, то макрос тоже должен был остаться там. Но там пусто. Возможно все дело в версии Корела. Установлю 2017 и попробую заново.
Добавлено через 5 минут Программа, которая переводит изображение в точки экспортирует готовый файл только в формате dfx. Который приходится открывать в автокаде, потом сохранять в формате dwg который открsdftn Corel. Другого способа я не нашел. Поэтому такая путаница с кривыми. Добавлено через 50 секунд Программа, которая переводит изображение в точки экспортирует готовый файл только в формате dfx. Который приходится открывать в автокаде, потом сохранять в формате dwg который открsdftn Corel. Другого способа я не нашел. Поэтому такая путаница с кривыми.
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
|
23.02.2019, 20:50 | 12 |
скачал файл, макрос на месте, все работает. Видимо X4 их не видит. + может быть в Х4 что-то по другому было устроено (объектная модель другая, или еще что).
Добавлено через 3 минуты DXF ? По крайней мере последние версии Corel стали дружить с кадовскими файлами (DXFи DVG открывает напрямую) и меньше конфликтов вызывают. Выкладывайте кадовский файл, посмотрим как его в кореле обрабатывать
1
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
23.02.2019, 20:57 [ТС] | 13 |
Кидаю первый прямой сейв
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
|
23.02.2019, 21:15 | 14 |
![]() Решение
У меня никаких проблем с заменой кривых на эллипсы не возникло.
Создал пустой документ, перетащил файл Izobrajenie.dxf в поле документа, нажал ОК. Разгруппировал объекты, в VBA (Alt+F11) создал новый модуль, вставил макрос. В поле документа создал эллипс - Ctrl+C - выделил все кривые - запустил макрос - с минуту молчания и все готово. Прикрепляю файл в формате Corel Draw 2017 с макросом и результатом
1
|
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 53
|
||||||
24.02.2019, 11:10 | 15 | |||||
Господа, я нашел более простое решение, скрипт просто перекрашивает каждый круг в цвет, который "создается из размера":
1
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
24.02.2019, 14:20 [ТС] | 16 |
Спасибо, у меня все получилось. НЕ думал что найду решение этой проблемы, вы мне очень помогли.
Добавлено через 3 минуты Это инетересно, хотя пока не очень понятно. Первый метод мне очень подходит.Хотя часто Corel закрывается сам собой.
0
|
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 53
|
|
24.02.2019, 14:36 | 17 |
Смысл в том, что два круга, которые в вашем файле имеют размер 1,952 мм при переводе в пункты могут быть 5,534 п. и 5,535 п. Т.е. не одного и того же размера, очень немного, но различаться.
А вам это нужно для гравировки какой-то или растрирование для какой-то печати? Если так, то имхо, должны быть другие технологии цветоделения и растрирования, нежели кореловские макросы.
0
|
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 8
|
|
24.02.2019, 14:51 [ТС] | 18 |
Нет, это для перфарирования металла, для ручной гравировки. Поэтому идеальные размеры не обязательны. Главное цвет.
0
|
224 / 135 / 41
Регистрация: 26.01.2019
Сообщений: 489
|
||||||
24.02.2019, 16:14 | 19 | |||||
Хороший вариант для автоматизации перекрашивания
![]()
1
|
12 / 12 / 0
Регистрация: 09.02.2014
Сообщений: 53
|
|||||||||||
24.02.2019, 17:10 | 20 | ||||||||||
Вот собственно об этом и думал. Обычно в станках лазерной гравировки разный цвет используется для разных режимов мощности и скорости.
Только есть два нюанса: 1. Без обновления экрана не создается палитра документа внизу. А ее можно использовать для выделения посредством поиска и замены. Но можно и тут что другое придмуать. 2.
0
|
24.02.2019, 17:10 | |
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь. Начертить 100 окружностей случайного диаметра и цвета
Вывести на экран узор из 100 окружностей случайного диаметра и цвета Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |