넘버링, lisp 파일인데 마지막 숫자가
컨텐츠 정보
- 241 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
캐드 작업시 넘버링 쉽게하려고 인터넷에서 구한 Autolisp 파일인데
마지막 넘버링이 143?번인가까지 밖에 안되는데..
그 이상하려면 Autolisp 어떤 걸 수정해야 하는거죠??
도움 좀 부탁 드립니다..
(defun c:NT ()
(setq s_num (getstring "n 시작할 번호입력 : "))
(setq ts (getreal "n Text size : "))
(setq cs (* ts 1.5)) ; 원의 크기는 문자 크기의 1.5배
(if (= s_num "") (setq s_num num) (setq num (itoa (1- (read s_num)))))
(while
(setvar "osmode" 0)
(setq txt_pt (getpoint "n Text insertion point: "))
(command ".text" txt_pt ts "" (if (not num) (setq num "0″) (setq num (itoa (1+ (read num)))))"")
(setq el (entlast))
(COMMAND "CHANGE" "L" "" "P" "C" "2″ "") ; 문자색상
(setq os (getvar "osmode"))
(setq ss (ssadd))
(ssadd el ss)
(setq k 0)
(setq en (ssname ss k))
(command "justifytext" en "" "mc")
(setq en (ssname ss k))
(setq p1 (cdr (assoc 10 (entget en))))
(setq p2 (cdr (assoc 11 (entget en))))
(command "circle" p2 cs)
(COMMAND "CHANGE" "L" "" "P" "C" "2″ "") ;원의 색상
(setq k (+ k 1))
(setvar "osmode" os)
(princ)
)
)
관련자료
상큼메론90님의 댓글
선택세트의 최대수를 초과했습니다.? <— 이런건 보지못한 메시지 인데요… error: exceeded maximum number of selection sets
When an application has finished using a selection set, it is important to release it from memory. This can be done by setting it to nil: (setq ss nil)
아래 한 줄을 (setq ss nil)
while 문이 끝나기 전, 즉 (princ) 바로 위에 추가해서 한번 테스트 해보세요. 캐드 2008 이 없어서 테스트는 못하네요~~~
.