리섭 내용 보던중…자동으로 숫자 적는 리섭이 있더군요..
적용 시켜 보니 아주 만족 했습니다..
그런데…
캐드를 새로 연 창에서는 적용이 되는데..
도면을 열어 놓고 실행하면 숫자가 0 으로만 쭉 올라 가는데 이유가 뭔지 모르겠습니다.
다시 한번 고수님의 지도 부탁 드립니다..
재료표 작성할때 아주 좋은 리섭인것 같아서 부탁 드립니다.
리섭 내용..
(defun c:numtext ( ) ;/ aa bb cc dd jj poi)
(setq aa 1
bb 10
cc 3
dd 8
jj “m”
)
(setq aa (getint (strcat “nFirst Number Input < ” (itoa aa) ” > !!….::”)))
(if (= aa nil)
(setq aa 1)
)
(setq bb (getint (strcat “nLast Number Input < ” (itoa bb) ” > !!….::”)))
(if (= bb nil)
(setq bb 10)
)
(setq cc (getreal (strcat “nText Height Input < ” (rtos cc 2 0) ” > !!….::”)))
(if (= cc nil)
(setq cc 3)
)
(setq dd (getreal (strcat “nText 줄간격 < ” (rtos dd 2 0) ” > !!….::”)))
(if (= dd nil)
(setq dd 8)
)
(setq jj (getstring “nJustify < M > !!….::”))
(if (= jj “”)
(setq jj “m”)
)
(setq poi (getpoint “nText Point Pick!!…::”)
)
(setq zz (1+ (- bb aa)))
(repeat zz
(command “text” “j” jj poi cc “0” (rtos aa 2 0))
(setq aa (1+ aa)
poi (list (car poi) (+ (cadr poi) dd)) ;; 다음 text insert point 설정
)
(princ)
)
(princ)
)