반응형 nth2 텍스트 좌표|문자열|레이어 정보 화면에 표시하기 (defun KM:coord_cont_la ( / ss len code_gr dxfss cd)(setq ss (ssget (list (cons 0 "TEXT"))))(princ "/n")(setq len (sslength ss))(setq n 0)(setq code_gr (list 10 1 8)) ; list_dxf_code: coordinates ; string ; layer (repeat len (setq dxfss (entget (ssname ss n))) (setq cd 0) (repeat (length code_gr) (setq code (nth cd code_gr)) (princ (cdr (assoc code dxfss))) (princ "|") (setq cd (1+ cd)) ) (p.. 2026. 2. 12. 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. 이전 1 다음 반응형