Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Длина линий векторной картинки 
:(
    Опции темы
stmamont
Дата 4.5.2005, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 343
Регистрация: 13.3.2004
Где: влг

Репутация: нет
Всего: 3
Есть монохромная векторная картинка в corel draw. как можно найти общую длину черных линий (кривых)?
Что можно использовать? И вообще это возможно?


--------------------
user posted image
PM MAIL ICQ   Вверх
stmamont
Дата 4.5.2005, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 343
Регистрация: 13.3.2004
Где: влг

Репутация: нет
Всего: 3
corel draw 12


--------------------
user posted image
PM MAIL ICQ   Вверх
stmamont
Дата 5.5.2005, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 343
Регистрация: 13.3.2004
Где: влг

Репутация: нет
Всего: 3
Я так понял CorelScript.GetCurveLength()
Возвращает длину линии..
А как мне узнать длину всех линий? т.е. пробежаться по всем линиям?


--------------------
user posted image
PM MAIL ICQ   Вверх
LSD
Дата 8.5.2005, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15719
Регистрация: 24.3.2004
Где: Dublin

Репутация: 5
Всего: 538
Вот скрипт который пробежится по всем кривым в текущем документе, на текущей странице и просуммирует длинну:
Код
Sub TotalLengthMacro()

  Dim CurrentShape
  Dim Length
  Length = 0
  For Each CurrentShape In ActiveDocument.ActivePage.Shapes
    Length = Length + CurrentShape.Curve.Length
  Next
  Length = Length * 25.4
  MsgBox "Length = " & Length & " mm"
  
End Sub

в принципе его можно доработать и для всех листов и всех документов если надо.
Правда есть одно но: не для всех объектов можно получить их длинну, иногда выдается ошибка. Я так и не понял для каких можно, а для каких нет, для простых кривых можно это точно.

Это сообщение отредактировал(а) LSD - 10.5.2005, 10:26


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
stmamont
Дата 10.5.2005, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 343
Регистрация: 13.3.2004
Где: влг

Репутация: нет
Всего: 3
Я сделал пробежаться по всем кривым в ActiveSelection
Все остальное так же.
И тож не понял когда считает а когда нет.


--------------------
user posted image
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
December DezmASter
z-END Caramel
  • Старайтесь изложить проблему как можно ясней.
    Как показывает статистика, на один понятный вопрос приходится три правильных ответа.

  • Лучше один раз увидеть, чем сто раз услышать.
    Прикрепляйте к сообщению иллюстрации. Если не знаете как это сделать посмотрите здесь: "Как вставлять картинки?"

  • Как вы спросите - так вам и ответят. Будьте вежливы.

и последнее: форум фотошоп предназначен для того, чтобы учиться. Топики с просьбами "сделайте мне" будут удаляться в раздел

работа

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, DezmASter, z-END, Caramel.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Photoshop, Illustrator, Corel и т.п. | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0566 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.