[dirge]

Здравствуйте! Есть объекты имеющие следующий порядок на чертеже (на рисунке слева). Нужно как-то процедурно иметь возможность эти объекты переупорядочивать чтобы объекты имели всегда направление слева направо и сверху вниз (рисунок справа). Реализация на LISP нужна. Буду рад любой помощи! Спасибо.

[Do$]

Непонятно. Объекты - это текст? Если да, то в Express tools есть автонумерация.

[dirge]

Да, объекты это текст. Я пробовал автонумерацией, она не делает до конца то, что нужно, приходится руками допиливать. Поэтому сюда и обратился.

[hwd]

Сообщение от dirge Реализация на LISP нужна. Буду рад любой помощи!

Например платной? Помощь - это когда ты выкладываешь свой программный код с проблемой и задаёшь по нему конкретные вопросы, но ты просишь за тебя написать - это не помощь, а заявка на выполнение работы.
Offtop: p.s. сама задача в реализации проста как пять копеек.

[Олег (jr.)]

Сообщение от dirge Здравствуйте! Есть объекты имеющие следующий порядок на чертеже (на рисунке слева). Нужно как-то процедурно иметь возможность эти объекты переупорядочивать чтобы объекты имели всегда направление слева направо и сверху вниз (рисунок справа). Реализация на LISP нужна. Буду рад любой помощи! Спасибо.

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

Код:

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

;;				code start 				;;

;;			Sort Texts by X ( > ) then by Y ( < )		;;

(defun C:TSXY  (/ *error* cnt ent_list sorted_list ss unsorted_list)
;; fixo () 2013 * all rights released
  (defun *error* (msg)
   (command "_undo" "_e")
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** ")))
    )                                                                   ; Fatal error, display it
  (princ)
    )

  (command "_undo" "_be")
  (if 
  (setq ss (ssget (list (cons 0 "TEXT"))))
  (progn
  (setq ent_list (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))

(setq	unsorted_list
	 (mapcar (function (lambda (x)
			     (cons (cdr (assoc 10 (entget x))) x)))
		 ent_list)
	)

   (setq	sorted_list	(mapcar 'cdr(vl-sort unsorted_list
			 '(lambda (a b)
			    (cond
			      ((= (car(car a)) (car(car b)))
			       (< (car(car a)) (car (car b))))
			      (<(cadr (car a)) (cadr (car b)))))
			 )
	)
     )

(setq cnt 0)
(mapcar '(lambda (x)
		      (progn
			(setq cnt (1+ cnt))
(entmod (subst (cons 1 (vl-princ-to-string cnt))(assoc 1 x) x))))
	(mapcar 'entget  sorted_list))
  )
  )

(*error* nil)
  (princ)
  )
;;				code end 				;;

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

Сообщение от dirge Буду рад любой помощи!

В поиск! Тема по нумерации текстов и блоков поднималась не один десяток раз.