납품: Xref; revision Layer; issue Date 관리

;; 1) Revision or Reference Layer 작성
;; 2) 표제란 Rev 가장 오래된 항목 삭제/최근 항목 아래로 복사
;; 3) Reference xref stamp detatch
;; 4) 모든 Xrefs 바인딩 시키고 바인디드 폴더에 저장하기

(defun c:bbb ( / cd ph dname sa ) ;; 4) binding all xrefs
(vl-load-com)
(setq cd (rtos (getvar "cdate") 2 0))
;; Binding all xref
(setvar "filedia" 0)
(command "-xref" "bind" "*")
;; SaveAs to Binded folder
(setq ph (strcat "d:\\BINDED_" cd))
(setq dname (getvar "dwgname"))
(setq sa (strcat ph "\\" dname))
(vl-mkdir ph)
(command "saveas" "" sa)
(setvar "filedia" 1)
(princ)
)
;;
(defun c:rmr ( / ) ;; 3) remove detach reference stamp
(command "-xref" "d" "REFERENCE*")
(princ)
)
;;
(defun c:afc ( / p1 p2 p1x p1y p2x p2y h p3 p4) ;; 2) del copy AFC time stamp
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 1)
(setq p1 (getpoint "pick LL point earliest REVISION tstamp:") p2 (getpoint "\npick RU point earliest REVISION tstamp:"))
(setvar "OSMODE" osm)
;;
(setq p1x (car p1) p1y (car (cdr p1)))
(setq p2x (car p2) p2y (car (cdr p2)))
(setq h (- p2y p1y))
(setq p3 (list p1x p2y) p4 (list p2x (+ p2y h)))
(command "erase" "w" p1 p2 "")
(command "copy" "w" p3 p4 "" p3 p1)
(princ)
)
;;
(defun c:rl ( / ) ;; 1) make new Revision Layer
(command "-layer" "m" "250829_REV" "color" "magenta" "" "") ;; making '250829_REV' Layer
(princ)
)