[Disney]

Возникла такая задача, по любому где-то уже решалась, но поиском ничего похожего не нашёл.
Стало интересно решить самому, получилось вот такое:

Код:

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

 
;;;  (group_ssget_rec (ssnamex (ssget)) nil)



(defun group_ssget_rec (ss_list flag / item)
  (setq	temp_list ss_list
	item	  (car ss_list)
  )
  (cond
    ((and (> (car item) 1)
	  (eq flag (car (reverse item)))
     )
     (cons (cadr item) (group_ssget_rec (cdr ss_list) flag))
    )
    (flag
     (setq flag nil)
    )
    ((> (car item) 1)
     (setq flag (car (reverse item)))
     (cons (group_ssget_rec ss_list flag)
	   (group_ssget_rec temp_list nil)
     )
    )
    ((eq (car item) 1)
     (cons (list (cadr item))
	   (group_ssget_rec (cdr ss_list) nil)
     )
    )
  )
)

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

[Дима_]

temp_list не локализован.

[Disney]

Сообщение от Дима_ temp_list не локализован.

А тогда работать не будет.
Это локальная функция программы, поэтому temp_list я локализую уже в самой программе.
Как раз вот этот момент мне и не нравиться, почему и создал тему.
Ну и уже потом заменил (car(reverse на (last

[Oliver_88]

Сильно не проверял.

Код:

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

 ;(test (ssnamex (ssget)))
      (defun test (lst)
	(if lst
	  (cons
	    (mapcar 'cadr (vl-remove-if
			    (function
			      (lambda (a)
				(/= (last a) (last (car lst)))
				)
			      )
			    lst
			    )
		    )
	    (test
	      (vl-remove-if
		(function
		  (lambda (a)
		    (or
		      (= (last a) (last (car lst)))
		      (listp (cadr a))
		      )
		    )
		  )
		lst
		)
	      )
	    )
	  )
	)

[Дима_]

Сообщение от Disney А тогда работать не будет. Это локальная функция программы, поэтому temp_list я локализую уже в самой программе.

Ну про этож не было сказанно, но в любом случае - тогда сама group_ssget_rec в "большой" программе должна быть локализированна - в автолиспе нет связывания и вызывая эту функцию "из вне" мы "портим" чей-то temp_list (возможно другой такой-же group_ssget_rec) - то есть при таком подходе мы не можем "смело" использовать ее в "рекурсивной" задаче - т.к. функция "не чистая" - это одна из причин почему я использую лямбды - не надо ничего "локализировать" и 100% можно вызывать все объявленные имена откуда хочешь - если присваивания нет, никто ничего не испортит, но это, что называется, на любителя.

[Li6-D]

Непонятно назначение переменной flag, когда она не nil.
Если flag=0,1,2,3,4 (способ выбора объектов), то почему flag сравнивается с (last item), a не (car item)?
Или нечто более экзотическое, например, flag=-1,-2,-3...(номер многоугольника выбора)?

[Disney]

Сообщение от Li6-D Или нечто более экзотическое, например, flag=-1,-2,-3...(номер многоугольника выбора)?

Да именно так, разобрать по группам, один многоугольник - одна группа.

[Li6-D]

Простите великодушно, что без рекурсии и лямбды

Код:

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

(defun test2 (ss_list / a s sN s1N)
  (foreach item (reverse ss_list)
    (cond
      ((> (car item) 1) 
        (setq a (list (last item) (cadr item))
              s (assoc (car a) sN)
              sN (if s
                   (subst (append a (cdr s)) s sN)
                   (cons a sN)
      ) )        )
      ((eq (car item) 1)
        (setq s1N (cons (list (cadr item)) s1N))
  ) ) )
  (append s1N (mapcar 'cdr sN))
)

[Disney]

Li6-D, Не пойдёт , я сразу не упомянул, но порядок выбора также очень важен!
в твоём варианте как-то так:

Код:

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

 (defun test2 (ss_list / a s sN)
  (foreach item	(reverse ss_list)
    (cond
      ((> (car item) 1)
       (setq a	(list (last item) (cadr item))
	     s	(assoc (car a) sN)
	     sN	(if s
		  (subst (append a (cdr s)) s sN)
		  (cons a sN)
		)
       )
      )
      ((eq (car item) 1)
       (setq sN (cons (list "привет!" (cadr item)) sN))
      )
    )
  )  
  (mapcar 'cdr sN)
)

Сообщение от Дима_ я использую лямбды

можно примерчик, в целях повышения образованности ©

[Дима_]

Да этих примеров в моем каждом 10-ом сообщении, если что-то непонятно - пиши отвечу (если сам знаю конечно).

[Li6-D]

Сообщение от Disney Li6-D, Не пойдёт , я сразу не упомянул, но порядок выбора также очень важен! в твоём варианте как-то так:

Ну да, с "приветом" даже проще получилось