linetype 을 load 하는 리습 예제 입니다
현 도면내에 원하는 라인타입이 존재하는지 먼저 검색후 존재하면 "이미 존재함"을 표현후 종료하고 존재하지 않으면 해당 라인타입을 로드하는 command 문을 작성 합니다
(defun loadcenter()
(if (tblsearch "LTYPE" "center") (prompt " Loaded Linetype Center ") (command "-linetype" "L" "center" "" "") )
) ; end defun
'리습 예제 1부' 카테고리의 다른 글
| 도면번호 형식 문자 검색 (0) | 2022.09.05 |
|---|---|
| 블록 존재여부로 작도 삽입 if 문 (0) | 2022.08.19 |
| 리습 작도전 화면 크기 제어 (0) | 2022.08.19 |
| 메인리습 서브리습 (0) | 2022.08.08 |
| 리습 목적별 예제 문장 (0) | 2022.07.27 |