라인타입 로드하기

linetype 을 load 하는 리습 예제 입니다

 

현 도면내에 원하는 라인타입이 존재하는지 먼저 검색후 존재하면 "이미 존재함"을 표현후 종료하고 존재하지 않으면 해당 라인타입을 로드하는 command 문을 작성 합니다

 

 

(defun loadcenter()   

(if (tblsearch "LTYPE" "center") (prompt "  Loaded Linetype Center  ")  (command "-linetype" "L" "center" "" "") ) 

) ; end defun