잠수함님 보시와요…. 리습하나 쏩니다.

리습로드는 알고 계시겠죠..
아님 acad.lsp에 첨가 하셔두 되구여..
acad.lsp화일이 acad 디렉토리에 업슴 만들어서 첨가하세여,,
만들어거 캐드 디렉토리 support방에 넣어두시고…
화일을 연다음 command상태에서 명령어 cx 를 치면됨다..
그러면 cut . mark1 등 모든 엔터티가 한방에 color, linetype이
bylayer로 변하구 set두 bylayer루 바뀝니다…
그리구 님이 linetype을 바꾸시나본디 그러지마시구 layer를 바꾸고
시작하세요..그거 바꾸기 싫음 딴거 써야하는디..야그 하시구여..
그리구 layer 가 추가되면.. “
(defun c:cx ()
(command “chprop” (ssget “X” ‘((8 . “mark1”))) “” “c” “bylayer” “lt” “bylayer” “”)
(command “chprop” (ssget “X” ‘((8 . “cut”))) “” “c” “bylayer” “lt” “bylayer” “”)
(command “chprop” (ssget “X” ‘((8 . “piecedwg”))) “” “c” “bylayer” “lt” “bylayer” “”)
(command “color” “bylayer”)
(command “linetype” “s” “bylayer” “”)
)
에서
(command “chprop” (ssget “X” ‘((8 . “레이어명”))) “” “c” “bylayer” “lt” “bylayer” “”)
를 한줄 추가하시구 “레이어명” 부분만 바꾸시면 됩니다..
잘되면 리뿔 달어주시구여…
잠수함 어뢰에 쐬주로 쏘세요..

=== 따라지 ===