한개의 file안에 많은 block이 있는데여.
이 많은 block의 layer를 쉽게 원하는 layer로 통일 시킬려고 합니다.
-> 같은 용도인데도 layer가 여러가지라서요.
block이 아닌 것들은 “quick select”로 손쉽게 변경이 되는데.
“quick select”로 block은 수정을 못하네여.
참고로 2005사용하고
“quick select”가 아니어도 상관없구요.
가능한 보조 tool이 있는지~~~
한번에 여러개의 block layer를 원하는 layer로 바꾸는 방법 입니다.
; 아키모아 운영진 “행복한하루”
; http://cafe.daum.net/archimore
; 모든 블럭의 색상 byblock 으로 만들기..
; 2007.08.29
(defun c:bcb(/ os n bed bn bnlist bed len vie)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)
(princ))
;-<*error* end
(setvar “cmdecho” 1)
(setq os (getvar “osmode”))
(setq vie (getvar “viewctr”))
(setq n 0)
(setq bed (tblnext “block” t))
(setq bn (cdr (assoc 2 bed)))
(setq bnlist (list bn))
(setq bed (tblnext “block”))
(while bed
(setq bn (cdr (assoc 2 bed)))
(setq bnlist (cons bn bnlist))
(setq bed (tblnext “block”))
);while
(setq len (length bnlist))
(setvar “osmode” 0)
(repeat len
(setq bname (nth n bnlist))
(command “insert” bname vie 1 “” 0)
(command “explode” “l”)
(command “change” “p” “” “p” “c” “byblock” “”)
(command “block” bname “y” vie “p” “”)
(setq n (1+ n))
);repeat
(setvar “osmode” os)
(princ)
);defun
해당 리습은 도면안의 모든 블럭의 색상을 byblock
으로 만드는 리습입니다..이걸 조금만 수정하면..원하시는걸 얻으실수 있을겁니다….
(command “change” “p” “” “p” “c” “byblock” “”)부분을
(command “change” “p” “” “p” “la” “도면층” “”) 이렇게 수정해 주세염
“도면층” 에…레이어가 col이면..”col” 로 기입해주세염.
리습으로 만들어야져… ^^