티스토리 뷰
(if (tblsearch "layer" "5")
(command "layer" "s" "5" "")
(command "layer" "m" "5" "c" "blue" "5" "") )
ex)
(if (= (tblsearch "layer" "0") nil) ;layer 1 이 있는지 없는지 확인 없으면 만든다.
(command "layer" "m" "0" "c" "7" "" "lt" "continuous" "" ""))
; | 이름 | 색상 | 선종류
'CAD > AutoLisp' 카테고리의 다른 글
| [Subroutine] dcl의 창에서 선택받은 목록을 분리해서 리스트로 (0) | 2009.05.13 |
|---|---|
| AutoLISP Reference (Autocad 2004 English) (0) | 2009.05.12 |
| Autocad에 Lisp 올리기 (Appload와 목차 추가) (0) | 2009.05.09 |