[Nikilin]

Здравствуйте товарищи.
Возможно ли в AutoCad извлечь из типа линии текст и присвоить ее в во временную переменную?

Для примера допустим есть такой тип линии
*g_122_kprl, ----Кпрл---- ----- ---- *ПроизводЛивн Кан
A,2,-2,3,-0.6,["Кпрл",Line_GUGK,S=2.0,R=0.0,X=0.0,Y=-1.0],-8.4,3,-2,8,-2,8,-2,6

Хочу выбором объекта с этим типом линии извлечь текст "Кпрл" для дальнейшего использования в LISP.
Не могу найти способ.

[===AAA===]

Добрый день!

Получить (entget) список выбранного объекта, найти в нём код с описанием
и выделить из него нужное "от кавычек до кавычек" не подходит?

[kp+]

Сообщение от Nikilin Возможно ли в AutoCad извлечь из типа линии текст и присвоить ее в во временную переменную?

Возможно не только это, но и гораздо больше:
https://forum.dwg.ru/showthread.php?t=14359
Остается только выковырять из строки описания типа линии именно тот текст.

[Nikilin]

Сообщение от kp+ Возможно не только это, но и гораздо больше: https://forum.dwg.ru/showthread.php?t=14359 Остается только выковырять из строки описания типа линии именно тот текст.

Спасибо. Не подумал об этом варианте и не рассмотрел возможности данного кода.
Благодаря этому повысил свое понимание dxf групп.

Код:

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

 
(defun c:test ()
  (setq ss (ssget "_:L")) 
  (if ss
    (progn
      (setq obj (ssname ss 0)) 
      (setq a (entget obj)) 
      (princ "Атрибуты выбранного объекта:")
      (princ)
      (print a) 
      (setq line-type-l (cdr (assoc 6 a)))
      (setq line-type (tblobjname "LTYPE" line-type-l)) 
      (setq b (entget line-type)) 
      (princ "Атрибуты типа линии: ")
	  (princ)
      (princ b)
      (setq text (cdr (assoc 9 b)))
      (princ "Текст типа линии: ")
	  (princ)
      (princ text)
    )
    (princ "Объект не выбран")
  )
  (princ)
)
)