Помогу бесплатно разработать любую программу на autolisp.

Большое спасибо. Вещь нужная.

 

Здравствуйте!
Помогите "мазохисту" поневоле:
Нужен лисп, позволяющий создавать точки с высотной отметкой, как у рядом стоящего текста/мтекста.
Встречал макрос, делающий это автоматом, вычисляя ближайший текст. Однако у меня это не проходит: во-первых, тексты часто стоят не там, где нужно для автоматизированной работы макроса. Во-вторых, там высоту меняет уже существующая точка, а мне нужно её создать. Поэтому и мазохист, делать приходится ручками, своим мозгом определяя нужные тексты высотных отметок.

Итак, работа макроса и условия:
Указать курсором текст (мультитекст), с возможностью распознавания и точки и запятой, затем указать место вставки создаваемой точки автокада, которая должна иметь высоту Z выбранного значения текста (мультитекста). С привязкой и без привязки (при активности опции привязки в Автокад). Созданные точки Автокад и использованный текст (мультитекст) должны присваиваться текущему слою Автокад со свойствами «Послою», в том числе при выключенном слое (должны скрываться). Встречаются отметки с текстом, например "141,23 (люк)" или иные. Макрос должен распознать такую отметку и подсветить её красным (чтобы пользователь обратил особое внимание), после чего обработать её как и остальные отметки, то есть после создания точки перенести и созданную точку, и отметку с текстом на текущий слой. Обеспечить повторяемость цикла команды; завершение цикла команд – «Esc».
Система координат - мировая. Автокад 2013-2019.

Заранее благодарен тому, кто потратит для меня своё время, тем самым улучшив свои навыки в программировании.

 

это штатный функционал Civil 3D

 

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

 

Плохо владеет ваш товарищ, ​

Можно через _AeccMoveTextToElevation (текст на отметку в цивиле) как вам сказали выше

Но я бы командой "данныеизв" в экселе убрал бы люки, поменял запятые на точки , выудил бы координаты и сделал бы обычный текстовый файл (PNEZD) и далее в цивил.​

 

Neznayka, ты подгрузишь отметки с координатами привязки текста, а ТСу надо самостоятельно указать курсором место вставки отметки. Вот именно такой команды нет.

 

Ну правильно, а дальше врукопашную, пусть расставляет/крутит как душе угодно, И в лиспе бы пришлось руками. Не думаю , что был бы сильный выигрыш от лиспа

 

Запуск: CPHT

 

Alexandr-GR, спасибо, работает почти как надо. Осталась малость: нужно, чтобы после создания точки не только сама точка, но и текст, с ней связанный, переходил бы на текущий слой. Так будет проще контролировать уже использованные тексты высотных отметок.

 

Текст-отметка переносится на текущий слой.
Повторный запуск - набрать 11 (одиннадцать) и нажать Enter

 

Alexandr-GR, прошу извинить, но нужно, чтобы текст переходил на текущий слой лишь после создания точки.
Задумано так, что текущий слой будет выключенным и, соответственно, обработанные тексты с созданными точками постепенно будут скрываться. Так легче осуществлять контроль за своими же действиями.
В Вашем последнем варианте текст уже удалён, а точка ещё не поставлена. В этом случае можно ошибиться, так как рядом, наползая друг на друга, толпятся стадом другие тексты-отметки.
Мне хотелось бы, чтобы нужный текст исчезал бы только вместе с точкой.
Спасибо.

--- Сообщения объединены, May 13, 2019, Оригинальное время сообщения: May 13, 2019 ---

ivsem, спасибо, макрос годится, но тут хочется, чтобы текст типа "142,32 лоток", то есть с буквами, при выборе окрашивался бы красным. И ещё: сообщите, какую команду вводить в ком.строку для запуска макроса, а то мне приходится каждый раз загружать его.

 

