[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 и записываем это значение в атрибут блока. Если две и больше - красим точку в красный и переводим пользовательский экран в это место с диалогом ввода этой отметки.

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

[Дима_]

Еще раз в чем вопрос как поменять цвет у блока и аттрибут?

[Ancient John]

Сообщение от Дима_ Еще раз в чем вопрос как поменять цвет у блока и аттрибут?

1. Дополнить программу так, чтобы она ещё меняла цвет блока и текстовый атрибут внутри блока на значение Z координаты этого блока, полученной из рядом стоящего текста.

2. Написать новую программу по описанному алгоритму. Не обязательно, но желательно.\

Я так понимаю, что никто мне помочь не хочет?

[hwd]

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

Похоже на то, что присылают моим пользователям (тем которые дорожники). Только они меня просили как раз об обратном. Здесь можно глянуть.

[Ancient John]

Сообщение от hwd Похоже на то, что присылают моим пользователям (тем которые дорожники). Только они меня просили как раз об обратном. Здесь можно глянуть.

Да, когда искал в интернете находил вашу программу Просто это реально без надобности, т.к. в Civil можно задать блок с атрибутом за точку. Вообщем - он эту задачу выполняет сам без дополнительных программ. Единственное, не заменяя на 3D Point.

А у меня вот на руках сейчас блок с отметкой рядом, блок без атрибута И чтобы каждому блоку (около 10 000) задать координату Z по тексту, да и проверить это проверяя в Свойствах - недели не хватит.

[config]

Доброго времени суток! Хотел спросить, может по прошествии времени кто-нибудь нашел решение этой давней проблемы? До сих пор не дает покоя (я думаю и не только мне) проблема присвоение высоты блоку из отметки значения атрибута в топографии. Образец блока прикладываю. Спасибо!

[trir]

Хотел спросить, может по прошествии времени кто-нибудь нашел решение этой давней проблемы? До сих пор не дает покоя (я думаю и не только мне) проблема присвоение высоты блоку из отметки значения атрибута в топографии.

смешной

[config]

Сообщение от trir смешной

Спасибо за отзывчивость. Но я веду речь о чистом AutoCAD.

[Boxa]

Сообщение от config Хотел спросить, может по прошествии времени кто-нибудь нашел решение этой давней проблемы?

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

Сообщение от config До сих пор не дает покоя (я думаю и не только мне) проблема присвоение высоты блоку из отметки значения атрибута в топографии.

За почти 8 лет Вы наверное предприняли массу действий для решения этой задачи, а потому начну сначала:
На каком языке пытаетесь решить свою задачу, под какую версию автокада, что уже сделали, что не получается?

[config]

Сообщение от Boxa что уже сделали, что не получается?

Да в том-то и дело, что к большому сожалению я не программист. Поэтому и вопрошаю у сведущих. Может у кого-то есть решение и может поделиться. Или указать ссылку, где вопрос решен.

Сообщение от Boxa На каком языке пытаетесь решить свою задачу, под какую версию автокада

В соответствии с темой.

[VVA]

config, Тестируй

Код:

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

(defun C:ATTZBL (/ blname tagname round objSet *error*)
 ;_Приcвоение высоты блоку из отметки значения атрибута
 ;;; 2023-02-02  Добавлена проверка на наличие атрибута в блоке (cons 66 1)
 ;;; https://forum.dwg.ru/showthread.php?p=2020880#post2020880 
  (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))
  ) 
  (vla-startundomark
    (vla-get-activedocument (vlax-get-acad-object))
  ) 
  (setq blname  "*"  ;_Block name. "*" - any
        tagname "OTMETKA" ;_Tag Z value
  ) 
  (and
    (setq objSet (ssget "_:L" (list (cons 0 "INSERT")(cons 2 blname)(cons 66 1))))
    (setq Lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex objSet))))
    (foreach bl Lst
      (setq pt (cdr(assoc 10 (entget bl))))
      (vla-put-insertionpoint
        (vlax-ename->vla-object bl)
        (vlax-3d-point
          (list (car pt)(cadr pt)
          (atof
            (vl-string-translate
              ","
              "."
              (vl-string-trim
                "%UuoOcC \t"
                (LM:vl-getattributevalue
                  (vlax-ename->vla-object bl) ;_[vla] VLA Block Reference Object
                  tagname                     ;_[str] Attribute TagString 
                ) 
              ) 
            ) 
          )
          )      
        ) 
      ) 
    ) 
  ) 
  (vla-endundomark
    (vla-get-activedocument (vlax-get-acad-object))
  ) ;_ end of vla-EndUndoMark
  (princ)
) ;_ end of defun
;; Get Attribute Value  -  Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.
(defun LM:vl-getattributevalue ( blk tag )
    (setq tag (strcase tag))
    (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att))) (vlax-invoke blk 'getattributes))
)
(princ "\nType ATTZBL in command line")(princ)

