[Ingpro]

Мне нужно выбрать название в коде и вставить строку в чертеж с заданными параметрами текста, не представляю как начать, подскажите, плз...
1. Команда Текст (выбор)?
2. Свойства текста
слой "Текст"
шрифт ArialN (или стиль "Ариал Н0")
высота 400
выравнивание влево
подчёркнутый
3. Название выбрать: Схема расположения
Схема армирования
Опалубочный план
4. Вставить строку с названием в чертеж

Код:

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

 (defun c:txt_prm (/ ) ; ???
(command "_TEXT") ; или как выбрать название из трех (см. ниже)
 (setq (getText "\nВыберите название [Схема расположения/Схема армирования/Опалубочный план]: "))
  (setq pt (getpoint "\nУкажите точку вставки текста: "))
(entget (entlast))
'((0 . "TEXT")
  (100 . "AcDbEntity") ; AcDbText
  (67 . 0)
  (410 . "Model")
   (10 1.46689e+008 8.45653e+007 0.0) ; ???
  (1 . "qwerty")
  (2 . "Текст") ;слой текст
  (3 . "ARIALN.TTF") ; шрифт
  (7 . "Ариал Н0")  ;  Название стиля текста или шрифт (что-то одно?)
  (39 . 20) ; вес 
  (40 . 400) ; высота
  (62 . 14) ; цвет
  (72 . 0); выравнивание влево
  (подчеркивание текста %%U, как добавить?)

    (princ)
)

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

Самое простое - создать такой текст руками и посмотреть, что там и как.
ЗЫ создание стиля с ttf это отдельный вид гемора, готовься

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Самое простое - создать такой текст руками и посмотреть, что там и как

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

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

Тупо командой _.text создай текст, и сделай его подчеркнутым - увидишь что и куда надо добавлять.
ACAD не запущен, и виртуалку поднимать ну совсем не хочу. Долго, длинно и нецелесообразно ))

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Тупо командой _.text создай текст

Мне не надо создавать текст, я хочу выбрать готовое название...

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

Сообщение от Ingpro или как выбрать название из трех (см. ниже)

initget или dcl, что больше нравится.

[SetQ]

Сообщение от Ingpro Мне не надо создавать текст, я хочу выбрать готовое название... *

Быть может здесь ответ:
https://www.lee-mac.com/promptwithdefault.html

[name02]

Примерно так можно сделать:

Код:

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

 (defun c:txt (/ var_text pt)
  
  (initget 1 "Расположения Армирования Опалубочный")
  (setq	var_text
	 (getkword
	   "\nВыберите название [cхема Расположения/схема Армирования/Опалубочный план]: "
	 )
  )

  (setq	var_text
	 (cond
	   ((= var_text "Расположения") "Схема расположения")
	   ((= var_text "Армирования") "Схема армирования")
	   ((= var_text "Опалубочный") "Опалубочный план")
	 )
  )

  (setq var_text (strcat "{\\L" var_text "}"))
  (setq pt (getpoint "\nУкажите точку вставки текста: "))
  (entmake (list
	     (cons 0 "MTEXT")
	     (cons 100 "AcDbEntity")
	     (cons 100 "AcDbMText")
	     (cons 7 "GOST 2.304")
;;;	     (cons 8 "E_TEXT_L080")
	     (cons 71 5)		;
	     (cons 72 5)
	     (cons 73 1)
	     (cons 10 pt)		;точка вставки
	     (cons 11 (list 1.0 0.0 0.0))
	     (cons 50 0)		;угол
	     (cons 41 100)
	     (cons 40 5)		;высота текста
	     (cons 44 1.0)
	     (cons 1 var_text)
	   )
  )

  (princ)
)

Назначение групп смотри справку тут

[Ingpro]

Сообщение от name02 Примерно так можно сделать:

name02, спасибо!!! Работает, как надо: вставляет выбранный текст (подчеркивает).
Если заменить Мтекст на Текст код будет работать?
Мтекст иногда вставляется в 2 строки (если в коде изменить высоту текста) , хотелось бы одной строкой...
Схема
расположения

[name02]

Сообщение от Ingpro А как в коде указывается подчеркивание?

Сообщение от Кулик Алексей aka kpblc Самое простое - создать такой текст руками и посмотреть, что там и как.

Выдели МТЕКСТ и посмотри в панели свойств:

Сообщение от Ingpro Если заменить Мтекст на Текст код будет работать?

Для однострочного текста надо по-другому строку текстовую менять:

Сообщение от name02 Мтекст иногда вставляется в 2 строки (если в коде изменить высоту текста) , хотелось бы одной строкой...

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

[Ingpro]

Сообщение от name02 Для однострочного текста надо по-другому строку текстовую менять:

С подчеркиванием и шириной понятно.
изменяем Мтекст на Текст

Код:

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

 (defun c:txt2 (/ var_text pt)
  
  (initget 1 "Расположения Армирования Опалубочный")
  (setq	var_text
	 (getkword
	   "\nВыберите название [cхема Расположения/схема Армирования/Опалубочный план]: "
	 )
  )

  (setq	var_text
	 (cond
	   ((= var_text "Расположения") "Схема расположения")
	   ((= var_text "Армирования") "Схема армирования")
	   ((= var_text "Опалубочный") "Опалубочный план")
	 )
  )

  (setq var_text (strcat "%%U" var_text))
  (setq pt (getpoint "\nУкажите точку вставки текста: "))
  (entmake (list
	     (cons 0 "TEXT")
	     (cons 100 "AcDbEntity")
	     (cons 100 "AcDbText")
	     (cons 7 "Имя стиля") ;указать текстовый стиль из чертежа
	     (cons 8 "Текст")
	     (cons 72 0)
             (cons 73 0)
             (cons 10 pt)		;точка вставки
	     (cons 11 (list 1.0 0.0 0.0))
	     (cons 41 1.0)
	     (cons 40 5)		;высота текста
	     (cons 1 var_text)
	   )
  )
  (princ)
)

[name02]

1 В точечной паре номер 7 (строка 24) должен быть указан текстовый стиль из твоего чертежа
2 В 18 строке нужно быть внимательнее - фигурная скобка не нужна: (setq var_text (strcat "%%U" var_text))

[Ingpro]

Сообщение от name02 1 В точечной паре номер 7 (строка 24) должен быть указан текстовый стиль из твоего чертежа 2 В 18 строке нужно быть внимательнее - фигурная скобка не нужна: (setq var_text (strcat "%%U" var_text))

Строка уезжает в начало координат, а не туда куда указываешь...

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

https://autolisp.ru/2010/04/06/text-...trib-entities/ ?

[Ingpro]

После некоторых манипуляций с (cons 73 и (cons 72 получился рабочий код.
Исправлено в посте #11. Всем спасибо за помощь!