[МишаИнженер]

Какой код DXF надо применить, чтобы получить "Имя стиля таблицы"?

Код:

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

 
  (setq TypeObj (strcase name)) 
  (cond 
	((eq TypeObj "ACAD TABLE")
		(setq StyleTable0 (assoc 370 dan))
	  	(setq StyleTable (cdr StyleTable0))
	)
	
  )

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

https://autolisp.ru/2019/05/07/dxf-reference/

[МишаИнженер]

В указанной вами книжке нашел на странице 147 (139) вроде соответствует код 342
342 - Hard pointer ID of the TABLESTYLE object
Программа выдает STYLETABLE0 = (342 . <Имя объекта: 1b058a2aa80>)
Что обозначает <Имя объекта: 1b058a2aa80>?

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

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

----- добавлено через 33 сек. -----
Хотя что за программа - тайна

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc Строковое представление ename-указателя на элемент базы чертежа

Это строковое представление выглядит как Handle объекта, только состоит из 2 слов: <ИмяОбъекта 65464131654>
Поэтому добавил дополнительную функцию cdr чтобы вернуть только Handle из этого выражения.
Но почему в этой строке программа начала прекращать выполнение всех действий?
(Для проверки работы программы надо выделить таблицу на чертеже)

Код:

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

 
(while (setq el (car (entsel "\n Выбери объект:")))
;entsel выдает имя объекта и все остальное, car - Извлекает первый элемент из списка: имя объекта
;команды которые должны выполняться в цикле пока не будет пустой ввод
  (setq dan (entget el));получает список с характеристиками примитива
  (setq name0 (assoc 0 dan)) ;получаем имя объекта
  (setq name (cdr name0))
  (princ name)
;;;  (alert (strcat "Был выбран " name))
  (princ (strcat "Был выбран " name))
  (setq cLayer0 (assoc 8 dan)) ;получаем имя объекта
  (setq cLayer (cdr cLayer0))
  (setq cLWeight0 (assoc 370 dan)) ;получаем текущий вес линии
  (setq cLWeight (cdr cLWeight0))
  (setq cLType0 (assoc 6 dan)) ;получаем текущий тип линии
  (setq cLType (cdr cLType0))  
  (setq cLTypeScale0 (assoc 48 dan)) ;получаем текущий масштаб типа линии
  (setq cLTypeScale (cdr cLTypeScale0))
  (setq cColor0 (assoc 62 dan)) ;получаем текущий цвет
  (setq cColor (cdr cColor0))
  (setq cThick0 (assoc 39 dan)) ;получаем текующую толщину
  (setq cThick (cdr cThick0))
  
;Назначим текущим слой выбранного объекта (setvar "clayer" <имя слоя>)
  (setvar "clayer" cLayer)
  (princ (strcat (chr 10) "Был назначен текущий слой " (chr 34) cLayer (chr 34)))
;Назначим текущий вес линий
  (cond ((eq cLWeight nil)
		(setvar "CELWEIGHT" -1)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоСлою" (chr 34)))
		)
	((eq cLWeight -2)
		(setvar "CELWEIGHT" -2)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоБлоку" (chr 34)))
		)
	((eq cLWeight -3)
		(setvar "CELWEIGHT" -3)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) "ПоУмолчанию" (chr 34)))
		)
	(t 
		(setvar "CELWEIGHT" cLWeight)
		(princ (strcat (chr 10) "Был назначен текущий вес линий " (chr 34) (rtos (/ cLWeight 100.0)) (chr 34)))
	)
   )
;Назначим текущий тип линии
  (cond ((eq cLType nil)
		(setvar "CELTYPE" "ByLayer")
		(princ (strcat (chr 10) "Был назначен текущий тип линий " (chr 34) "ПоСлою" (chr 34)))
		)
	(t 
		(setvar "CELTYPE" cLType)
		(princ (strcat (chr 10) "Был назначен текущий тип линий " (chr 34) cLType (chr 34)))
	)
   )
