AutoLisp Разморозить слой

AutoLisp Разморозить слой · 09.11.2010, 15:56

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

Код:

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

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

TararykovDG · 09.11.2010, 16:17

Zaghim, у меня вроде все работает, правда последние "" в каждой строке лишние. Можно попробывать рамораживать слой так

Код:

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

(setq ed (entget (setq obj (tblobjname "layer" sloyv2))))
(setq ed (subst (cons 70 0) (assoc 70 ed) ed))
(entmod ed)

Zaghim · 09.11.2010, 16:32

TararykovDG, Спасибо огромное!!!!!!!!!! Вот именно так все заработало, круто. СПАСИБО!!!!

gomer · 09.11.2010, 20:04

Цитата:

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

се заработало, круто

А вот так еще круче

Код:

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

;;; (vl-load-com)
(defun thaw (lyrname)
 (not
   (vl-catch-all-error-p
     (vl-catch-all-apply
        (function
          (lambda ()
            (vla-put-Freeze
              (vla-Item
                (vla-get-Layers
                  (vla-get-ActiveDocument
                    (vlax-get-acad-object)
                  )
                )
                lyrname
              )
              :vlax-False
            )
          )
        )
      )
    )
  )
)

(if (thaw (setq sloyv2 "Слой1"))
  (progn
  ;; ваш код
  )
)

Олег (jr.) · 09.11.2010, 21:31

Цитата:

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

Zaghim, у меня вроде все работает, правда последние "" в каждой строке лишние. Можно попробывать рамораживать слой так

Код:

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

(setq ed (entget (setq obj (tblobjname "layer" sloyv2))))
(setq ed (subst (cons 70 0) (assoc 70 ed) ed))
(entmod ed)

Cм. справку:
(Command "_layerp")

TararykovDG · 10.11.2010, 06:54

Олег (jr.), См. пост #1

Цитата:

Сообщение от Олег (jr.)

Cм. справку:
(Command "_layerp")

И что? (Command "_layerp") Вы восстановили предыдущее состояние слоя, т. е. разморозили все слои, которые были заморожены автором темы командой (command "-layer" "f" "*" "" ""), а надо-то разморозить конкретный слой.

Zaghim · 01.12.2010, 16:54

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

Александр Ривилис · 01.12.2010, 22:08

Цитата:

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

бред вообще

Это точно. Кусок кода в студию. И кстати не мешает после разморозки вызвать регенерацию.

Zaghim · 02.12.2010, 10:11

Код:

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

(setq sloyv1 (entget sloyv))
(setq sloyv2 (cdr (assoc 8 sloyv1)))   получил первый слой

(setq sloyz1 (entget sloyz))
(setq sloyz2 (cdr (assoc 8 sloyz1)))   получил второй слой

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

Замораживаю все, а нужно разморозить только 2 конкретных слоя.

(setq razsl (entget (setq razobj (tblobjname "layer" sloyz2))))
(setq razsl (subst (cons 70 0) (assoc 70 razsl) razsl))
(entmod razsl)

(setq ed (entget (setq obj (tblobjname "layer" sloyv2))))
(setq ed (subst (cons 70 0) (assoc 70 ed) ed))
(entmod ed)

С регенерацией пробовал. Эффект тот же.
Причем если прервать программу и посмотреть в список слоев они показываются как видимые...
Кстати Автокад 2010 версии...

Лиспер · 02.12.2010, 10:24

Код:

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

(vl-load-com)

