la1이란 리습을 만들었어여..
헌데.. la1이란 리습을 반복리습에 넣었는대도 계속 에러가 뜹니다..
설정도 다해놨구여.. ㅡㅜ
지금 당장해야하는대.. 어찌해야하나요..
(defun REP (DWG FH)
(write-line “OPEN” fh)
(write-line DWG fh)
(write-line “la1” fh) ;리습명령
(write-line “QSAVE” fh)
)
;;—————————————————–
(defun c:la1_scr (/ L_P FHH LN FH ITEM RES) ; 리습명령
(setq RES (vl-directory-files (getvar “DWGPREFIX”) “*.DWG” 1))
(setq L_P (strcat (getvar “DWGPREFIX”) “rep.scr”))
(setq FHH (open L_P “w”))
(WRITE-LINE “”)
(FOREACH ITEM RES (REP ITEM FHH))
(close FHH)
(command “SCRIPT” L_P)
(princ)
)
에러내용은..
–> 화일 하나가 오픈되서 리습실행되고 나면 저장이 되야하는대 저장도 안되고, 화일도 열리지 않아여.. 제가만든 리습에서 끝..
제가 만든 리습입니다.
리습이라기보다는.. 매크로 설정입니다… ^^ㅋ
(DEFUN C:la1()
(setvar “cmdecho” 0)
(setvar “osmode” 0)
(command “pspace”)
(command “erase” “l” “”)
(COMMAND “MODEL”)
(command “-layer” “s” “0” “t” “*” “u” “*” “f” “2005_Sabldg_key” “” “”)
(command “erase” “all” “”)
(command “-purge” “ALL” “” “n”)
(command “-purge” “ALL” “” “n”)
(command “-layer” “t” “*” “”)
(princ)
)