SSGET - порядок следования элементов

kakt00z · 14.07.2009, 16:49

насколько я понял, при выполнении строки
(setq ss (ssget "_W" pt1 pt2))
в набор выбора попадают объекты в окне pt1 pt2
меня интересует порядок их сдедования в "ss" и как его посмотреть ?

подозреваю что попадают они туда в том же порядке, в котором добавлялись к чертежу (поправьте меня еси я тут не прав)

и собственно вопрос - можно ли этот ss сортировать? например по точечной паре (например по координатам вставки)

Кулик Алексей aka kpblc · 14.07.2009, 16:51

Сортировать можно: преобразовываешь набор в список элементов, и потом vl-sort несколько раз

Дима_ · 14.07.2009, 21:12

Цитата:

Сообщение от Кулик Алексей aka kpblc

Сортировать можно: преобразовываешь набор в список элементов, и потом vl-sort несколько раз

А зачем несколько раз???

Кулик Алексей aka kpblc · 14.07.2009, 23:07

Сначала сортировка по одной координате, потом - по второй, и последний раз - по третьей.

Дима_ · 15.07.2009, 00:38

Лисп конечно быстр со списками, но ИХМО написать проверку посложнее, но однопроходную - не проверял, но что-то типа:

Код:

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

(lambda (pt1 pt2) 
(or	(> (car pt1) (car pt2))
	(and (= (car pt1) (car pt2)) (> (cadr pt1) (cadr pt2)))
	(and (= (car pt1) (car pt2)) (= (cadr pt1) (cadr pt2)) (> (last pt1) (last pt2))) 
);end of or
);end of lambda

p.s. - хотя по моему башка не соображает - чуть посложнее она должна быть - но суть такова.

kakt00z · 06.02.2012, 03:29

уважаемые )) ответа НЕТ
пребразовав набор в список, мы получаем СПИСОК ))
есть наверное и правильный ответ, но я его тут не увидел ... пока .. мот ГОМЕР ответит? ))))))))))

Disney · 06.02.2012, 07:32

не прошло и года, ну у тебя и выдержка...

Цитата:

Сообщение от kakt00z

уважаемые )) ответа НЕТ

Ты ждёшь готовое решения(функцию) или подсказки в конкретных вопросах?

VVA · 06.02.2012, 09:43

Цитата:

Сообщение от kakt00z

и собственно вопрос - можно ли этот ss сортировать?

1.

Цитата:

Сообщение от Кулик Алексей aka kpblc

Сортировать можно: преобразовываешь набор в список элементов и потом vl-sort

2. Чистишь набор
3. Формируешь новый набор из отсортированного списка

Frigate · 06.02.2012, 13:41

kakt00z,

как сортировать, тебе описал верно Дима_ (самую важнужю часть кода - условие сортировки).

А порядов в ssget наборах все-таки зависит от точки вставки - я экспериментировал и получил такой результат. ПРичем, сортировка идет по всем осям. ПО Y точно - сверху вниз (в убывающем порядке), по остальным осям - наверное также.

Как раз недавно сделал прогу для печати всех форматок чертежа, с сортировкой по координатам, чтобы проект печатался в нужном порядке.

Дима_ · 06.02.2012, 14:29

По моему в ssget еще играет роль через какие опции формировался набор (например если линией выбирать - то он по ней и выдает), но я считаю так - раз это не документированно, значит может отличаться в зависимости от версии (как в уже выпущенных, так и в будующих) - так что, по хорошему, правильней все равно сортировать по нужным параметрам (но иногда конечно лениво).

Li6-D · 06.02.2012, 19:31

Разные способы сортировки точек

gomer · 06.02.2012, 20:32

Цитата:

Сообщение от kakt00z

пока .. мот ГОМЕР ответит?

я не мот

Цитата:

Сообщение от kakt00z

пребразовав набор в список, мы получаем СПИСОК

Логично, кэп!
Лично я не советую

Цитата:

(setq ss (ssget "_W" pt1 pt2))

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

Disney · 07.02.2012, 06:30

Цитата:

Сообщение от Frigate

