(defun myerr(msg)
(if (/= msg “Function cancelled”)
(princ (strcat “nError: ” msg))
)
(setq *error* err)
(princ)
)
(defun c:pp()
(setq err *error* *error* myerr)
(textscr)
(setvar “cmdecho” 1)
(fp)
(while (/= fm “”)
(rp)
(fp)
)
(princ “nPurge가 모두 끝났습니다. 아무키나 누르면 Graphic 화면으로 돌아 갑니다.”)
(grread)
(graphscr)
(setq *error* err)
(princ)
)
(defun fp()
(command “purge”)
(command “all”)
(princ “n”)
(command “”)
(princ “n”)
(command “”)
(setq fm (getvar “cmdnames”)
cm fm)
)
(defun rp()
(while (/= cm “”)
(command “y”)
(setq cm (getvar “cmdnames”))
)
)
(Princ “nC:PP AutoPurge 1999.07.01”)
(princ)
퍼지만 자동으로 해주는 리습인데요
리습사용하면 텍스트 윈도우가 자동으로 뜹니다.
텍스트윈도우 안뜨게 하는법을 알수 없네요
어느 부분을 수정해야 할지 확인 부탁드립니다.
(textscr) <== 이거 삭제하세요
감사합니다~