[Ancient John]

Вообщем, не линчуйте, если тема уже проскакивала - поиск не дал нормальных результатов. Опишу проблему.
1. Нашел программу ZTXT, которая берет отметку Z для точки из близлежащего текста. Переделал её так, чтобы в главой роли был блок, а не текст ("переделал" громко сказано, но все же). Но не могу сделать "контролирующий" элемент в ней. А именно: менять цвет блока отличные от существующего и заполнять его атрибут на тоже значение Z.

Код:

[Выделить все]

(defun C:Ztxt ( / objSet Point ptLst tmp1 tmp2 pat txtZList dst *error*)
(vl-load-com)
(defun *error*(msg)(princ msg)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))(princ))
(vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
(if (and
      (setq objSet(ssget "_:L" '((0 . "INSERT"))))
      (setq Point (vl-remove-if 'listp(mapcar 'cadr(ssnamex objSet))))
      (setq ptLst(mapcar 'cdr (mapcar '(lambda(x)(assoc 10 x))(mapcar 'entget Point))))
      (setq objSet nil objSet(ssget "_X" (list '(0 . "*TEXT")(cons 410 (getvar "CTAB")))))
      )
  (progn
    (setq tmp1 (vl-remove-if 'listp(mapcar 'cadr(ssnamex objSet))))
    (setq tmp1 (mapcar '(lambda(x)(setq x (entget x))(list (cdr(assoc 10 x))(cdr(assoc 1 x)))) tmp1))
    (foreach pt ptlst
      (setq tmp2 (mapcar '(lambda(x)(list (distance pt (car x))(cadr x))) tmp1))
      (setq pat (car tmp2))
      (foreach dst tmp2 (if (< (car dst) (car pat))(setq pat dst)))
      (setq txtZList (cons (cadr pat) txtZList))
      )
    (setq txtZList (reverse txtZList))
    (setq txtZList (mapcar '(lambda(x)
                    (vl-string-translate "," "." (vl-string-trim  "%UuoOcC \t"   x))
                   )txtZList))
    (mapcar '(lambda(ptObj pt Z)
               (vla-put-insertionpoint (vlax-ename->vla-object ptObj)
                (vlax-3d-point (list (car pt)(cadr pt) Z))
               )
               )
           Point ptLst (mapcar 'atof txtZList)
            )
    )
  )
  (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

Необходимо это, потому что ближайшим может оказаться текст, не принадлежащий к данному блоку. А если будет заполняться атрибут блока, то можно сразу будет отслеживать та ли отметка заполнилась в блок.

2. А, вообще, в идеале опишу свою задачу так. Есть геоподоснова, где каждому блоку (кружочку с заливкой) соответствует текст, содержащий высотную отметку. Но не на строго выверенном расстоянии, а от балды. Нужно заполнить Z-блока из данного текста, но тоже хитро:
1. У одного блока могут стоять сразу две отметки (верх и низ борта -выбрать нужно низ - т.е. меньшую)
2. Ближайшей может оказаться не так текстовая отметка.
В идеале вижу решение задачи следующим образом.
1. Задается расстояние сканирования (допустим 5).
2. Выбираются блоки.
3. Дальше вокруг блока сканируется расстояние на площади описанного круга с радиусом равным расстоянию сканирования. Если в этот предел попадает одна отметка - то и её назначаем отметкой Z и записываем это значение в атрибут блока. Если две и больше - красим точку в красный и переводим пользовательский экран в это место с диалогом ввода этой отметки.

Заранее спасибо

[VVA]

johny100, В твоем примере 4 блока: 2 с атрибутами, 2 без атрибутов. Никаких точек и цифр нет.

[АлексЮстасу]

Сообщение от johny100 цель изменить отметку Z у обычного блока, а эту самую отметку заимствовать от рядом стоящей точки, атрибута или цифре. Мне казалось, я находил как подобные инструмент, но сейчас не могу вспомнить.

Наверное, Вы имеете в виду лисп Ztxt - см. стартовый пост этой темы. Автор лиспа, кажется, как раз VVA.

[johny100]

Сообщение от VVA johny100, В твоем примере 4 блока: 2 с атрибутами, 2 без атрибутов. Никаких точек и цифр нет.

Да, все верно! Вот и хотелось бы узнать, можно ли блокам без атрибута задать положение Z (в свойствах блока) такое же как в блоках с атрибутом. Заимствовав эти значения из отметки атрибута или из положения Z в свойства блока с атрибутом ?

Offtop: Извиняюсь, что так выражаю свою мысль долго!

----- добавлено через ~13 мин. -----

Сообщение от АлексЮстасу Наверное, Вы имеете в виду лисп Ztxt - см. стартовый пост этой темы. Автор лиспа, кажется, как раз VVA.

Получается присвоить положение Z, но лиспом Ztxtb, который найден в другой теме, но этим лиспом я смог присвоить блокам отметки от ближайшего текста, а мне бы блокам присвоить от ближайших атрибутов, конечно можно разить атрибуты в текст.

Offtop: Я правда, очень извиняюсь, что не могу выразить свою мысль, так чтобы вы поняли

Или вот тоже пример в приложенном архиве с атрибутами, не смог выполнить присвоение положению Z значения из значения атрибута лиспом ATTZBL, а лиспом Ztxtb команда задает блоку с атрибутом положение Z из тега, который идет как порядковый номер и я уже голову сломал как значения между тегами поменять или удалить лишний тег, но безрезультатно пока что. При чем если схитрить и извлечь из блока с атрибутом текст, то командой Ztxt точке будет задаваться не значение ближайшего текста, коим является отметка, а тот же самый тег из разбитого блока с атрибутом. Не могу понять, как изменить эти теги, чтобы команды использовали нужное значение.

[АлексЮстасу]

Сообщение от johny100 а мне бы блокам присвоить от ближайших атрибутов

Эта задача нетипичная, некорректная. Атрибуты специально связаны со своими блоками. Для других блоков они чужие.
Поэтому искать программу для чтения в один блок атрибутов другого блока, скорее, бесполезно. Если уж совсем нужно, то оправдано разбивать блоки с нужными Вам вдруг атрибутами.

Сообщение от johny100 точке будет задаваться не значение ближайшего текста, коим является отметка, а тот же самый тег из разбитого блока с атрибутом

Разбивать блоки нужно BURST - командой из Express. Она создаст не надписи тегов, а содержаний атрибутов.

[johny100]

Сообщение от АлексЮстасу Эта задача нетипичная, некорректная. Атрибуты специально связаны со своими блоками. Для других блоков они чужие. Поэтому искать программу для чтения в один блок атрибутов другого блока, скорее, бесполезно. Если уж совсем нужно, то оправдано разбивать блоки с нужными Вам вдруг атрибутами. Разбивать блоки нужно BURST - командой из Express. Она создаст не надписи тегов, а содержаний атрибутов.

Понял теперь про присвоение блоку положения Z от близлежащего атрибута.

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

[АлексЮстасу]

Сообщение от johny100 Хотя в моей ситуации, проверьте пожалуйста, из архива файл.

Подходящим в принципе должен бы быть лисп ATTZBL из #11, но он выдает:

Код:

[Выделить все]

неверный тип аргумента: (or stringp symbolp): nil

.

[VVA]

АлексЮстасу, скинь пример с ошибкой. Видно в свое время что-то не учел

[АлексЮстасу]

Сообщение от VVA скинь пример с ошибкой.

Это пример от johny100 - см. #23.

[johny100]

Сообщение от VVA АлексЮстасу, скинь пример с ошибкой. Видно в свое время что-то не учел

Пожалуйста, спасибо!

[АлексЮстасу]

Сообщение от VVA пример с ошибкой

Возможно, там проблема из-за двух атрибутов в блоке...

Если Вам срочно, то путь длиннее, но, в идее, продуктивнее, поскольку дает много больше возможностей работы с данными. Для одной этой задачи этот путь сложен. Но он позволяет решать множество задач, для которых нужно много десятков специальных лиспов. Т.е. в сумме позволит сэкономить много времени.
Можно взять набор команд XDTOOLS, тоже на лиспе.
1. Создать XData для нужных данных - XDTOOLS_MDEFINE. Полей в XData можно сразу создать для всех атрибутов этих блоков, т.е. два.
2. Присоединить этот созданный XData к объектам - XDTOOLS_ADD.
3. Создать текстовый файл соответствий блоков/атрибутов с XData/полями. Поможет в этом XDTOOLS_ATTRFILE, который создаст txt-заготовку файла соответствий, выгрузив в него названия всех блоков с соответствующими атрибутами, а так же названия XData и номера их полей.
В Вашем случае достаточно строки:

TCPOINT ОТМЕТКА <название XData> <номер поля>

Разделители - табуляции.
4. Загрузить значение атрибутов в XData на основе файла соответствий - XDTOOLS_ATTR2. В общем случае можно создать файл соответствий для всех разновидностей блоков, для любых их атрибутов, и разом загрузить.
5. Назначить значение свойства объекта (Z) из значения поля XData - XDTOOLS_2PROP.

[АлексЮстасу]

Способ быстрее, но тоже обходной и с доп. лиспом - достаточно мощным экспортом/импортом PointManager от Lee Mac. (Есть и другие самодельные хорошие наши лиспы для этого).
1. Команда PTM. Выгружаем выбранные блоки в указанный txt-файл, с атрибутами. (Лисп не даст выбрать блоки для экспорта, если для выгрузки выбраны тоже блоки. Выбрать там что-то другое, точки, например).
2. Открываем созданный txt-файл в Excel или т.п., и заменяем Z на значение атрибута отметки.
3. Команда PTM. Загружаем из txt-файла указанным блоком, с атрибутами. Можно выбрать и цвет/слой. Прежние блоки можно предварительно удалить.

Этот экспорт/импорт вообще оч. неплох для создания точек-блоков и пр. из txt-файлов. Пригодится и для этого, и в ряде других случаев.

Кстати, в штатных средствах AutoCAD так и нет экспорта точек-вершин в txt?

[johny100]

Сообщение от АлексЮстасу Способ быстрее, но тоже обходной и с доп. лиспом - достаточно мощным экспортом/импортом PointManager от Lee Mac. (Есть и другие самодельные хорошие наши лиспы для этого). 1. Команда PTM. Выгружаем выбранные блоки в указанный txt-файл, с атрибутами. (Лисп не даст выбрать блоки для экспорта, если для выгрузки выбраны тоже блоки. Выбрать там что-то другое, точки, например). 2. Открываем созданный txt-файл в Excel или т.п., и заменяем Z на значение атрибута отметки. 3. Команда PTM. Загружаем из txt-файла указанным блоком, с атрибутами. Можно выбрать и цвет/слой. Прежние блоки можно предварительно удалить. Этот экспорт/импорт вообще оч. неплох для создания точек-блоков и пр. из txt-файлов. Пригодится и для этого, и в ряде других случаев. Кстати, в штатных средствах AutoCAD так и нет экспорта точек-вершин в txt?

Спасибо за подсказку и направление. Получилось через это приложение, но только доставал данные атрибутов через функцию автокада - извлечение данных. (данныеизвл)