블록선택후 숫자를 입려한뒤에는 숫자가 1씩 증가하게 했는데 실행은 한번 밖에 되질 않네요.ㅠ_ㅠ;
; C:text_insert
(defun C:ti1(/ b bl name newla text1 point1 i num knum)
(setvar “osmode” 0)
(setq b (entget (car(entsel “n블록선택”))))
(setq name (cdr (assoc 8 b)))
(setq newla (strcat name “T”))
(command “‘-layer” “m” newla “c” 4 “” “”)
(setq point1 (cdr (assoc 10 b)))
(if (/= b nil)
(progn
(setq text1 (getstring “n숫자입력”))
(setq name (cdr (assoc 8 b)))
(setq newla (strcat name “T”))
(command “‘-layer” “m” newla “c” 4 “” “”)
(setq point1 (cdr (assoc 10 b)))
(command “text” point1 “5” “” text1 “”)
)
(prompt “n블록선택”)
)
(setq bl (entget (car(entsel “n블록선택”))))
(if (/= bl nil)
(progn
(setq knum (atoi text1))
(setq i (+ knum 1))
(setq name (cdr (assoc 8 bl)))
(setq newla (strcat name “T”))
(command “‘-layer” “m” newla “c” 4 “” “”)
(setq point1 (cdr (assoc 10 bl)))
(command “text” point1 “5” “” i “”)
(progn
(setq bl (entget (car(entsel “n새로운블록선택”))))
)
)
)