반응형 xref4 revision Update ALL Xrefs (defun c:xxx ( / )(vl-load-com);(if (tblsearch "block" "SHEET_Ph-3") (command "-rename" "b" "SHEET_Ph-3" "SHEET_Ph-3_AS BUILT")) (if (tblsearch "block" "SHEET_Ph-4") (command "-rename" "b" "SHEET_Ph-4" "SHEET_Ph-4_AS BUILT"));(setq PH3 "V:\\01. General\\01. BP\\01. 설계\\01 AR, ST\\03. 정림\\[02] 실시설계\\01. CUB\\01. 건축\\XREF\\") ;;;; full path ;;; (absolute) (1)(setq PH4 "V:\\01. General\\01... 2025. 10. 2. Update ALL Xrefs Xref's Reference Names save a list. XRN3, XRN3(defun c:xxx ( / )(setvar "CMDECHO" 0)(if (tblsearch "block" "SHEET_Ph-3") (command "-rename" "b" "SHEET_Ph-3" "SHEET_Ph-3_AS BUILT"))(if (tblsearch "block" "SHEET_Ph-4") (command "-rename" "b" "SHEET_Ph-4" "SHEET_Ph-4_AS BUILT"));(setq PH3 "..\\..\\..\\01. 건축\\XREF\\")(setq PH4 "..\\..\\..\\01. 건축\\XREF\\PH-4\\")(setq XRN3 (list "1F" "1F+4000" "2F" .. 2025. 10. 1. 납품: 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 dnam.. 2025. 8. 25. 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 파일에 포함된 모든 xre.. 2025. 8. 20. 이전 1 다음 반응형