블록 존재여부로 작도 삽입 if 문

현 도면상에 원하는 블록이 없으면 새로 작도및 블록화 삽입을 하고 존재하면 바로 삽입을 합니다

 

 

 

(if (= (tblsearch "block" blkname) nil ) ; 조건은 해당 블록이 없으면 입니다

(sublisp) ; 블록이 없으면 작도 및 블록화 삽입늘 수행하는 서브리습 호출실행합니다

(command "-insert" blkname p10 1 1 0)  ; 블록이 존재하면 바로 삽입합니다

) ; end if