;;局部重生　by　飞诗
(defun c:fs_regen (/ ss getscreen)
  (defun getscreen (/ fact hhalf viewcnt viewh vieww vieww1 whalf)
    (setq viewcnt (getvar "viewctr"))
    (setq viewH (getvar "viewsize"))
    (setq viewW (getvar "screensize"))
    (setq fact (/ viewH (cadr viewW)))
    (setq viewW1 (* fact (car viewW)))
    (setq Hhalf (/ viewH 2))
    (setq Whalf (/ viewW1 2))
    (list (list (- (car viewcnt) Whalf) (- (cadr viewcnt) Hhalf))
	  (list (+ (car viewcnt) Whalf) (+ (cadr viewcnt) Hhalf))
    )
  )
  (princ "\n选取要刷新的对像：<当前窗口>")
  (setq ss (ssget))
  (or ss (setq ss (apply 'ssget (cons "c" (getscreen)))))
  (setvar "cmdecho" 0)
  (command "move" ss "" "@" "@")
  (princ)
)