(defun dwgru-freeze-selected-layers (/ adoc layers selset err err_lst)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq layers (vla-get-layers adoc))
  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget)
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (foreach layer (mapcar
                       (function
                         (lambda (x)
                           (vla-item layers (cdr (assoc 8 (entget x))))
                           ) ;_ end of lambda
                         ) ;_ end of function
                       ((lambda (/ tab item)
                          (repeat (setq tab  nil
                                        item (sslength selset)
                                        ) ;_ end setq
                            (setq tab (cons (ssname selset (setq item (1- item))) tab))
                            ) ;_ end of repeat
                          ) ;_ end of lambda
                        )
                       ) ;_ end of mapcar
        (if (vl-catch-all-error-p (setq err (vl-catch-all-apply
                                              (function
                                                (lambda ()
                                                  (vla-put-freeze layer :vlax-true)
                                                  ) ;_ end of lambda
                                                ) ;_ end of function
                                              ) ;_ end of vl-catch-all-apply
                                        ) ;_ end of setq
                                  ) ;_ end of vl-catch-all-error-p
          (setq err_lst (cons (cons (vla-get-name layer) (vl-catch-all-error-message err)) err_lst))
          ) ;_ end of if
        ) ;_ end of foreach
      (if err_lst
        (princ (strcat "\nНевозможно заморозить слои: "
                       (apply
                         (function strcat)
                         (mapcar
                           (function
                             (lambda (x)
                               (strcat "\n\"" (car x) "\" : " (cdr x))
                               ) ;_ end of lambda
                             ) ;_ end of function
                           err_lst
                           ) ;_ end of mapcar
                         ) ;_ end of apply
                       ) ;_ end of strcat
               ) ;_ end of princ
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(defun dwgru-unfreeze-all-layers (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for layer (vla-get-layers adoc)
    (if (not (wcmatch (vla-get-name layer) "*|*"))
      (vl-catch-all-apply
        (function
          (lambda ()
            (vla-put-freeze layer :vlax-false)
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Zaghim · 02.12.2010, 10:29

Жесть какая-то))) А можно комментарии к работе программы?
Просто пипец, вместо двух команд:
(command "-layer" "f" "*" "")
(command "-layer" "t" sloyz2 "")
получаются такие крокодилы....кошмар.

Лиспер · 02.12.2010, 10:33

Зато работает

Там всего-то две функции - (dwgru-freeze-selected-layers) и (dwgru-unfreeze-all-layers), алгоритм работы прост до ужаса. Извини, но сейчас нет времени объяснять подробнее. Может, кто другой расскажет...

TararykovDG · 02.12.2010, 10:38

Цитата:

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

Жесть какая-то))) А можно комментарии к работе программы?
Просто пипец, вместо двух команд:
(command "-layer" "f" "*" "")
(command "-layer" "t" sloyz2 "")
получаются такие крокодилы....кошмар.

Zaghim, на самом деле Лиспер предложил очень даже правильный код, но если хочешь что-нибудь попроще

Код:

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

; Пример вызова: (unfreeze (list sloyz2 sloyv2))

(defun unfreeze(lst_layers / )
  (foreach item lst_layers
    (if (tblobjname "layer" item)
      (entmod (subst (cons 70 0) (assoc 70 (entget (tblobjname "layer" item))) (entget (tblobjname "layer" item))))
      )
    )
  (princ)
  ); end unfreeze

Zaghim · 02.12.2010, 10:51

TararykovDG, сделал так

Код:

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

(setq lst_layers (list sloyz2 sloyv2))
  (foreach item lst_layers
    (if (tblobjname "layer" item)
      (entmod (subst (cons 70 0) (assoc 70 (entget (tblobjname "layer" item))) (entget (tblobjname "layer" item))))
    )
  )
  (princ)

результата никакого

TararykovDG · 02.12.2010, 11:08

Цитата:

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

TararykovDG, а можно такой же код, только в версии не для отдельного вызова, а уже внутри существующего кода?

Сильная фраза!!!
Он и так не для отдельного вызова. Просто добавь в начало своего лисп файла описании функции unfreeze , а теперь в любом месте твоего кода вызывай функцию (unfreeze (list sloyz2 sloyv2))
Т.е. так

Код:

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

; Описание функции unfreeze
(defun unfreeze(lst_layers / )
  (foreach item lst_layers
    (if (tblobjname "layer" item)
      (entmod (subst (cons 70 0) (assoc 70 (entget (tblobjname "layer" item))) (entget (tblobjname "layer" item))))
      )
    )
  (princ)
  ); end unfreeze

;  -------------- Твой код -----------
(setq sloyv1 (entget sloyv))
(setq sloyv2 (cdr (assoc 8 sloyv1)))   получил первый слой

(setq sloyz1 (entget sloyz))
(setq sloyz2 (cdr (assoc 8 sloyz1)))   получил второй слой

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

Замораживаю все, а нужно разморозить только 2 конкретных слоя.
; вместо этого (всего что красным)
(setq razsl (entget (setq razobj (tblobjname "layer" sloyz2))))
(setq razsl (subst (cons 70 0) (assoc 70 razsl) razsl))
(entmod razsl)

(setq ed (entget (setq obj (tblobjname "layer" sloyv2))))
(setq ed (subst (cons 70 0) (assoc 70 ed) ed))
(entmod ed)
; будет это
(unfreeze (list sloyz2 sloyv2)) ; вызываем функцию unfreeze
... ; продолжение твоего кода

Цитата:

TararykovDG, сделал так
результата никакого

Никакго результат быть не может. Может быть отрицательный результат - слои не разморозились. Проверь корректность имен слоев или выкладывай dwg-файл (сохрани в формате не старше 2008 ACad'a)

Zaghim · 02.12.2010, 11:35

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

TararykovDG · 02.12.2010, 11:58

Открыл твой чертеж. Ввел (command "_-layer" "_f" "*" "") - заморозилиь все слои, кроме "0" (так как он текущий). Ввел (unfreeze '("Организация рельефа" "Точки")) - оба слоя разморозились.
Могу предложить сдледующие. Открываешь чертеж, входишь в Visual Lisp IDE (в ком. строке ввести _vlide или "Сервис" -> "AutoLisp" -> "Редактор Visual Lisp"). Открываешь свой lisp файл и в пошаговом режиме проверяешь код.

Zaghim · 02.12.2010, 12:07

Да собственно код вот

Код:

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

(defun c:prof ( )
  (vl-load-com)

;;;*========================================================
;;;*Получение исходный данных                               
;;;*========================================================

  (setq ls_pt nil)
  (setq ls_dst nil)
  (setq ls_ang nil)
  (setq schet 1)
  (setq metka 0)
  (setq metka2 0)
  (setq metka3 0)
  (setq metka4 0)
  (setq metka5 0)
  (setq cl 1) 
  (setq pl 1)
  (setq sk -1)
  (setq sd -1) 
  (setq pp (getpoint "\nТыкай точку или <Enter>:"))
  (setq sk (1+ sk))
  (setq ls_pt (cons pp ls_pt))
  (while cl
    (setq pt (getpoint pp "\nТыкай точку или <Enter>:"))
      (if (= pt nil)
        (setq cl nil)
    (progn
      (setq dst (distance pp pt))
      (setq ls_dst (cons dst ls_dst))
      (setq ang (angle pp pt))
      (setq ls_ang (cons ang ls_ang))
      (setq sd (1+ sd))
      (setq sk (1+ sk))
          (setq ls_pt (cons pt ls_pt))
      (setq zn (nth 0 ls_pt))
      (setq pp zn)
    )
      )
  )

  (setq shag (getreal "Задайте шаг: "))
  (if (= shag nil)
    (progn
      (alert "Шаг не задан. По умолчанию принимаем шаг = 1")
      (setq shag 1)
    )
  )
  (setq sloyv (car (entsel "Укажи на слой 1: ")))
  (if (= sloyv nil)
    (progn
      (alert "Промах. Попробуй еще раз.")
      (setq sloyv (car (entsel "Укажи на слой 1: ")))
      (if (= sloyv nil)
    (progn
      (alert "Балуйся в другом месте. Пока.")
      (exit)
    )
      )    
    )
  )
  (setq sloyv1 (entget sloyv))
  (setq sloyv2 (cdr (assoc 8 sloyv1)))
  
;;----------------------------------------------------------------------;;
  
  (setq sloyz (car (entsel "Укажи на слой 2: ")))
  (if (= sloyz nil)
    (progn
      (alert "Промах. Попробуй еще раз.")
      (setq sloyz (car (entsel "Укажи на слой 2: ")))
      (if (= sloyz nil)
    (progn
      (alert "Балуйся в другом месте. Пока.")
      (exit)
    )
      )    
    )
  )
  (setq sloyz1 (entget sloyz))
  (setq sloyz2 (cdr (assoc 8 sloyz1)))

  
  (setq zosm (getvar "osmode"))
  (setvar "osmode" 0)
  
  (setq z1 (list 0.0 0.0)
    z2 (list 10.0 0.0)
    esp 0.1
        terminate 1)
    
  (setq ug1 (angle z1 z2))                    ;0
  (setq ug2 (+ ug1 1.57079632679489655800))   ;90
  (setq ug3 (+ ug2 1.57079632679489655800))   ;180
  (setq ug4 (+ ug3 1.57079632679489655800))   ;270
  
  (setq sks sk)
  (setq mm 1)
  (setq bp1 (nth sk ls_pt))
  (setq bp1p bp1)
  (setq dist (nth sd ls_dst))
  (setq ang (nth sd ls_ang))
  (setq ang2 (+ ang ug3))

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

  (unfreeze (list sloyz2 sloyv2))

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

TararykovDG · 02.12.2010, 13:27

Zaghim, выяснился интересный момент. На самом деле слои размораживатся (причем именно все, указанные в списке), но вот объекты расположенные на втором и последующих слоях указанных для разморозки не перерисовываются. Код предложенный Липер эту проблему решает. Так как Тебе он показался слишком длинным, вот его укороченный вариант

Код:

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

(defun unfreeze(lst_layers / adoc)
  (vlax-for item (vla-get-Layers (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))))
    (if (member (vla-get-Name item) lst_layers)
      (vla-put-Freeze item :vlax-false)
      )
    )
  (vla-regen adoc acallviewports)
  ); end unfreeze

Zaghim · 02.12.2010, 13:43

Да, да... именно так и есть, в слоях горит лампочка и солнышко, а на чертеже его не видно...
Сейчас попробую данный код.

Супер. Даже не знаю как благодарить. СПАСИБО, ТЕПЕРЬ ВСЕ РАБОТАЕТ!!!
Но я все же удивлен почему не работает двумя командами...

Предложение. Что бы прикончить тему и помочь окончательно всем нуждающимся, может сделать 4 кусочка кода, в котором будет следующее: заморозка всех слоев, разморозка нужного(ых) слоя(ев), заморозка их же, ну и под конец возвращение всех слоев в первоначальное состояние.

TararykovDG · 02.12.2010, 14:23

Цитата:

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

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

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

Код:

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

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

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

Zaghim · 02.12.2010, 15:37

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

Лиспер · 02.12.2010, 15:43

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

E-degtyarev · 02.12.2010, 16:38

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

Код:

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

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

Gaa · 22.01.2015, 17:26

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

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

Код:

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

 (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 · 22.01.2015, 17:28

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как переместить блоки на определённый слой	digar	Программирование	22	21.01.2022 14:35
Как скриптом VBA заморозить слой в одном вьюпорте?	K_O_S_T_	Программирование	1	09.09.2009 16:45
Эллипс + слой ?	Piton	AutoCAD	10	09.08.2006 13:06
Не печатается выбранный нижний слой полностью	maslina	AutoCAD	11	26.04.2006 15:10

09.11.2010, 15:56		#1
AutoLisp Разморозить слой Zaghim Регистрация: 01.07.2010 Сообщений: 521 Друзья, такая проблема. Две команды в связке в середине кода: Код: [Выделить все] (command "-layer" "f" "*" "" "") (command "-layer" "t" sloyv2 "" "") , где sloyv2 - имя слоя. Так вот этот слой после заморозки всего не размораживается. Вот хоть убей. И тут же фантастика, если расставить брейки и поставить один сразу после выполнения разморозки - все ОК. Все размораживается. А если просто, то как-будто пролетает мимо. В чем может быть проблема?
Просмотров: 7716