А порядов в ssget наборах все-таки зависит от точки вставки - я экспериментировал и получил такой результат.

Нет! Я тоже в своё время экспериментировал, и при выборе рамкой, порядок следования в наборе обратный их порядку создания(появления) в чертеже смотри прикреплённое видео.
а вот моя функция сортировки, наверняка далеко не всё идеально, поэтому постеснялся выкладывать в Библиотеку функций
[IMG]http://s018.***********/i518/1202/70/565d9a2b6dc5.jpg[/IMG]

Код:

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

 
(defun _sort_ (spis		/		 sort_by_clok
	       Sort_radial	sort_horizontal	 sort_vertical
	       sort_diagonal
	      )
					;spis   - to sort a list '((x1 y1 ...)(x2 y2 ...)... (xn yn ...))

;;;(local functions)

;;;
;;;sort_horizontal
;;;
  (defun sort_horizontal (s_f s_s list_)
					;s_f   - first sign of sorting
					;s_s   - second sign of sorting
					;list_ - list to sort
    (vl-sort
      list_
      (function	(lambda	(e1 e2)
		  (or
		    (s_f (car e1) (car e2))
		    (and (eq (car e1) (car e2))
			 (s_s (cadr e1) (cadr e2))
		    )
		  )
		)
      )
    )
  )
;;;
;;;sort_vertical
;;;
  (defun sort_vertical (s_f s_s List_)
					;s_f   - first sign of sorting "<" or ">"
					;s_s   - second sign of sorting "<" or ">"
					;list_ - list to sort
    (vl-sort
      List_
      (function	(lambda	(e1 e2)
		  (or
		    (s_f (cadr e1) (cadr e2))
		    (and (eq (cadr e1) (cadr e2))
			 (s_s (car e1) (car e2))
		    )
		  )
		)
      )
    )
  )
;;;
;;;sort_diagonal
;;;
  (defun sort_diagonal
		       (s_f znac_f znac_s s_s List_)
					;s_f    - first sign of sorting "<" or ">"
					;znac_f - first sign of sorting "+" or "-"
					;znac_s - first sign of sorting "+" or "-"
					;s_s    - second sign of sorting "<" or ">"
					;list_  - list to sort
    (vl-sort List_
	     (function
	       (lambda (e1 e2)
		 (or
		   (s_f	(znac_f (car e1) (cadr e1))
			(znac_f (car e2) (cadr e2))
		   )
		   (and
		     (eq (znac_f (car e1) (cadr e1))
			 (znac_f (car e2) (cadr e2))
		     )
		     (s_s (znac_s (car e1) (cadr e1))
			  (znac_s (car e2) (cadr e2))
		     )

		   )
		 )

	       )
	     )
    )
  )

;;;
;;;Sort by clok
;;;
  (defun sort_by_clok (s_f	  znack	     s_s	list_koord
		       /	  min_X	     max_X	min_Y
		       max_Y	  mid_koord  left_up_koord
		      )
					;s_f         - first sign of sorting "<" or ">"
					;znac        - sign of sorting "+" or "-"
					;s_s         - second sign of sorting "<" or ">"
					;list_koord  - list to sort

					;center gauge
;;;    (setq
;;;      min_X	(mapcar 'car list_koord)
;;;      max_X	(apply 'max min_X)
;;;      min_X	(apply 'min min_X)
;;;      min_Y	(mapcar 'cadr list_koord)
;;;      max_Y	(apply 'max min_Y)
;;;      min_Y	(apply 'min min_Y)
;;;      mid_koord	(list (/ (+ min_X max_X) 2.0)
;;;		      (/ (+ min_Y max_Y) 2.0)
;;;		)
;;;    )
					;center of mass
    (setq
      mid_koord	(list
		  (/ (apply '+
			    (mapcar 'car list_koord)
		     )
		     (length list_koord)
		  )
		  (/ (apply '+
			    (mapcar 'cadr list_koord)
		     )
		     (length list_koord)
		  )
		)
    )
    (setq
      start_angle (if start_angle
		    start_angle
		    (znack
		      (getangle	mid_koord
				(if Russia
				  "\nНачальный угол <0>:"
				  "\nStart angle <0>:"
				)
		      )
		      0.001
		    )
		  )
      start_angle (if start_angle
		    start_angle
		    0
		  )
      list_koord  (vl-sort
		    list_koord
		    (function
		      (lambda (e1 e2)
			(setq e1 (list (car e1)
				       (cadr e1)
				 )
			      e2 (list (car e2)
				       (cadr e2)
				 )
			)
			(setq angle_1 (- (angle	mid_koord
						e1
					 )
					 start_angle
				      )
			      angle_1 (if
					(minusp angle_1)
					 (+ angle_1 pi pi)
					 angle_1
				      )
			      angle_2 (- (angle	mid_koord
						e2
					 )
					 start_angle
				      )
			      angle_2 (if
					(minusp angle_2)
					 (+ angle_2 pi pi)
					 angle_2
				      )
			)
			(or
			  (s_f angle_1 angle_2)
			  (and
			    (eq angle_1 angle_2)
			    (s_s
			      (distance mid_koord e1)
			      (distance mid_koord e2)
			    )
			  )
			)
		      )
		    )
		  )
    )
  )
;;;
;;;Sort_radial
;;;
  (defun sort_radial (s_f	  znack	      s_s	  list_koord
		      /		  min_X	      max_X	  min_Y
		      max_Y	  mid_koord   left_up_koord
		      start_angle
		     )
					;s_f         - first sign of sorting "<" or ">"
					;znac        - sign of sorting "+" or "-"
					;s_s         - second sign of sorting "<" or ">"
					;list_koord  - list to sort

					;center gauge
;;;    (setq
;;;      min_X	(mapcar 'car list_koord)
;;;      max_X	(apply 'max min_X)
;;;      min_X	(apply 'min min_X)
;;;      min_Y	(mapcar 'cadr list_koord)
;;;      max_Y	(apply 'max min_Y)
;;;      min_Y	(apply 'min min_Y)
;;;      mid_koord	(list (/ (+ min_X max_X) 2.0)
;;;		      (/ (+ min_Y max_Y) 2.0)
;;;		)
;;;    )
					;center of mass
    (setq
      mid_koord	(list
		  (/ (apply '+
			    (mapcar 'car list_koord)
		     )
		     (length list_koord)
		  )
		  (/ (apply '+
			    (mapcar 'cadr list_koord)
		     )
		     (length list_koord)
		  )
		)
    )
    (setq
      start_angle
		  (if start_angle
		    start_angle
		    (znack
		      (getangle	mid_koord
				(if Russia
				  "\nНачальный угол <0>:"
				  "\nStart angle <0>:"
				)
		      )
		      0.001
		    )
		  )
      start_angle
		  (if start_angle
		    start_angle
		    0
		  )
      list_koord
		  (vl-sort
		    (vl-sort
		      list_koord
		      (function	(lambda	(e1 e2)
				  (setq	e1 (list (car e1) (cadr e1))
					e2 (list (car e2) (cadr e2))
				  )
				  (s_f (distance mid_koord e1)
				       (distance mid_koord e2)
				  )
				)
		      )
		    )
		    (function (lambda (e1 e2)
				(setq e1 (list (car e1) (cadr e1))
				      e2 (list (car e2) (cadr e2))
				)
				(setq angle_1 (- (angle mid_koord e1)
						 start_angle
					      )
				      angle_1 (if (minusp angle_1)
						(+ angle_1 pi pi)
						angle_1
					      )
				      angle_2 (- (angle mid_koord e2)
						 start_angle
					      )
				      angle_2 (if (minusp angle_2)
						(+ angle_2 pi pi)
						angle_2
					      )
				)
				(and
				  (equal (distance mid_koord e1)
					 (distance mid_koord e2)
					 0.001
				  )
				  (s_s angle_1 angle_2)
				)
			      )
		    )
		  )
    )
  )

;;;;;;;;;;;;;;; (end of local functions)


  (setq Russia (= (getvar "SysCodePage") "ANSI_1251"))
  (cond
    ((eq user_first_sort 1)		;from left to right
     (sort_horizontal
       <
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 2)		;from right to left
     (sort_horizontal
       >
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 3)		;from top to bottom
     (sort_vertical
       >
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 4)		;from bottom to top
     (sort_vertical
       <
       (if (eq user_second_sort 1)
	 <				;from left to right in the direction of travel
	 >				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 5)		;clockwise
     (sort_by_clok
       >
       +
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 6)		;counterclockwise
     (sort_by_clok
       <
       -
       (if (eq user_second_sort 1)
	 <				;from left to right in the direction of travel
	 >				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 7)		;from upper left to lower right
     (sort_diagonal
       <
       -
       +
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 8)		;from upper right to lower left 
     (sort_diagonal
       >
       +
       -
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 9)		;from lower right to upper left 
     (sort_diagonal
       >
       -
       +
       (if (eq user_second_sort 1)
	 <				;from left to right in the direction of travel
	 >				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 10)		;from lower left to upper right
     (sort_diagonal
       <
       +
       -
       (if (eq user_second_sort 1)
	 <				;from left to right in the direction of travel
	 >				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 11)		;from the center
     (sort_radial
       <
       +
       (if (eq user_second_sort 1)
	 >				;from left to right in the direction of travel
	 <				;from right to left in the direction of travel
       )
       spis
     )
    )
    ((eq user_first_sort 12)		;to the center
     (sort_radial
       >
       -
       (if (eq user_second_sort 1)
	 <				;from left to right in the direction of travel
	 >				;from right to left in the direction of travel
       )
       spis
     )
    )
    (T spis)
  )
)

kakt00z · 25.02.2013, 10:40

Ух как тут все активно было)))))
безмерно благодарю ответивших

а ответ то был прост... как я понял... набор соритировать ... нецелесообразно

2 gomer - раз ответил - значет мот :-P а вообще, извиняюсь за недопиСки
2 Disney - внимание

ВОТ где выдержка ))))
еще раз всем спасибо

Погуляев Роман · 25.02.2013, 14:18

Доброго времени суток, господа. Интересует пара вопросов по данной функции:
1) Произведен выбор функцией SSGET и начинается перебор: как прервать цикл на Лиспе (или пропустить ненужную выборку. (на паскале это функции break и continue)??
2) Почему при записи в строковую переменную stroka возникает ошибка.
Автокад пишет, что текст (который я записываю в переменную) не является функцией. Может я что напутал с типом переменных??
код:

Код:

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

       (defun C:sohranit (/ lines otmetki delta_ reply stroka)
	  (setq obekti (ssget))
	  (setq  n (sslength obekti)) ; длина выбора, количество выбранных элементов
	  (setq  i 0)
	
	
	(setq fail (open "C:\\My_fail.txt" "w"))
	
   (while (< i N)

        ; проверка на то, выбран ли текст
        (setq text-control (cdr (assoc 0 (setq e (entget
						   (ssname obekti i))))))

     
      ;  проверка выбранных примитивов. интересует только текст и точки
     ;(if ((= text-control "TEXT") or (=  text-control "POINT")) (;|ничего не выполняем|; nil) (;|прервем выполнение цикла|; nil))  

;+++++++++++++ как прервать цикл ???+++++++++++++++++++++++++++++++++++++++++++++++

     
       ; если текст, распознаем строку и выведем вместе с координатой
     	  (if (=  text-control "TEXT") (
				
			    (setq stroka (cdr (assoc 1 (setq e (entget (ssname obekti i))))))  ;------вот здесь возникает ошибка!!!!!! 
					 
			 	 (setq reply stroka) ; в reply  хочу записать сам текст
					 )

					(setq reply 'POINT))
     
     
	(setq spis (entget (ssname obekti i))) ;список и точечную пару вида (1. "отметка")
	;(setq otm (cdr (assoc 1 (setq e (entget (ssname obekti i))))))
        ; i - каждый выбранный приметив
        ; 1. - код для поиска - содержание в тексте.
        ; в  otm  переводим текст

        (setq koord-T  (cdr (assoc 10 (setq e (entget (ssname obekti i)))))) ; координата

        (setq x1 (car koord-T))
        (setq y1 (cadr koord-T))
        (setq x1 (RTOS_ROUND_STAT x1 2))
        (setq y1 (RTOS_ROUND_STAT y1 2))     

        (setq koord-T (list x1 y1))
        (terpri) ;перевод курсора на новую строку
        (princ koord-T fail);пишем на экран координату  
        (princ reply fail)
        (princ "\n" fail)

     

   (setq i (+ i 1))  
   )
	  

 (close fail)
	)

Do$ · 25.02.2013, 14:29

Прямое прерывание выполнения функции в автокадовском лиспе есть, но оно очень радикальное - функция EXIT или QUIT.
В 100% случаев можно перестроить код таким образом, что оно не понадобится.

ытя · 25.02.2013, 14:43

Код:

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

 
(if (= text-control "TEXT") (
 (setq stroka (cdr (assoc 1 (setq e (entget (ssname obekti i)))))) ;------вот здесь возникает ошибка!!!!!!
 (setq reply stroka) ;  в reply хочу записать сам текст
 )

Дима_ · 25.02.2013, 14:45

Цитата:

Сообщение от Погуляев Роман

Автокад пишет, что текст (который я записываю в переменную) не является функцией. Может я что напутал с типом переменных??

Напутал, но не в том месте где думаешь - ты пытаешься запустить на исполнение строку полученную из примитива (т.к. ссылаешься на паскаль - то предположу что он ближе - представь что ты пытаешься не прочитать а "запустить" текстовой файл) в строке (if (= text-control "TEXT") (...
тебе надо или добавить progn ... или объеденить два setq в одно.

Цитата:

Сообщение от Погуляев Роман

++++ как прервать цикл ???+++++++

Забудь в лиспе про этот метод раз и навсегда (а лучше не только в лиспе). Устанавливай флаг выхода и вперед, а вобще что while, что setq являются атавизмами лиспа и используются, либо в очень ограниченных случаях связанных с ограничениями автолиспа, либо "паскалевцами" потому как им "так удобней" - особенно когда не знают как по другому. Мой совет - или работай с автокадом из паскаля (delphi), или пиши на лиспе по лисповски - то что написанно у тебя - чесание правого уха левой ногой - неэффективно с любой точки зрения.

Погуляев Роман · 25.02.2013, 14:51

Цитата:

Сообщение от Дима_

Напутал, но не в том месте где думаешь - ты пытаешься запустить на исполнение строку полученную из примитива (т.к. ссылаешься на паскаль - то предположу что он ближе - представь что ты пытаешься не прочитать а "запустить" текстовой файл) в строке (if (= text-control "TEXT") (...
тебе надо или добавить progn ... или объеденить два setq в одно.

Более менее понятно. Сейчас попробую. Спасибо большое.
Я всегда писал только на паскале. Лисп для меня пока сложен и непонятен. вот разбираюсь, как могу...

14.07.2009, 16:49		#1
SSGET - порядок следования элементов kakt00z инженер-проектировщик КИПиА Минск Регистрация: 30.08.2008 Сообщений: 159 насколько я понял, при выполнении строки (setq ss (ssget "_W" pt1 pt2)) в набор выбора попадают объекты в окне pt1 pt2 меня интересует порядок их сдедования в "ss" и как его посмотреть ? подозреваю что попадают они туда в том же порядке, в котором добавлялись к чертежу (поправьте меня еси я тут не прав) и собственно вопрос - можно ли этот ss сортировать? например по точечной паре (например по координатам вставки)
Просмотров: 5472

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание дополнительных параметров Visibility Set в динамических блоках.	Supermax	Программирование	716	22.07.2024 11:04
Случайный эксцентриситет	p_sh	Прочее. Архитектура и строительство	14	22.07.2009 11:32
Проблема с функцией ssget	Scorpio_1986	Программирование	4	26.05.2009 10:07
Нумерация объемных элементов при моделировании грунта в SCAD	Den_Den	SCAD	11	20.11.2008 04:27
Lisp: Список элементов в слоях	ALFMario	LISP	4	29.04.2008 17:26