Здравствуйте. Необходимо обрезать несколько замкнутых кривых другим объектом, пользуюсь функцией "подгонка", но на выходе нужно получить разомкнутые линии в месте обрезания (чтобы концы не соединялись, а повисли в воздухе). С заведомо разомкнутыми всё работает как нужно. Подскажите как решить проблему?
[CDR 2017-2021] Обрезать несколько замкнутых объектов другим объектом
- Автор темы Nameless950
- Дата начала
- Сообщения
- 33 703
- Реакции
- 11 004
Переведите пожалуйста с надмозгового на язык здорового человека что есть
Кэп советует разомкнуть контур и обрезать
Что кэп посоветует сделать с тысячей таких контуров? Оптимального решения не нашел
П.с.: "подгонка" это встроенная функция корела из серии "объединение, подгонка, пересечение, упрощение, передние минус задние" и т.д.
Последнее редактирование:
- Сообщения
- 33 703
- Реакции
- 11 004
Разомкнуть-скомбинировать(сгруппировать)-обрезать-раскомбинировать(разгруппировать)
А, понятно, "подгон" в кореле здорового человека, вероятно, называется Trim
Можно какой-то командой разомкнуть все замкнутые кривые?
Если нельзя, то как из тысячи кривых на слое выделить только замкнутые, чтобы потом отдельно каждую разомкнуть?
Оптимально было бы конечно комплексно решить проблему без ручной работы, ибо объем работы большой. В голову приходит идея перевода кривой в множество кривых каким-то макросом, а потом уже обрезание этих кривых, но подобного макроса найти не могу, а написать не берусь, ибо 0 опыта в макросах.
- Сообщения
- 33 703
- Реакции
- 11 004
Вот, наконец, наступил момент истины и вы сами (почти) пришли к правильной формулировке топикового вопроса
Примерно как то так
Код:
Sub unclose()
Dim sh As Shape
For Each sh In ActivePage.FindShapes(Type:=cdrCurveShape)
sh.Curve.Closed = False
Next sh
End Sub
- Сообщения
- 2 294
- Реакции
- 2 205
Спасибо, очень помогли. Разобрался, как и указали за вами - VSTA у меня. Проверил, работает. Благодарю