[求助]：图层操作，屏幕不刷新显示？

andyding

以下冻结解冻图层程序执行后，数据库有改变，图层管理器里也有变化，可是屏幕上不刷新显示，

请问各位大侠这是什么问题？


                 
(defun andy_layer_on
       (layer_name / tbdata lname echo data c70 c62 q70 q62 have)
  (setq have 0)
  (setq tbdata (tblnext "layer" T))
  (while tbdata
    (setq lname (cdr (assoc 2 tbdata)))
    (if (wcmatch lname (strcase layer_name))
      (progn
(setq data (entget (tblobjname "layer" lname)))
(setq c70 (logand (cdr (assoc 70 data)) 0))
(setq c62 (abs (cdr (assoc 62 data))))
(setq q70 (cons 70 c70))
(setq q62 (cons 62 c62))
(setq data (subst q70 (assoc 70 data) data))
(setq data (subst q62 (assoc 62 data) data))
(entmod data)
(setq have 1)
      )
    )
    (setq tbdata (tblnext "layer"))
  )
  (if (= have 0)
    (progn
(princ (strcat "\n***< " layer_name " >***层没有找到!"))
    )
    (progn
(princ (strcat "\n***< " layer_name " >***层已经打开."))
    )
  )
  (princ)
)


                 
(defun andy_layer_off
       (layer_name / tbdata lname echo data c70 c62 q70 q62 have)
  (setq have 0)
  (setq echo (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq tbdata (tblnext "layer" T))
  (while tbdata
    (setq lname (cdr (assoc 2 tbdata)))
    (if (wcmatch lname (strcase layer_name))
      (progn
(setq data (entget (tblobjname "layer" lname)))
(setq c70 (logior (cdr (assoc 70 data)) 1))
(setq q70 (cons 70 c70))
(setq data (subst q70 (assoc 70 data) data))
(entmod data)
(setq have 1)
      )
    )
    (setq tbdata (tblnext "layer"))
  )
  (if (= have 0)
    (progn
(princ (strcat "\n***< " layer_name " >***层没有找到!"))
    )
    (progn
(princ (strcat "\n***< " layer_name " >***层已经关闭."))
    )
  )
  (setvar "CMDECHO" echo)
  (princ)
)

xshrimp

command regen

andyding

regen我早就试过了.(在AUTOCAD2004),没有用.