Очень да же хорошая задумка. Именно под эту задумку я и писал макрос. Красный цвет для отметок типа 142,32 лоток добавлю в следующую версию программы.

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

 

ivsem, "11" набрать недолго. Однако, после нескольких иных действий, других команд (с другими макросами, или просто с примитивами: перемещение, копирование, удаление, выравнивание и пр.) набор "11" уже не работает, и приходится заново загружать макрос. Поэтому предпочитаю набирать короткую команду в ком.строке.
_____________________
Опа! А сейчас получилось. По набору "11" всё получилось. Прошу извинить за безосновательную претензию.
p.s. Не могли бы Вы выложить файл с расширением .lsp?
Хочется покопаться в коде, попробую разобраться в основных вещах.
Спасибо.

 

Alexandr-GR, сейчас текстовая отметка переходит на текущий слой вовремя, вместе с точкой.
Но отметка со словом, типа "152,23 лоток", - окрашивается в красный поздно, уже при переходе на текущий слой.
А необходимо, чтобы окрашивалась сразу при клике на текст, ещё до создания точки. Тогда пользователь обратит внимание на такую отметку со словом.
И - та же просьба, что и форумчанину ivsem - если не гос. тайна, не могли бы Вы выложить макрос в расширении .lsp?
Хочу посмотреть код, попытаться разобраться.
Спасибо.

 

Code:

;;;Версия 02  13.05.2019
(defun *error* (errmsg)
 (setvar "osmode" osmode_old)(princ)
)
;;;----------------------------------------------------------------
(defun C:11 (/)
 (setvar "cmdecho" 0)(vl-load-com)
 (setq osmode_old (getvar "osmode"))
  (While
   (setvar "osmode" 0)
   (setq Primitiv (car(entsel "\nВыберите мышкой текст-отметку  Выход-Esc  ")))
   (setq PrimitivDXF (entget Primitiv))
    (if (or(= (cdr(assoc 0 PrimitivDXF)) "TEXT")(= (cdr(assoc 0 PrimitivDXF)) "MTEXT"))
     (progn
      (setq Z$ (cdr(assoc 1 PrimitivDXF)))
     (if (wcmatch Z$ "#*")
       (progn
        (if (vl-string-position 44 Z$ )(setq Z$(vl-string-subst "." "," Z$)))
        (setq Z(atof Z$))
        (if(wcmatch Z$ "*@*")(command "_change" Primitiv "" "_P" "_C" 1 ""))
        (setvar "osmode" osmode_old)
        (setq XYmat (getpoint "\nУкажите мышкой точку : "))
        (setvar "osmode" 0)
        (command "_point" (list (car XYmat)(cadr XYmat)Z))
        (command "_change" Primitiv "" "_P" "_LA" (getvar "CLAYER") "")
       )
       (alert "\nВыбран текст без отметки!!!")
     )  
    )
    (alert "\nЭто не текст!!!")
   ) 
 )
)
(C:11)

 

поправил

увы, но нет. Я не выкладываю коды, которые содержат функции других авторов, тем более, когда бывает вношу в них свои изменения

 

ivsem, благодарю. И за макрос, и за код.

Alexandr-GR, понимаю и уважаю Ваш выбор.
Хотя часто встречал и сам делаю так (в макросах VBA Excel): чужие строки кода или функции комментирую отдельной строкой с указанием источника, откуда повзаимствовал.
Благодарю за Ваш макрос.

Spoiler

Обожаю Коломбо! По двадцать пять раз пересматриваю сериал :)

 

ivsem, 1958, barabashkasathalex, здравствуйте. Ещё раз спасибо за надстройки для автоматического разворота стрелок. Снова понадобилось воспользоваться ими и столкнулся с проблемой. Сделал заготовку для исполнительной, а блок-стрелку использовал другую. Точка встаки блока - край объекта, а разворот нужен относительно геометрического центра. Возможно ли такое реализовать? Заготовку в DWG 2007 прикладываю.