[config]

Сообщение от VVA config, Тестируй

Супер! Все работает как надо! Вопрос снят! Спасибо Вам огромное!

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

Сообщение от VVA Прочитал внимательнее, похоже требуется обратная задача

Нет, именно так. Но и второй вариант лиспа (приcвоение высоты блоку из отметки значения атрибута) тоже будет очень кстати. Еще раз огромное Вам спасибо!

[VVA]

config, А мне показалось после второго прочтения, что нужна обратная задача. Короче, обновил #11 - Zblk->значение атрибута и значение атрибута ->Zblk

----- добавлено через ~1 мин. -----
PS Похоже, онлайн общаемся

[config]

Сообщение от VVA config, А мне показалось после второго прочтения, что нужна обратная задача. Короче, обновил #11 - Zblk->значение атрибута и значение атрибута ->Zblk

Да нет, это я, мягко говоря, не совсем точно изложил проблему. Тема ведь как раз присвоение блоку значения атрибута.

Сообщение от VVA PS Похоже, онлайн общаемся

[johny100]

Ребята, здравствуйте всем! Прошу помощи, встречался ли кто с такой ситуацией, если да, то будьте добрый подсказать ?

Пользуюсь лиспом ATTZBL. Но вот появилась ситуация (уведомление при выполнении команды) "неверный тип аргумента: (or stringp symbolp): nil"

Операцию провожу для блока с некорректной отметкой Z и рядом стоящим атрибутом с отметкой в тексте, но Z у атрибута ровно "0"

https://cloud.mail.ru/public/DC83/62v7wRNVT

В файле "проверка" для понимания ситуации необходимо условным обозначениям в виде блока освещения и столба присвоить отметку Z с текста атрибута.

Автокад 2021

Спасибо!

[_A_x_e_l_]

В файле "проверка" для понимания ситуации необходимо условным обозначениям в виде блока освещения и столба присвоить отметку Z с текста атрибута.

https://cloud.mail.ru/public/61CG/5Krq6EK7h

Добрый день, если вас правильно понял))
Есть блок с атрибутом параметра Z - его можно выставить с помощью лиспа в заданную координату по оси z.
А чтобы присвоить блокам ниже в вашем файле, выделить их и в свойствах в ручную вбить заданные параметры!?

[johny100]

Сообщение от _A_x_e_l_ А чтобы присвоить блокам ниже в вашем файле, выделить их и в свойствах в ручную вбить заданные параметры!?

Стараюсь монотонную работу в большом количестве избегать или автоматизировать.

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

Сообщение от johny100 необходимо условным обозначениям в виде блока освещения и столба присвоить отметку Z с текста атрибута

Альтернативный вариант для блоков с атрибутами - можно обходиться полем в атрибуте. Полем, считывающим Z блока, и отображающим его в атрибуте.
Есть ограничение - поле перестает действовать, если содержание атрибута отредактировано вручную.
Т.е. редактировать нужно прямо и только Z блока.
Тогда после _REGEN атрибут отобразит Z.

[VVA]

johny100,
Тот вариант лиспа, который нашел, не работал только если в набор попадал блок без атрибута. Не было защиты "от дурака"
Добавил проверку на наличие в блоке атрибута. Смотри пост #11

[johny100]

Сообщение от VVA johny100, Тот вариант лиспа, который нашел, не работал только если в набор попадал блок без атрибута. Не было защиты "от дурака" Добавил проверку на наличие в блоке атрибута. Смотри пост #11

Измените, я наверное не так выразился, я что-то подобное находил, а сейчас не могу найти этот лисп. Задача, если рассматривать на примере моего файла "Проверка", то цель изменить отметку 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?

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