AutoLISP

리습으로 다수의 객체를 트림할 경우 fence 옵션으로 해당 라인에 걸리는 대상 모두를 트림합니다

tt01 ~ tt07 은 정의된 점

(command "trim" "l" "" "f" tt01 tt02 tt03 tt04 tt05 tt06 tt07 "" "")

tblsearch 는 도면내의 보조요소를 검색합니다

주로 if 문에서 존재 유무에 따른 실행문들을 작성합니다

(tblsearch "LTYPE" "center") ; center 라는 linetype 검색

(tblsearch "block" blockname) ; defun으로 정의된 blockname 이름의 block 검색

(tblsearch "layer" "1") ; 1 이란 이름의 layer 검색

블록을 검색하여  존재하면 삽입  비존재시 서브리습으로 새로작도

(if  (tblsearch "block" blkname) (command "-insert" blkname pt 1 1 0) (beam-lsub) )

도면테이블 검색결과 없음를 참으로   있음을 거짓으로 하는 if 문

(if (= (tblsearch "block" blkname) nil ) (beam-lsub) (command "-insert" blkname pt 1 1 0) )

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