[필수자료] 레이어 관련 lisp입니다. (엔시티코리아 초강주 자료)-오토캐드 리습 프로그램

[NCTKOREA(조용범)]

첨부파일은  제가 너무 좋아하는 파일입니다.

본 리습을 잘 사용하시면 업무 속도가 2배이상 빨라집니다.

리습을 오토캐드에 추가하는 방법은  네이버 검색을 활요해주세요

절대  후회하지 않습니다.

============================================

레이어 관련 lisp입니다. 

COMMAND_LAYER.lsp

          레이어 동결: LF
    레이어 동결해제: LO
          레이어 지정: SS 입니다.
; 레이어 동결
(defun layerf (/ a2 b2 l2)
(setvar "cmdecho" 0)
(prompt "\nSelect freeze layer")
(setq a2 (entsel))
(while (/= (cadr a2) nil)
(setq b2 (entget (car a2)))
(setq l1 (assoc 8 b2)) (setq l2 (cdr l1))
(command "layer" "f" l2 "")
(prompt "\nSlect freeze layer")
(setq a2 (entsel))
);while
)

;레이어 지정
(defun layers (/ a2 b2 l2)
(setvar "cmdecho" 0)
(prompt "\nSelect entity on target layer")
(setq a2 (entsel)) (setq b2 (entget (car a2)))
(setq l1 (assoc 8 b2)) (setq l2 (cdr l1))
(command "layer" "s" l2 "")
)

;레이어 동결해제
(defun layero ()
(setvar "cmdecho" 0)
(command "layer" "thaw" "*" "")
)

(defun c:lf () (layerf));  레이어 동결
(defun c:ss () (layers));레이어 지정
(defun c:lo () (layero)); 레이어 동결해제

;레어어 몽땅 키기
(defun c:oo ()
    (command "layer" "on" "*" ""))

;레어어 몽땅 끄기
(defun c:ff ()
    (command "layer" "off" "*" "n" ""))

;레이어 키구,락풀구,얼린거 녹이구..^^
(defun c:loo ()
    (command "layer" "on" "*" "")
    (command "layer" "thaw" "*" "")
    (command "layer" "unlock" "*" ""))

[박나용]

캐드 초보인대요 어떤식으로 사용되는지 궁금합니다.

[카솨르]

어떤식으로 사용하는건가요?? 글로써는 애해가 안가네요..윗분과 같은 캐드 초보 1명..ㅎ

[노세용(광주시)]

텍스트 파일에 저거 붙여넣기 하시고요
저장하실때 확장자를 LSP로 저장, 그리고 CAD에서 사용자 파일 열기에서 저장한 파일 지정 후 로드
쓰실때는 위에써 있는 명령어 치면 돼요

[김용민]

잘쓰겠습니다.

[김순애]

감사합니다-왠지유용하게쓸것같네요

[대마(인천시)]

lsp로 저장하고, 저장경로는 어디로 하면 되나요?

[뱀다리]

어렵네요~~^^

[멋진남(남양주)]

감사합니다

[운주지키미(시흥시)]

감사합니다.

[장군이누나]

잘쓰겠습니다.

[오원배]

감사합니다

[nice]

감사합니다

[해피더코]

좋은자료 감사합니다.^^

[딸기아빠]

감사합니다