[CDR 2017-2021] инструмент "ПОИСК": найти пунктирные кривые

  • Автор темы Автор темы trimers
  • Дата начала Дата начала
T

trimers

Участник
Топикстартер
Сообщения
10
Реакции
0
Доброго времени суток!
Есть файл с большим количеством кривых одного цвета и толщины отличающиеся только стилем линий (сплошные, пунктирные и шрихпунктирные). Нужно найти только пунктирные линии и поменять им стиль на сплошной. Стандартный ПОИСК, увы, выделяет все линии. Все макросы, которые я находил в инете выбирают только по цвету. Можно ли это сделать автоматически?
 
trimers сказал(а):
Можно ли это сделать автоматически
Нажмите, чтобы раскрыть...
надо делать запрос на СТИЛЬ аутлайна, если аутлайн есть и если он не сплошной - то сделать его таковым
например
Код: 
Sub Test10()
  Dim s As Shape
  For Each s In ActivePage.Shapes
    If s.Outline.Type = cdrOutline Then
      If s.Outline.Style.Index <> 0 Then
        s.Outline.Style = OutlineStyles(0)
      End If
    End If
  Next s
End Sub
 
  • Спасибо
Реакции: trimers
То же самое одной строкой, в клипы не залезает, как и предыдущий:
Код: 
Sub NoDotDash()
  ActivePage.Shapes.FindShapes(Query:="@outline[.type = 'dot-dash']").SetOutlineProperties , OutlineStyles(0)
End Sub
 
  • Спасибо
Реакции: trimers и dastin
dastin сказал(а):
надо делать запрос на СТИЛЬ аутлайна, если аутлайн есть и если он не сплошной - то сделать его таковым
например
Код: 
Sub Test10()
  Dim s As Shape
  For Each s In ActivePage.Shapes
    If s.Outline.Type = cdrOutline Then
      If s.Outline.Style.Index <> 0 Then
        s.Outline.Style = OutlineStyles(0)
      End If
    End If
  Next s
End Sub
Нажмите, чтобы раскрыть...

