XREF BIND, c:XRX, c:XRR, c:REE

;;===================QSAVE XREF RELOAD BIND SAVE CLOSE=======================
;;
;; SAMOO Xref Bind 작업을 효과적으로 실행하기 위한 스크립트
;; 결합전 파일을 저장한 후 참조파일을 모두 결합한 BINDtstamp_dwg.dwg 생성
;; 
;; Author: KM Lab, Copyright © 2021  -  kmlab.tistory.com
;; Version 1.0 - 2021-10-26
;; Version 1.01 - 2021-10-28 Added Revision's Date
;;

(defun KM:XrefBindClose( / ver filename refx path bind bindwg)
(setvar "cmdecho" 0)
(setvar "filedia" 0)
(setq ver "2013")
(setq filename (getvar "dwgname"))
(setq cdate (getvar "cdate"))
(setq date (atoi (rtos cdate 2 8)))
(setq time (atoi (rtos (* 1.0e+06 (- cdate date)) 2 1)))
(setq tstamp (strcat (itoa date) "." (itoa time)));Set CurrentDateTime(YYYYMMDD.hhmmss) to prefix of Filename
(setq path (getvar "dwgprefix"))
(setq bind (strcat path "BIND" tstmap "_"))
(setq bindwg (strcat bind filename))
(command "zoom" "e")
;(command "qsave")
(command "-xref" "r" "*")
(command "-xref" "bind" "*")
(command "saveas" ver bindwg)
(setvar "cmdecho" 1)
(setvar "filedia" 1)
(prompt "...SUCCESS BIND DWG...\n")
(prompt "...SUCCESS BIND DWG...\n")
(prompt "...SUCCESS BIND DWG...\n")
(princ)
);defun

(defun c:XRX(); Xref Bind Close
(KM:XrefBindClose)
;(command "close")
);defun

(defun c:XRR(); Reload Xref
(command "-xref" "r" "*")
);defun

(defun KM:REN_LAYER(/ OLDLAYER NEWLAYER); Change LayerName Set ChangedLayerName
(setq OLDLAYER "REV-211025")
(setq NEWLAYER "REV-211029")
(command "rename" "la" OLDLAYER NEWLAYER)
(command "layer" "s" NEWLAYER "")
(command "qsave")
);defun

(defun c:ree ( )
(KM:REN_LAYER)
);defun

(defun KM:REV_DATE(/ OLDDATE NEWDATE ss len n txt_lst str); Change DeliveryDate
(setq OLDDATE "2021.10.25")
(setq NEWDATE "2021.10.29")
(setq ss (ssget "X" '((0 . "TEXT"))))
(setq len (sslength ss))
(setq n 0)
(repeat len
(setq txt_lst (entget (ssname ss n)))
(setq str (cdr (assoc 1 txt_lst)))
(if (= str OLDDATE)
(progn
(setq txt_lst (subst (cons 1 NEWDATE) (assoc 1 txt_lst) txt_lst))
(entmod txt_lst)
)
)
(setq n (1+ n))
);repeat
);defun

(defun c:rd ( )
(KM:REV_DATE)
);defun

(defun c:rv ( )
(KM:REN_LAYER)
(KM:REV_DATE)
(command "zoom" "extents")
(command "qsave")
);defun