> Автор: ssv22
> Добрый всем день!
> Вопрос такой:
> как средствами VB "вытащить" параметры предварительно выбранного
> размера Corela: тип р-ра и главное само значение(число) , (мне главное
> число, ну и тип не помешает), чтобы потом можно было проводить с ним
> матем. операции. Никак не получается!

Не совсем понял, какие такие параметры предварительно выбранного размера?

>
> Сам-то я пишу на VB к SolidWorks`y и Оффису(word, эксел).
> А тут прямо ну никак :-(
> Было-бы ненеплохо, если-бы VB сам сканировал лист Corela, выбирал
> размеры и далее.

Выбирал размеры и далее чего?

на каждем Page есть коллекция Shapes которая содержит информацию о каждом
объекте на странице

> Если не к размерам, то хотя-бы к другим примитивам. Но тут нужно,
> чтобы определялся тип примитива.

В Corel открой редактор VBA и там напиши Shape и на ней F1 и по ней почитай
справку и посмотри примеры. Еще в папке куда устанавливался Corel есть 2
pdf-файла с объектной моделью Corel Draw и Corel Photo-Paint найди их и
по-изучай :)

>
> Сам-то Corel вроде я научился подключать, но тоже было-бы неплохо
> узнать мнение специалистов (я имею ввиду саму инициализацию: открыть лист
> CORELa и тд.).

Какое мнение интересует?

> Какие-нибудь спецбиблиотеки нужно подлючать в парметрах самого VB?
В Referens нужно найти в списке запись о Corel Draw и поставить возле неё
птичку. После чего переменные можно будет объявлять сразу целевого типа

>
> Заранее благодарен!

Да пока не за что ;)

Posted via ActualForum NNTP Server 1.4

> Автор: ssv22
> >Не совсем понял, какие такие параметры предварительно выбранного
> размера?
> параметры: - горизонтальный, вертикальный наклонный,
> префикс, суффикс и само число(значение) рамера - больше ничего мне не
> надо
> Вообще-то главное число, остальное я сам сделаю.

Опять ничего не понял :( там две координаты, Top и Left. Плюс у объекта есть
Width и Height. никаких параметров там нет. Что тебе нужно считать?
>
> Я просто еще не разобрался с механизмом выбора объектов в Corele, а
> работа "горит" :-)


> Было-бы ненеплохо, если-бы VB сам сканировал лист Corela, выбирал
> размеры и далее.
>
> >Выбирал размеры и далее чего?
>
> Далее я их "обрабатываю", хотя-бы в Эксель пересылаю... или умножаю
> на число 2 или 3...
Цикл выше перебирает все объекты страницы и печатает координаты левого
верхнего угла
Можно и в ексел перегнать, не проблема. Только я спрашивал о конечной цели
этого сканирования и обработки.
>
> >на каждем Page есть коллекция Shapes которая содержит информацию о
> каждом
> >объекте на странице
>
> Дык вот, мне-бы примерчик кода выбора хотя-бы любого примитива.

см. выше

> В VBА в SolidWorks`e как-то попонятнее все, а тут ...
>
> >В Corel открой редактор VBA и там напиши Shape и на ней F1 и по ней
> почитай
> >справку и посмотри примеры. Еще в папке куда устанавливался Corel
> есть 2
> >pdf-файла с объектной моделью Corel Draw и Corel Photo-Paint найди
> их и
> >по-изучай :)
>
> Открывал, изучал, мнение - безобразно сделанно. Вы не видели help по
> API к Solid`y!

Не видел, ничего сказать не могу. НО после офиса довольно легко освоил
корел, основная заковыка была в перестройке мышления на другую объектную
модель. Хотя аналогии провести можно, не нужно забывать что это не офис :)

> Объекты, методы, события, параметры, пример - все ясно, а тут так все
> "наворочено" ...

:D Это для первого взгляда так кажется, потом будет период, когда хочется
бится головой об стенку от недостатка информации в хелпе, а потом начинаешь
понимать и просто делаешь что нужно :)

>
> > Сам-то Corel вроде я научился подключать, но тоже было-бы неплохо
> > узнать мнение специалистов (я имею ввиду саму инициализацию:
> открыть лист
> > CORELa и тд.).
>
> >Какое мнение интересует?
>
> Вот пока что накропал: (отрисовка эллипса и др? это в МИ не VBA)
> результат - "Cdraw1.exe"
>
> '--------------------
> Dim cDraw As CorelDRAW.Application
> Dim curDoc As Document
>
> Set cDraw = CreateObject("CorelDRAW.Application.12")
> cDraw.Visible = True
Можно или не показывать, если предполагается большое количество изменений
делать на странице, или использовать свойство, не помню как называется, в
Екселе аналог ScreenUpdating

> Set curDoc = cDraw.ActiveDocument
Если нужно открыть существующий тогда код будет таким:
Set curDoc = cDraw.Documents.Open sPathToFile

> '--------------------
>
> indL = 1
> On Error Resume Next
>
.......
> ActiveDocument.ClearSelection 'OK!
> End Sub
>
> Тут, конечно, много лишнего...
>
> Думаю объекты другого типа создаются по такому-жк методу, а меня
> интеремует выбор существующих: как они выбираются -или их надо
> предварительно "мышкой" замаркировать
>
> Вот меня интересует:
> первая часть правильная - инициализиця Corela (это где отчеркнуто
> знаками "-----")
> потом там создаие текста, эллипса м др.
> Но это на пустом листе!
>
> А мне нужно открыть определенные файл Corela и выбрать там все
> размеры(их значения).
> Вот с этим никак не могу разобраться :-(

Ну примерно можно сделать так:


> Поэтому мне хотелось бы пример кода выбора, если не размера, то
> хотя-бы другого УЖЕ существующего объекта(ов).
> Я вот не пойму: у примитива Corela есть ли какой-либо идентификатор.
Есть, но испоьзовать его проблемно, т.к. зависит от того в какой коллекции
ищешь :) поэтому не ищи такой идентификатор
>
> В SolidWorks`e при создании объекта, ему присваевается уникальный
> идентификатор и я могу с ним оперировать...

