Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Разморозка слоя и регенерация объектов, находящихся на нем

Назад к списку функций
;;; Переключает замороженное состояние слоя
;;; и регенирирует его если слой содержит объекты
;;;
;;; Проверно на AutoCAD 2000
;;; Аргумент: Слой {список слоев}
;;; Пример: (layer-toggle-freeze '("Layer1" "Layer2"))

(defun layer-toggle-freeze (layer / en f ss ent i fg)
  (foreach la layer
    (setq en (entget (tblobjname "layer" la)))
    (setq f (cdr (assoc 70 en)))
    (setq f (boole 6 f 1))
    (if (and (wcmatch la "*|*") (eq 0 (logand 1 f))) (setq rg T))
    (setq en (subst (cons 70 f) (assoc 70 en) en))
    (entmod en)
    (setq ss (ssget "X" (list (cons 8 la))))
    (setq i 0)
    (if ss 
      (while (setq ent (ssname ss i))
        (entupd ent)
        (setq i (1+ i))
      )
    )
  )
  (if rg (command "._regenall"))
  (princ)
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko