지번 입력을 할려고 하는데..
기존에 구한 리습으로 할려니 불편함이 있더라고요…
그래서 고수님들께 부탁 드립니다…
command : ji <-- 명령어
text : 0-408-1 <-- 사용자가 임의로 숫자+기호를 입력하는곳
pick point : <-- 찍을 포인트 선택
pick point : <-- 찍을 포인트 선택 / 여기서부터 찍는 것은 0-408-2 (마우스왼쪽버튼 클릭)
pick point : <-- 찍을 포인트 선택 / 여기서부터 찍는 것은 0-408-3 (마우스왼쪽버튼 클릭)
// 이런식으로 포인트를 찍을때마다 1씩 증가하고..
만약 입력이 끝났거나 다른 지번을 입력할경우
pick point : 엔터 <-- 그럼 0-408-1 ~ 찍은 숫자 종료.
text : 1-15-1 <-- 새로운 지번 입력 가능하게...
pick point : <-- 찍을 포인트 선택 / 여기서부터 찍는 것은 1-15-2
.
.
이런식으로 되고…
마지막으로 종료할때는
pick point : 엔터 <-- 그럼 1-15-1 ~ 찍은 숫자 종료.
text : 엔터 <-- command 상태로 돌아가기..
이런식으로 하고 싶거든요…
제가 가지고 있는 리습은 리습안에 시작할 문자를 미리 입력해 놓은
상태로 하는거라 다른 번호를 찍을땐 또 리습을 수정해줘야해서
마니 불편하더라고요…
혹시 몰라서 제가 가지고 있는 리습 올려봅니다…
부디 아량을 베풀어주세여~~~ ^^;
==========================================================================================
(defun c:t1(/ sel_data sel_su in_point new_text)
(setvar “cmdecho” 0)
(defun SETERR(s)
(if (/= s “Function cancelled”)
(princ (strcat “nError: ” s))
); of If
(setq *error* oer seterr nil)
); of SETERR
(setq oer *error* *error* seterr)
(setq sel_data(entsel “n 객체 선택”))
(if sel_data
(progn
(setq sel_su (atof (cdr (assoc 1 (entget (car sel_data))))))
($$cpcp)
)
)
(setq *error* oer seterr nil)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun $$cpcp()
(setq in_point(getpoint”n 기준점”))
(while in_point
(setq sel_su(+ sel_su 1))
(setq new_text(strcat “958-” (rtos sel_su 2 0)))
(command “TEXT” in_point “1” “” new_text)
(setq in_point(getpoint”n 기준점”))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ)
(princ “S_CP”)
(princ)