wblock를 이용해서 purgr를 하는 리습입니다.
다른 컴퓨터에서는 되는데 제컴에서만 안되내요
명령어를 치면 wblock로 블럭을 잡고 다시 화면에 나와야하는데 블럭만 잡고 끝나내요..
리습에 문제인제 캐드 설정문제인지 도무지 모르겟내요 -_-;;ㅋ
고수님들의 조언 탁합니다..
(defun c:pg(/ ent fn sys)
(if (= (getvar “dwgname”) “Drawing.dwg”)
(alert “아직 한번도 저장하지 않았던 화일입니다.n먼저 저장하십시오.”)
(progn
(prompt “n>>> purge 작업중입니다. 잠시 기다리세요…”)
(command “layer” “u” “*” “”)
(setq fn (strcat (getvar “dwgprefix”) (getvar “dwgname”)))
(setq ent (ssget “x”))
(command “wblock” fn “y” “” (list 0 0 0) ent “”)
(command “open” “y” fn)
)
)
)