;Назначим текущий масштаб типа линии
  (cond ((eq cLTypeScale nil)
		(setvar "CELTSCALE" 1)
		(princ (strcat (chr 10) "Был назначен текущий масштаб типа линий " (chr 34) "1" (chr 34)))
		)
	(t 
		(setvar "CELTSCALE" cLTypeScale)
		(princ (strcat (chr 10) "Был назначен текущий масштаб типа линий " (chr 34) (rtos cLTypeScale) (chr 34)))
	)
   )
;Назначим ткущий цвет чертежа
  (cond ((eq cColor nil)
		(setvar "CECOLOR" "ByLayer")
		(princ (strcat (chr 10) "Был назначен текущий цвет " (chr 34) "ПоСлою" (chr 34)))
		)
	((eq cColor 0)
		(setvar "CECOLOR" "ByBlock")
		(princ (strcat (chr 10) "Был назначен текущий цвет " (chr 34) "ПоБлоку" (chr 34)))
		)
	(t 
		(setvar "CECOLOR" (rtos cColor))
		(princ (strcat (chr 10) "Был назначен текущий цвет " (chr 34) (rtos cColor) (chr 34)))
	)
   )
;Назначаем текущую толщину
  (cond ((eq cThick nil)
		(setvar "THICKNESS" 0)
		(princ (strcat (chr 10) "Была назначена текущая толщина " (chr 34) "0" (chr 34)))
		)
	(t 
		(setvar "THICKNESS" cThick)
		(princ (strcat (chr 10) "Была назначена текущая толщина " (chr 34) (rtos cThick) (chr 34)))
	)
   )
;Назначим особые свойства для сложных объектов
  (setq TypeObj (strcase name)) 
  (cond 
	((eq TypeObj "ACAD_TABLE")
		(setq StyleTable0 (assoc 342 dan))
		(setq StyleTable (cdr (cdr StyleTable0)));Почему здесь функция останавливает выполнение работы?
	 	(princ StyleTable)
	)
  )
)

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

Предлагаю несколько вариантов:
1. Ты находишь в недрах форума "САПР на базе AutoCAD - как это делается" и внимательно читаешь хотя бы первую половину книги. В ту же степь - "VisualLisp и секреты адаптации AutoCAD" (где-нибудь найти можно, поскольку книга, кажется, 2002 года издания). Вообще литература, чтение, разбор и теде. После этого подобные вопросы отпадут сами собой. И знания приобретут хоть какую-то структуру.
2. Идешь в тему https://forum.dwg.ru/showthread.php?t=22894 и там тебе добрые люди [не]быстро объяснят, что такое entsel/nentsel/nentselp, что оно возвращает, как можно менять объекты через DXF-представления и так далее.

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc внимательно читаешь хотя бы первую половину книги

Уважаемый модератор! Вы наверное не знаете, что "чтение утомляет человека"? Вы что, хотите утомить меня чтением?
Можно много чего почитать на эту тему. Хотя бы номер главы сказали и то было бы легче.

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

Сообщение от МишаИнженер Уважаемый модератор! Вы наверное не знаете, что "чтение утомляет человека"? Вы что, хотите утомить меня чтением? Можно много чего почитать на эту тему. Хотя бы номер главы сказали и то было бы легче.

Значит второй вариант, раз самому думать не хочется.

[Сергей812]

Offtop:

Сообщение от МишаИнженер "чтение утомляет человека"

человека может и утомляет, а инженера - развивает, если чтиво в тему)

[МишаИнженер]

Попробовал выделить Handle из "Строки" с кодом 342

Код:

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

 
  (setq TypeObj (strcase name)) 
  (cond 
	((eq TypeObj "ACAD_TABLE")
		(setq StyleTableID0 (assoc 342 dan))
		(setq StyleTableID00 (itos (cdr StyleTableID0)));Преобразование в строку (появляется ошибка типа переменной)
		(setq StyleTableID (REVERSE (read (REVERSE (vl-string-right-trim ">" StyleTableID00)))))
	)
  )

Но при преобразовании в строку возникает ошибка типа переменной. Почему не получается преобразовать <Имя объекта: 21669b9f470> в строку?