반응형 laydel1 Erase Layers of REV. and Entities in Title blocks 리비전 레이어만 지우기리비전 레이어 이름 형식(setq ln "2#####_REV*") 이넘들만 지운다는 거임.(defun KM:ERASE_LAYER_REV ( / ln ss cnt n ent cln )(setvar "CMDECHO" 0)(setvar "clayer" "0")(setq ln "2#####_REV*")(command "-layer" "on" ln "")(command "-layer" "t" ln "")(command "-layer" "un" ln "")(progn(setq ss (ssget "X" (list (cons 0 "*") (cons 8 ln))))(setq cnt (sslength ss) n 0)(repeat cnt (setq ent (ssname ss n)) (entdel ent.. 2025. 10. 1. 이전 1 다음 반응형