[TiDi]

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

Задача: считать поле текста над блоком и записать это в атрибуты этого блока.

Как я понял, средствами VBA одного здесь не обойдешься, придется лезть в lisp :'(

dwg прилагаю

Буду рад полезным комментариям и помощи

[trir]

не занимайся извращениями - изучай FDO

придется лезть в lisp

не стоит

[Кулик Алексей aka kpblc]

Может, проще будет потребовать у пользователя указать поле и отдельно - блок?

[TiDi]

trir, уже начал на VBA колдовать, на FDO сложно и энергозатратно, если бы на работе заплатили за эту автоматизацию, я бы с большей охотой окунулся в новую тему)

[TiDi]

Кулик Алексей aka kpblc, нельзя, деревьев может быть >10000

[trir]

деревьев может быть >10000

тебе явно дерево понадобится

[Сергей812]

Сообщение от TiDi нельзя, деревьев может быть >10000

откуда это все появляется?

ну и даже 10000, если пользователь выделил два последовательно объекта - мультитекст и блок, либо секущей рамкой - экономится время на вызов копирования значения мультитекста (с панели свойств или заходя в сам текст), вызов диалога модификации атрибутов блока (ввод значения с подтверждением) - заметно быстрее будет. И это можете на VBA написать, если он знаком уже.

[TiDi]

Сообщение от Сергей812 откуда это все появляется? ну и даже 10000, если пользователь выделил два последовательно объекта - мультитекст и блок, либо секущей рамкой - экономится время на вызов копирования значения мультитекста (с панели свойств или заходя в сам текст), вызов диалога модификации атрибутов блока (ввод значения с подтверждением) - заметно быстрее будет. И это можете на VBA написать, если он знаком уже.

В файле .xls, откуда вставляется блок, записаны координаты вставки, атрибуты по каждому дереву. Файл получаем от геодезистов.

Как мне представляется последовательность блоков программы:

1. Для каждого блока (дерева) выделить поле МТекст, расположенное в координатах (x+Nx;y+Ny;z), где x,y,z - координаты самого блока, а N - поправка на положение поля МТекст. ВАЖНО: текстовое поле вставляется программно и всегда находится на одном и том же месте, относительно блока

2. Присвоить переменной "a" значение текстового поля

3. Обратиться к атрибуту NUMBER (номер дерева) и присвоить ему значение "a"

4. Next

Все пункты, кроме 1, не вызывают затруднений. есть ли способы написать его на VBA?

[trir]

В файле .xls

facepalm

тут даже AutoCAD не нужен - это можно решить одним SQL-запросом в БД!

уже начал на VBA колдовать, на FDO сложно и энергозатратно

а реализовать RTree на VBA тебе видимо будет легко и просто...

Все пункты, кроме 1, не вызывают затруднений. есть ли способы написать его на VBA?

можно

текстовое поле вставляется программно

что за программа?

[Сергей812]

Сообщение от TiDi В файле .xls, откуда вставляется блок, записаны координаты вставки, атрибуты по каждому дереву. Файл получаем от геодезистов.

а мультитекст откуда вставляется? И как вставляется блок из xls? Форумчане должны каким то волшебным образом представить этот файл экселя от геодезистов?)

[Автон]

Сообщение от TiDi Всем привет

Посмотрите личку

[TiDi]

trir, программа на лиспе, которая строит полилинию, соединяя последовательно все деревья, а затем нумерует ее вершины.

Сергей812, образец прикрепил. Вставляются через VBA, код дома. В личку вышлю, если интересно, но это не нужно для решения обозначенной задачи.

[trir]

программа на лиспе, которая строит полилинию, соединяя последовательно все деревья, а затем нумерует ее вершины.

проще переписать её на VBA - что бы она отработала сразу в Excel'е
а лучше на SQL - что бы она отработала в БД

[Сергей812]

Сообщение от TiDi В личку вышлю, если интересно, но это не нужно для решения обозначенной задачи.

да меня интересует взаимосвязь между мультитекстом и блоком. Блок вставляется кодом по данным из таблицы экселя, а зеленый мтекст как на чертеже появляется? И почему его полем зовете, кстати..

[TiDi]

Сообщение от Сергей812 да меня интересует взаимосвязь между мультитекстом и блоком. Блок вставляется кодом по данным из таблицы экселя, а зеленый мтекст как на чертеже появляется? И почему его полем зовете, кстати..

А вот именно вышеуказанной программкой, которая нумерует вершины полилинии.

----- добавлено через ~3 мин. -----
trir, думаю вы правы, это более простой способ.
______

"Умный в гору не пойдет, умный гору обойдет"

[Сергей812]

ладно, собирать головоломку никакого желания нет, в частном случае по вашему примеру примерно так:
1. Собрать информацию в коллекцию по текстам: само содержимое мультитекста, средняя точка boundbox и флаг использования.
2. В цикле по блокам: вычислить среднюю точку boundbox, и в подцикле по коллекции текстов найти наименьшее расстояние при дополнительных условия Yтекста>Yблока (чтобы брал только текст сверху) и флаг использования = false. Далее значение текста занести в блок, пометить информацию о тексте как обработанную и выйти из внутреннего подцикла по коллекции info texts.

Можно для ускорения вместо коллекции и массив использовать - если есть возможность фильтром выцепить все мультитексты разом и тогда размерность массива будет определена сразу.