[Zaghim]

Друзья, вопрос такой. У меня есть много плиний на чертеже, все эти линии я протыкиваю в программе и меняю в каждой линии цвет и высоту. Цвет меняю для того, что бы не замылились глаза при протыкивании всех линий. Так вот, по окончании нужно все линии, которые изменил, вернуть в первозданный вид. Как такое можно провернуть? Пока в голову пришло только менять не цвет, а менять на другой слой с другим цветом, а по завершении делать quickselect и менять на все как было(((

[Лиспер]

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

[Zaghim]

Т.е. запоминать все имена объектов в какой-нибудь список, а потом в цикле по этому списку пробежаться и вернуть все назад?

[Лиспер]

Ну, я бы делал по принципу:

Код:

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

 (vl-load-com)

(defun test (/ ent lst)
  (while (= (type (setq ent (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (vlax-ename->vla-object (car (entsel "\nВыберите отрезок <Отмена> : ")))
                                  ) ;_ end of LAMBDA
                                ) ;_ end of function
                              ) ;_ end of VL-CATCH-ALL-APPLY
                        ) ;_ end of setq
                  ) ;_ end of type
            'vla-object
            ) ;_ end of =
    (setq lst (cons (cons ent (vla-get-color ent)) lst))
    ;; чего-то делаем
    ) ;_ end of while
  (foreach ent lst
    (vla-put-color (car ent) (cdr ent))
    ) ;_ end of foreach
  ) ;_ end of defun

Сам понимаешь, код я не тестировал.