Binding All Xref.s

(defun c:bbb ( / cd ph dname sa )
(vl-load-com)
(setq cd (rtos (getvar "cdate") 2 0))
;; Binding all xref
(command "-xref" "bind" "*")
;; SaveAs to Binded folder
(setq ph (strcat "d:\\BINDED_BINDED_REV_" cd))
(setq dname (getvar "dwgname"))
(setq sa (strcat ph "\\" dname))
(vl-mkdir ph)
(setvar "filedia" 0)
(command "saveas" "" sa)
(setvar "filedia" 1)
)

AutoScript와 쓰면 폴더에 있는 모든 dwg 파일에 포함된 모든 xref 파일들을 BIND한 후,
원본(xref 가 포함된)은 그대로 두고,
새로운 이름으로 'd:\\BINDED\\BINDED_REV_현재날짜' 폴더에 저장한다.