[koval_a_r]

Здравствуйте. Очень мне нужна функция которую не нашел на просторах интернета.

История следующая: я использую группы. Обычно один объект в моих чертежах входит в состав нескольких групп одновременно.
Задача состоит в том чтобы получить список групп в которые входят выделенные объекты.
Есть стандартное меню AutoCAD где можно увидеть такой список (Group Member List), но копировать его и использовать как информацию никак нельзя.
Мне же нужно получить таблицу, перечень в виде текста (через запятую, пробел и т.п.).

Очень нужна помощи просвещенных людей. Заранее спасибо.

[Vov.Ka]

Код:

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

 (defun vk_GetEntGroups (en / ig)
  (vl-remove nil
	     (mapcar (function
		       (lambda (e)
			 (cond ((equal e (cons 102 "{ACAD_REACTORS")) (setq ig t) nil)
			       ((equal e (cons 102 "}")) (setq ig nil))
			       (ig
				(setq e (vlax-ename->vla-object (cdr e)))
				(if (= (vla-get-ObjectName e) "AcDbGroup")
				  (vla-get-Name e)
				)
			       )
			 )
		       )
		     )
		     (entget en)
	     )
  )
)
;;;(vk_GetEntGroups (car (entsel "\nSelect entity: ")))

[koval_a_r]

Уважаемый Vov.Ka,
я совсем чайник - прокомментируйте как воспользоваться вашим lisp-кодом.
Я ознакомился с инструкцией на форуме, но в вашем коде не могу найти "опорные" строчки, описанные в инструкции, как то "defun" , "С:" и прочее.

[Vov.Ka]

Сообщение от koval_a_r как то "defun"

обновил с defun

[koval_a_r]

Продолжу описывать свои чайниковские действия:

1. Загрузил в appload приведенный текст как lisp

2. в AutoCAD набираю в командной строке: (vk_GetEntGroups)

3. Пишет что не хватает аргументов. Дальше я даже не знаю что делать - за гранью моего разума.

Помогите пожалуйста.

[Vov.Ka]

Сообщение от koval_a_r 2. в AutoCAD набираю в командной строке: (vk_GetEntGroups)

я же привел пример вызова

(vk_GetEntGroups (car (entsel "\nSelect entity: ")))

[koval_a_r]

После вызова данной командой и указания на объект, Autocad выдал следующее сообщение

Select entity: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

я указал на обычный отрезок который входит в состав группы

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

Сообщение от koval_a_r Select entity: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

[koval_a_r]

ДА!!!! Спасибо, все заработало! Теперь элементарно задача решена.
Подскажите, чтобы вывести эти же значения в таблицу autocad достаточно LISP, или это уже невозможно?

[VVA]

Еще в этой теме есть примеры
LISP. Группировка и разгруппировка объектов