제가 쓰는 리습에 대해 여쭙겠습니다.

2013.04.15 13:07

감사합니다 조회 수:3746

수고많으십니다.  늘 언제나 감사한 마음으로 사용하고 있는 유저입니다.^^

제가 쓰는 리습에 대해 여쭙겠습니다.

 

layer.lsp라는 리습파일이 있어서 특정레이어를 키고 끄고 얼리는 기능을 주로 사용합니다.

af : 선택한 레이어만 키기

at : 전체 레이어 키기

ff :  선택한 레이어만 얼리기

이런식인데요...

 

드림에도 더 많은 레이어 관련 명령어가 있으나 이게 손에 익어서 이 리습으로 사용했었습니다.

근데 2013프로그램을 추가 설치후,  2008에서는 여전히 잘 되고, 2013에선 다른 명령어는 실행되는데

레이어 전체 키는 명령어인 at를 치면 레이어 대화상자가 나옵니다.

 

2008에선 되고 2013에선 안되는 이유와 한리습파일에 있는 명령인데 어떤건 되고 어떤건 왜 안되는지....

2013에서도 나오게 하는 방법 없을까요?^^

 

파일 올리고 싶은데 파일올리기가 안보이네요~

글서, 리습파일 복사해서 내용 올려보겠습니다.  번거롭게 해드려 죄송합니다.^^

다른명령어는 다 실행되고, 맨밑에 at만 레이어대화상자만 뜨면서 안됩니다.

 

 

;=======================<< #25 FREEZE1 >>=====================================
(DEFUN C:AF (/ es eg as)
(setvar "cmdecho" 0)
(SETQ ES (CAR (ENTSEL ">>Pick no freeze..?"))
      EG (ENTGET ES)
      AS (CDR (ASSOC 8 EG))
);SETQ
(COMMAND "LAYER" "s" AS "off" "*" "" "")
)
;========================<< #26 FREEZE2 >>====================================
(DEFUN C:FF ()
(SETQ ES (CAR (ENTSEL ">>PICK FREEZE..?"))
      EG (ENTGET ES)
      AS (CDR (ASSOC 8 EG))
);SETQ
(COMMAND "LAYER" "off" AS "")
)
;========================<< #27 FREEZE3 >>====================================
(DEFUN C:FFF ()
(SETQ ES (CAR (ENTSEL ">>PICK FREEZE..?"))
      EG (ENTGET ES)
      AS (CDR (ASSOC 8 EG))
);SETQ
(COMMAND "LAYER" "freeze" AS "")
)
;======================<< #28 ALL THAW >>=====================================
(Defun C:AT ()
 (setvar "cmdecho" 0)
 (command "LAYER" "on" "*" ""))