[Patrone]

Всем привет!
Подскажите, пожалуйста, возможно ли по значению атрибута из блока перенести этот блок в другой слой с помощью LISP?
Поменять цвет блока по значению атрибута - тоже интересен вариант - но я так понимаю в автокаде невозможен.

[engngr]

Возможно.
Возможно.

[trir]

в Map 3D есть штатный инструмент

[Patrone]

Ребята, а если нет Map 3D, то насколько трудоёмко будет написать такой скрипт для чистого автокада, чтобы сравнить значение атрибутов с одним именем в нескольких блоках, и три сценария предусмотреть:
найти блок с самым маленьким значением этого параметра - и перенести этот блок в слой1/подкрасить
найти блоки с значением параметра из диапазона числового - и перенести их в слой2/подкрасить
найти блок с самым большим значением параметра - и перенести его в слой3/подкрасить
Трудоёмко если с нуля и трудоёмко если на опыте человек?))

[Сергей812]

трудоемкость повышается на порядок - когда вместо графического представления: исходные данные/условия и что нужно получить - пытаются это руками и текстом рассказать)

[trir]

1. Выгрузить данные в Excel
2. Найти нужное
3. Написать скрипт

[Patrone]

Возможен вариант за вознаграждение сделать такой скрипт?
В каком формате мне нужно сделать исходные данные, алгоритм, чтобы можно было получить ответ по цене?)
(bpmn, ...)

[trir]

файлик выложи

[kp+]

Сообщение от Patrone В каком формате мне нужно сделать исходные данные

DWG, для начала

[===AAA===]

Да ладно, Excel-то зачем? :-)
Чистого LISP'па вполне хватит...

[Alan]

Возможно.
Возможно.

[Patrone]

Вот файлик.
Внутри создано три блока.
У каждого одинаковый набор параметров.
Марка
Параметр1
Параметр2.

Например по Параметру1, скриптом выяснить, какой из блоков с минимальным значением Параметр1 и перенести его с Слой1.

Если пообещаю скинуть на пиво... смогу ли увидеть такой скрипт тогда?

[trir]

можно удалить блоки и вставить их из Excel'я как надо

[Patrone]

Сообщение от trir можно удалить блоки и вставить их из Excel'я как надо

Эмм, а это как?

[trir]

в екселе можно написать скрипт вставки блока на нужный слой

(command "clayer" "слой1")
(command "-ВСТАВИТЬ" "Марка" '(100 100 0) 1000 1000 0 "test1" "test2" "test3")

[kp+]

"Низким штилем", без защит и проверок

Код:

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

 (defun c:script1 (/
		  search_b_name search_tag
		  ATRS ATT_1 B_A_1 B_A_LIST B_LIST SS VL_B_LIST
		  )
        (setq search_b_name "Марка" search_tag "ПАРАМЕТР1")
  	(setq ss (ssget "_X" (list (cons 0  "INSERT") (cons 2 search_b_name))));;выбор всех нужных блоков
	(setq b_list (ssnamex ss));преобразование набора в список
	(setq ss nil)
	(setq b_list (mapcar 'cadr b_list));выкидывание номеров набора из списка
        (setq vl_b_list (mapcar 'vlax-ename->vla-object b_list));преобразование во VLA-объекты
        (setq b_a_list nil atrs nil b_a_1 nil att_1 nil)
        (foreach x vl_b_list
	  (progn
	    (setq atrs (vlax-invoke x 'Getattributes))
	    (setq att_1 (car (vl-remove-if-not '(lambda (x) (= (vla-get-TagString x) search_tag)) atrs)))
	    (setq b_a_1 (list
				 (cons "b_name" x)
				 (cons "att_v" (atof (vla-get-textstring att_1)))
			       )
            )
            (setq b_a_list (append b_a_list (list b_a_1)))

          )
	)
        (setq b_a_list (vl-sort b_a_list
				(function
				  (lambda (e1 e2)
						     (>
						       (cdr (assoc att_v e1))
						       (cdr (assoc att_v e2))
						     )
	                          )
				)
		       )
	)
        (vla-put-layer (cdr (assoc "b_name" (last b_a_list))) "Слой1") ;блок с мин. "параметром1" - в слой1
	(vla-put-layer (cdr (assoc "b_name" (car b_a_list))) "Слой2") ;блок с макс. "параметром1" - в слой2
)

[trir]

там уже сделали всё

[Patrone]

Сообщение от kp+ "Низким штилем", без защит и проверок

Спасибо!
Что заметил, у программистов день поздно заканчивается)

[kp+]

Offtop:

Сообщение от Patrone Что заметил, у программистов день поздно заканчивается)

Лично я вовсе не программист, рабочим днем, который с 8:00 до 17:00 - обычный инженеГр. А это так, от бессонницы вспомнил старое и мало кому интересное