이게 뭐하는 리습인가요?

컴퓨터를 정리하다보니 이런 리습이 눈에 들어오더라구요
뭐하는 리습인가요? 궁금해서 올려봅니다

(defun c:phs(/ pa na na3 minn maxx )
       (setvar “cmdecho” 0)
       (setvar “lunits” 2)
       (setvar “luprec” 2)
       (setvar “snapmode” 0)
       (setvar “gridmode” 0)
       (setvar “osmode” 0)
       (setvar “coords” 2)
       (setvar “ucsicon” 3)
       (command “layer” “thaw” “*” “on” “*” “unlock” “*” “s” “0” “”)
       (command “color” “bylayer”)
       (command “ucs” “world”)
       (setq minn (getvar “extmin”))
       (setq maxx (getvar “extmax”))
       (if (not (and (= (car minn) 0) (= (cadr minn) 0)))
           (progn
              (command “move” “all” “” minn “0,0”)
              (setq minn (getvar “extmin”))
              (setq maxx (getvar “extmax”))
           )
       )
       (command “limits” minn maxx)
       (command “zoom” “e”)
       (setq pa (getvar “dwgprefix”))
       (setq na (getvar “dwgname”))
       (setq na3 (strcat pa na))
       (command “wblock” na3 “yes” “” minn “c” minn maxx “”)
       (command “saveas” “” “c:/temp/temp.dwg” “yes”)
       (command “close”)               
       (princ)
)