AutoLISP

entdel 은 부여한 객체의 이름으로 삭제합니다

(entdel 객체이름)

객체이름 얻기는 entget 과 ssname 을 참조 바랍니다

예제는 erase 효과가 됩니다

(setq aaa (entsel)) ; 객체 하나 선택 aaa 저장
(setq ename (car aaa)) ; aaa의 리스트중 첫째인 객체이름을 ename 을 저장

(entdel ename) ; 객체 하나 삭제

리습 활용으로 캐드를 유용하게 사용하지만

때론 리습 제작자의 의도와 다른 사용자의 조작이나 입력의 부조합으로 에러가 생기는경우기 있습니다

어쩌면 사용자 조작과 관계없이 원활한 리습 제작의 한계도 존재합니;다

리습의 작도나 삽입을 위해 캐드설정을 미리 설정후 작업을 완료한다음 캐드설정을 원래대로 복원합니다

에러가 발생한 경우 미리 캐드설정한 그대로 빠져나오므로 사용자는 자신이 설정한 샹태와 다르게 됩니다

또한 사용자가 리습 진행 도중  취소나 esc 로 빠져 나오는 경우도 마찬가지입니다

캐드 사용자가 자신이 주로 설정한 값이 자주 바뀌면 매우 불편합니다

이 불편을 해소하기위해 에러문을 작성합니다

이 에러문은 에러 발생시 작동하여 osnap 과 pickbox 값을 리습실행 이전 상태로 복귀합니다

(defun *error* (msg)

 (princ msg) 

(setvar "osmode" osm) (setvar "pickbox" pbox) (prompt "\n Return OSNAP PICKBOX ")

 (prin1 osm)

 (princ) 

 ) 

리습문장내에 이전 osnap 값을 osm 으로  pickbox 겂을 pbox 로 저장한 경우 입니다

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다