현재아래 리습을 적용하면
0001 > 0002 > 0003 이런식으로 카운트가 올라가는데요
다만 10단위 부터는 00010 으로 카운팅을 하고있습니다.
제가 원하는건 10이상부터도 4자리수를 유지하면서 카운팅을 원하는데요 가능할까요?
0010 > 0011 이런식으로요 가능하면 답변 부탁드립니다 감사합니다
(defun c:ppp() ;; 도,구,천 등에 gu레이어 생성 및 도면,축척 삽입
(setq osm(getvar “osmode”))
(setvar “osmode” 0)
(setq am (getvar “DWGNAME”)
am_le (strlen am)
am_num (Substr am (- am_le 6) 3)
am_dh (Substr am (- am_le 9) 2)
cnt 0
key 1
st “도,구,천,광,염,학,차,주,창,유,양,수,공,체,종,성,철선,수선”
cname (ssget “X” (list (cons 0 “TEXT”) (cons 1 (strcat st ))))
len (sslength cname)
)
(repeat len
(setq ent (ssname cname cnt)
ent_value (entget ent)
ent_xy (cdr (assoc 10 ent_value))
ent_name (cdr (assoc 1 ent_value))
do_name (strcat “9” am_num “-” “0” “0” “0” (itoa key))
gu_name (strcat “9” am_num “-” (itoa key) “/” ent_name “/” “/” “/”))
(command “-layer” “s” “11” “”)
(command “text”
ent_xy
0.5
0
do_name)
(command “-layer” “s” “0” “”)
(setq cnt (+ 1 cnt)
key (+ 1 key)
)
)
(setvar “osmode” osm)
)
do_name (strcat “9” am_num “-” “0” “0” “0” (itoa key))
뭔가 한자 같은게 떠서 잘못 된건가 싶었는데 저를 위해 띄어쓰기로 구분해주신거같은데 멍청해서 그것도 못 알아 봤었네요 ㅎㅎ ㅠ