아래 lisp은 블럭을 그위치에서 지정하는 lisp입니다. 그런데 블럭이 저장되는 위치가 정의 되지 않아서 여러폴더에 임의로 블럭파일이 생성됩니다.
폴더를 지정할려면 어떻게 바꿔야 하는지 고수님들이 좀 도와주십시요.
_____________________________________________________________________
(defun c:cb()
(setq ww(getvar “cdate”)
xx1(itoa (getvar “SPLINESEGS”))
aa1(itoa (fix (getvar “DIMSCALE”)))
bb1(itoa (fix (getvar “LTSCALE”))))
(setq we(rtos ww 2 4) wr(substr we 1 4) wt(substr we 5 2)
wy(substr we 7 2) wx(substr we 10 2)wz(substr we 12 2))
(setq sec (rtos (setq seconds (* 864000 (- ww (fix ww)))) 2 0))
(setq bl_name(strcat wr wt wy wx wz sec))
(prompt “n ********* 영역을 선택하세요. :”)
(setq MI(SSGET))
(setq p1 (getpoint “n ******** 중심점을 선택하세요 (^-^)γ : “))
; (setq p1 “0,0”) ;; 중심점 선택도 싫다면…
(command “WBLOCK” bl_name “” P1 MI “” )
(prompt “n ******** SUCCESS TO REMAKE BLOCK !!! BLOCK NAME [ “)
(prin1 bl_name)(prompt ” ]”)
(command “insert” bl_name p1 “” “” “”)
(PRIN1)
)