LIST解冻图层后为什么不显示

Hart

请教一下,用LISP对图层进行操作,冻结后再解冻,图层上的东西就看不到了,用REGEN REDRAW REDRAWALL ZOOM命令都没用,用移动(ALL)一下,就可以显示出来了,为什么会这样,怎么解决?

用法:

(layer1 "freez")全部冻结
(LAYER1 "THAW")全部解冻
(LAYER1 "ON")全部开启
(LAYER1 "OFF")全部关闭
(LAYER1 "LOCK")全部锁住
(LAYER1 "UNLOCK")全部解琐

;程序来自XD

(defun layer1(do / CORD_LAYER CLAY LAYEN LAYEN_DATA LAYERLIST LAYERNAME)
  (setq cord_layer (tblnext "layer" t))
  (setq layerlist nil)
  (SETQ CLAY (GETVAR "CLAYER"))
  (while cord_layer
    (setq layername (cdr(assoc 2 cord_layer)))
    (setq layerlist (cons layername layerlist))
    (setq cord_layer (tblnext "layer"))
    )
  (cond ((= (strcase do) "OFF")
     (foreach item layerlist
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (setq layen_data (subst (cons 62 (* -1 (abs(cdr(assoc 62 layen_data)))))
          (assoc 62 layen_data)
          layen_data
          ))
           (entmod layen_data)
      )
    ))
    ((= (strcase do) "ON")
     (foreach item layerlist
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (setq layen_data (subst (cons 62 (abs(cdr(assoc 62 layen_data))))
          (assoc 62 layen_data)
          layen_data
          ))
           (entmod layen_data)
      )
    ))
    ((= (strcase do) "THAW")
         (foreach item layerlist
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (IF (= (boole 1 (cdr (assoc 70 layen_data)) 1) 1)
         (setq layen_data (subst (cons 70 (1- (cdr(assoc 70 layen_data))))
          (assoc 70 layen_data)
          layen_data
          ))
         )
           (entmod layen_data)
      )
    ))
    ((= (strcase do) "FREEZ")
     (foreach item layerlist
       (IF (/= CLAY ITEM)
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (IF (= (boole 1 (CDR (assoc 70 layen_data)) 1) 0)
         (setq layen_data (subst (cons 70 (1+ (cdr(assoc 70 layen_data))))
          (assoc 70 layen_data)
          layen_data
          ))
         )
           (entmod layen_data)
      )
    ))
    )
    ((= (strcase do) "LOCK")
     (foreach item layerlist
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (IF (= (boole 1 (CDR (assoc 70 layen_data)) 4) 0)
            (setq layen_data (subst (cons 70 (+ (CDR (assoc 70 layen_data)) 4))
          (assoc 70 layen_data)
          layen_data
          ))
         )
           (entmod layen_data)
      )
    )
    )
    ((= (strcase do) "UNLOCK")
     (foreach item layerlisT
    (progn (setq layen (tblobjname "layer" item))
           (setq layen_data (entget layen))
           (IF (= (boole 1 (CDR (assoc 70 layen_data)) 4) 4)
            (setq layen_data (subst (cons 70 (- (CDR (assoc 70 layen_data)) 4))
          (assoc 70 layen_data)
          layen_data
          ))
         )
           (entmod layen_data)
      )
    )
    )
    
  )
  (princ)
  )

ZZXXQQ

是从晓东找来的吧！手边没有高版本，写了个小程序试试能不能将图元显示出来？

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0