[mansur_09]

есть множество точек, созданные геодезистами. возле каждой нужно проставить высотную отметку (координаты не нужны).
есть ли команда, или LISP, которая делает это в полуавтоматическом режиме?

[trir]

Civil 3D!!!!

Ну или блок с атрибутами...

[Vladimir_Sergeevich]

Если у точек есть координата z, без проблем решается программированием

Код:

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

 (defun c:otm ( / *mspace* adoc ent_sad h)
(setq adoc (vla-get-activedocument (vlax-get-acad-object))
      *mspace* (vla-get-ModelSpace adoc))
(setq h (getreal "\nЗадайте высоту текста: "))
(setq ent_sad (entnext))
(while ent_sad
 (if (= (cdr (assoc 0 (entget ent_sad))) "POINT")
   (vla-AddText *mspace* (rtos (cadddr (assoc 10 (entget ent_sad))) 2 2) (vlax-3d-point (cdr (assoc 10 (entget ent_sad)))) h)
 );end if
(setq ent_sad (entnext ent_sad)); счетчик для условия выхода...
);end while
);defun

з.ы. если надо обрабатывать только в модели и в листах точек нигде нет.

Сообщение от trir Civil 3D!!!!

хочешь подарить всем цивил? мое начальство не станет покупать.

[trir]

Если нужен - надо брать!

мое начальство не станет покупать.

Сменить начальство!

[OlVish]

здесь

[mansur_09]

а теперь еще один вопрос:
как проставить эти значения только для выделенных точек. ( в приведенном выше лиспе, выставляет отметки на все точки в модели.)

[sertor]

Сообщение от mansur_09 а теперь еще один вопрос: как проставить эти значения только для выделенных точек. ( в приведенном выше лиспе, выставляет отметки на все точки в модели.)

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

[mansur_09]

Сообщение от sertor До того, как вводить команду запуска лиспа, выберите (можно рамкой), нужные точки. После ввода команды, на высоту поднимутся только указанные Вами

не работает . также и проставляет на все точках, а не на выделенных

[sertor]

mansur_09, этот вариант работает. Повторим пошагово:
- выделяем точки и тексты (числовые значения высоты), которым хотим присвоить отметки.
- перетаскиваем в окно AutoCAD lisp.
- в командную строку вводим команду запуска программы и жмем Enter.

[mansur_09]

Сообщение от sertor выделяем точки и тексты (числовые значения высоты), которым хотим присвоить отметки

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

[sertor]

mansur_09, нужно редактировать лисп. Это к автору или в соседнюю ветку. Ну, а пока "суд да дело", можно оперировать слоями (временно переместить нужные точки на отдельный слой и обработать), изолировать и т. д. Варианты на выбор.

[Vladimir_Sergeevich]

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

[sathalex]

Код:

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

 (defun c:pl ( / H SSET lay osm npoint n ent pxy pz)
(if(and
(setq sset (ssget '((0 . "POINT"))))
(setq h (getreal "\tУкажи высоту текста\t\t")))
(mapcar(function(lambda (x)
(entmake(list '(0 . "text")
(assoc 10 (entget x))(cons 40 h)
(cons 1 (rtos (cadddr (assoc 10 (entget x))) 2 3))))))
(vl-remove-if (function listp)
(mapcar (function cadr) (ssnamex sset)))))
(princ))