[Zaghim]

Друзья, такая проблема. Две команды в связке в середине кода:

Код:

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

(command "-layer" "f" "*" "" "")
      (command "-layer" "t" sloyv2 "" "")

, где sloyv2 - имя слоя.
Так вот этот слой после заморозки всего не размораживается. Вот хоть убей. И тут же фантастика, если расставить брейки и поставить один сразу после выполнения разморозки - все ОК. Все размораживается. А если просто, то как-будто пролетает мимо. В чем может быть проблема?

[TararykovDG]

Сообщение от Zaghim Но я все же удивлен почему не работает двумя командами...

Ну почему не работает, можно и командными методами

Код:

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

(defun unfreeze(lst_layers / )
  (foreach item lst_layers
    (vl-cmdf "_-layer" "_T" item "")
    )
  ); end unfreeze

Просто использовать командные методы - это так называемый (книга "САПР на базе AutoCAD как это делается" от ShaggyDoc) "инженерный" стиль программирования у программистов не в почете.

[Zaghim]

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

[Лиспер]

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

[E-degtyarev]

Ну если чисто тупо командными методами, то попробуй не двумя, а тремя командами, авось получится.

Код:

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

(command "-layer" "f" sloyv1 "" )
(command "-layer" "s" sloyv2 "" )
 (command "-layer" "t" sloyv1 "" )

[Gaa]

Часто надо заморозить/разморозить один слой.
Написал такой лиспик, морозит нормально, но при разморозке иногда не срабатывает, вернее слой размораживается (метится как не замороженный), а на экран не выдается.

что здесь не хватает?

Код:

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

 (defun c:FC () ;_********************** freeze/THAW Layer --Cons    
  (setq ed (entget (setq obj (tblobjname "layer" "--Cons"))))
  (if (= (cdr (assoc 70 ed)) 0)
    (setq G_freeze 1)
    (setq G_freeze 0)
  ) ;_if
;;;  (TYPE (cdr (assoc 70 ed)))
;;;  (TYPE (assoc 70 ed))
  (setq ed (subst (cons 70 G_freeze) (assoc 70 ed) ed))
  (entmod ed)
) ;_defun 

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

Добавь принудительное обновление: (redraw) либо (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acallviewports)