СПАСИБО!!!
С пунктирными линиями справляется на отлично!
А со шрихпунктиными не работает :(. Точнее если If s.Outline.Style.Index = 0 то меняет и сплошные и штрихпунктирные
Вопрос как запросить значение стиля аутлайна
 
как обычно, не полное ТЗ :). Есть pdf-файл с выкройками. Файл импортируется в корел. Для дальнейшей вырезки на плоттере нужно каждому типу линий присвоить отдельный цвет и сделать линии сплошными. :(
как поменять цвет я сообразил: s.Outline.Color = CreateCMYKColor(100, 0, 100, 0). Файл
 
trimers сказал(а):
Вопрос как запросить значение стиля аутлайна
Нажмите, чтобы раскрыть...


Запросить можно
Код: 
    If s.Outline.Type = cdrOutline Then
      i =  s.Outline.Style.Index
      MsgBox i
    End If
получите что-нибудь из диапазона - 0( сплошной) и далее вниз 1, 2, 3 ... до 28 ( можно ещё создавать и сохранять свои)
119595

Что вам это даст? Это просто число ...
 
dastin сказал(а):
Запросить можно
Код: 
    If s.Outline.Type = cdrOutline Then
      i =  s.Outline.Style.Index
      MsgBox i
    End If
получите что-нибудь из диапазона - 0( сплошной) и далее вниз 1, 2, 3 ... до 28 ( можно ещё создавать и сохранять свои)

Что вам это даст? Это просто число ...
Нажмите, чтобы раскрыть...
Нужно придумать алгоритм создания нового цвета, типа:
Код: 
If s.Outline.Style.Index <> 0 Then
' здесь придумать функцию алгоритм формирования цвета
newcolr=functionNewColorArray(s.Outline.Style.Index)

       s.Outline.Color = CreateCMYKColor(newcolr(0), newcolr(1), newcolr(2), newcolr(3))
        s.Outline.Style = OutlineStyles(0)
      End If
 
trimers сказал(а):
Есть pdf-файл с выкройками. Файл импортируется в корел.
Нажмите, чтобы раскрыть...
не факт, что каждую такую линию Corel примет как родную ... это же его единоутробные стили ...
каждый имеет вполне определенные параметры - типа ...
.Style.DashCount = 2
.Style.DashLength(1) = 1
.Style.DashLength(2) = 10
.Style.GapLength(1) = 4
.Style.GapLength(2) = 4
а что там из ПДФ прилетит - да кто же его знает - возможно будет группа из кривых или комбинированная кривая со стилем 0 - Corel даже здороваться к ней не подойдёт
 
Последнее редактирование:
Вот они визуально эти параметры
119596


а вот что из пдф может быть
119597
 
dastin сказал(а):
Запросить можно
Код: 
    If s.Outline.Type = cdrOutline Then
      i =  s.Outline.Style.Index
      MsgBox i
    End If
получите что-нибудь из диапазона - 0( сплошной) и далее вниз 1, 2, 3 ... до 28 ( можно ещё создавать и сохранять свои)

Вылетает с ошибкой Run-time error '424'
119598
Нажмите, чтобы раскрыть...
 
dastin сказал(а):
не факт, что каждую такую линию Corel примет как родную ... это же его единоутробные стили ...
каждый имеет вполне определенные параметры - типа ...
.Style.DashCount = 2
.Style.DashLength(1) = 1
.Style.DashLength(2) = 10
.Style.GapLength(1) = 4
.Style.GapLength(2) = 4
а что там из ПДФ прилетит - да кто же его знает - возможно будет группа из кривых или комбинированная кривая со стилем 0 - Corel даже здороваться к ней не подойдёт
Нажмите, чтобы раскрыть...
Похоже Вы правы
 
Если файл изначальный в pdf, то его надо и обработать в Illustrator. Определить параметры каждого Dash и перекрасить.
 
dastin сказал(а):
Вот они визуально эти параметры
Посмотреть вложение 119596

а вот что из пдф может быть
Посмотреть вложение 119597
Нажмите, чтобы раскрыть...
да, бывает и так, что каждый штрих передается как отдельный прямоугольник с заливкой, но в моем случае это кривые с со стилем линии. И, мне кажется, нужно выяснить средствами VBA эта линия отличается от сплошной и выбрать остальные с такими же параметрами
 
trimers сказал(а):
Увы, Illustrator я не знаю
Нажмите, чтобы раскрыть...
Получается надо перебрать все линии на параметры dash и занести данные в массивы.
Типа так:
создаются два массива: массив параметров и массив линий.
Берете параметры dash записываете их в строку, типа
.Style.DashCount & "-" & .Style.DashLength(1) & "-" & .Style.DashLength(2) . и .т.д
сравниваете с массивом параметров, если есть похожая строка, то узнаете ее индекс и добавляете ссылку с индексом в массив линий, типа Array(sh, index)
Если нет в массиве параметров строки, то добавляете ее в этот массив и запоминаете индекс. Потом тоже самое: добавляете ссылку с индексом в массив линий, типа Array(sh, index).
В результате у вас будут два массива. Вас интересует второй. В нем каждый элемент отдельный массив, в котором первый элемент ссылка на объект линию, а второй индекс.
Перебираете массив и по индексу меняете цвет и тип линии. Количество индексов -- это размер первого массива, столько цветов вам надо назначить.
 
lipatkin сказал(а):
Получается надо перебрать все линии на параметры dash и занести данные в массивы.
Типа так:
создаются два массива: массив параметров и массив линий.
Берете параметры dash записываете их в строку, типа
.Style.DashCount & "-" & .Style.DashLength(1) & "-" & .Style.DashLength(2) . и .т.д
сравниваете с массивом параметров, если есть похожая строка, то узнаете ее индекс и добавляете ссылку с индексом в массив линий, типа Array(sh, index)
Если нет в массиве параметров строки, то добавляете ее в этот массив и запоминаете индекс. Потом тоже самое: добавляете ссылку с индексом в массив линий, типа Array(sh, index).
В результате у вас будут два массива. Вас интересует второй. В нем каждый элемент отдельный массив, в котором первый элемент ссылка на объект линию, а второй индекс.
Перебираете массив и по индексу меняете цвет и тип линии. Количество индексов -- это размер первого массива, столько цветов вам надо назначить.
Нажмите, чтобы раскрыть...
Наверное я не совсем точно выразился. в файле есть сплошные, пунктирные и шрих-пунктирные линии. Нужно сначала выбрать все пунктирные линии , назначить им цвет красный и поменять тип линии на сплошной. Потом выбрать все штрих-пунктирные линии , назначить им цвет зеленый и поменять тип линии на сплошной.
Вариант предложенный dastin идеально работает, но только для пунктирных
 
trimers сказал(а):
но только для пунктирных
Нажмите, чтобы раскрыть...
можно пример в студию - кореловский файл запакованный в архив - загрузить сюда и ссылку в ветку
- с пунктирными и штрих-пунктирными линиями - весь макет не надо ... наверное :)
- только примеры ?
 
можно найти все сплошные - покрасить - сгруппировать - заблокировать
потом пунктирные - тоже покрасить - сгруппировать - заблокировать
останутся - штрих-пунктирные :)
 
dastin сказал(а):
можно пример в студию - кореловский файл запакованный в архив - загрузить сюда и ссылку в ветку
- с пунктирными и штрих-пунктирными линиями - весь макет не надо ... наверное :)
- только примеры ?
Нажмите, чтобы раскрыть...
конечно!!! я уже прикреплял архив но не выделил его
 
Последнее редактирование:
Для ответа нужно войти/зарегистрироваться
Верх Низ