728x90
;=======================================================
; Block list를 txt로 내보내기 (2020.7 주말농부) ; ->dwg 폴더에 dwg화일명.txt를 생성해주는 리습 ;------- Block list Txt ---------------------------------------------------------------------- (defun c:btx(/ bed1 bed2 bst1 bst2 bst-lst path bla_wr1 n bst dname) (setq bed1 (tblnext "block" t)) (setq bst1 (cdr (assoc 2 bed1)));block name (setq bst-lst (list bst1)) (setq bed2 (tblnext "block")) (while bed2 (setq bst2 (cdr (assoc 2 bed2)));block name (if (or (= (cdr (assoc 70 bed2)) 0) (= (cdr (assoc 70 bed2)) 2)) (setq bst-lst (cons bst2 bst-lst)) ) (setq bed2 (tblnext "block")) ) (setq bst-lst (vl-sort bst-lst '<)) (prin1 bst-lst) (setq dname (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))) (setq path (strcat (getvar "dwgprefix") dname ".txt")) (setq bla_wr1 (open path "w")) (setq n 0) (repeat (length bst-lst) (setq bst (nth n bst-lst)) (write-line bst bla_wr1) (setq n (+ n 1)) ) (close bla_wr1) (prompt "\n ---> 총 블록갯수 : ")(prin1 n) (prompt "개") (prin1)) |
728x90
'■ 유용한 캐드&리습 > ▫ AutoLISP' 카테고리의 다른 글
리습 - 모든레이어 화면에 목록 만들기 (0) | 2024.12.31 |
---|---|
리습 - 전체 Block list를 txt 및 dwg로 내보내기 (0) | 2024.12.20 |
리습 - 락걸린리습 원키 바꾸기 (0) | 2024.12.20 |
리습 - 리습으로 원키 바꾸기 (0) | 2024.12.20 |
리습 - LOCK걸린 리습명령어 이름 바꾸기 (0) | 2024.12.17 |