:)

>
> Но сейчас дело проще: открыть НЕпустой файл Corela и выбрать там хоть
> бы один размер.
> Дальше я уж я сам...

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

Удачи

Posted via ActualForum NNTP Server 1.4

> Автор: ssv22
> >Все же если ты опишешь что ты хочешь получить по итогу, возможно и
> помощь будет >плодотворнее
>
> >>Вообще-то главное число, остальное я сам сделаю.
>
> >Опять ничего не понял :( там две координаты, Top и Left. Плюс у
> объекта есть
> >Width и Height. никаких параметров там нет. Что тебе нужно считать?
>
> Ну что-же тут непонятного:
> когда я сам проставляю размер в Corele - первая точка, вторая точка,
> положение размерного текста. Итого ТРИ точки! Далее Corel сам проставляет
> размерный текст. Вот он-то мне и нужен. Еще точка положения размерного
> текста. Уже Четыре точки.

Вот здесь я не совсем понял, ты случаем не AutoCAD имееш в виду???
Объект(Shape) в корел имеет четыре параметра определяющие прямоугольник
расположения на листе. В зависимости от типа(геом. фигура, текст)
объекта(Shape) можно получить дополнительные параметры. В том числе для
шрифта, похожая объектная модель и в офисе, но по размеру шрифта, по моему,
напрямую нельзя получить размер надписи :)
>
> А если еще взять параметры текста - шрифт, высота... Да тут "куча"
> параметров! И это для одного объекта "Размер".

Нет такого объекта
>
> Потом, когда я ведь просто мышкой открываю тулбар Размеров - там же
> есть четыре! типа размеров: опять же горизонтальный, вертикальный,
> наклонный, авто и еще что-то. Вот эти типы в VBA никак не определяются?
> По-моему должен быть какой-то параметр или флаг, отвечающий за это дело...

Вот здесь не смотрел, посмотрю, но у меня возможность посмотреть в 11
кореле, а они отличаются немного :(

>
> Вот, для начала, мне хоть-бы размерный текст вытащить. Если это
> строка, я надеюсь, ее можно будет преобразовать в численный формат.
> Дело в том, что дальнейшая оперция (математическая) зависит от
> ориентации размера.
> Ну допустим если это горизонтальный р-р, то р/текст остается без
> изменений, если наклонный - р/текст умножается на некоторое число.
> В будущем, я вижу, вообще передать определенным образом эти данные в
> SolidWorks и он сам построит нормальную 3D-модель/деталь.

Так бы сразу и сказал, что хочешь получить из чертежа 3D модель, может лучше
в АвтоКАД? Там были серьёзные построители этого дела ещё лет 5 назад, а за
это время я думаю продвинулось ещё дальше

>
> Вот, например в SolidWorks когда пишешь программу вызываешь оператор
> SelectByName, в котором указываешь что выбирать: ребра, грани, просто
> линии и тд.

CorelDRAW это программа создания и обработки векторных ИЗОБРАЖЕНИЙ . И
она совсем не приспособленна для создания чертежей, поэтому у тебя возникли
такие сложности

>
> Вот мне и нужно выбрать все размеры на чертеже и обработать их
> определенным образом.

Если не сложно и не коммерческая тайна, сбрось мне примерный файлик на мыло
из профиля, с пожеланиями какую информацию нужно достать. Только сохрани для
11 версии .

> Каким? Зависит от того какой размер: горизонтальный, вертикальный и
> тд.

Ну это теперь понятно :)

Posted via ActualForum NNTP Server 1.4