(defun c:t2()
(setq bb (getstring t “n 뒤에 추가할 글자를 입력하세요..^^* : “))
(setq sel (ssget) cnt 0 inx 0)
(repeat (sslength sel)
(setq str (entget (ssname sel inx)))
(if (= “TEXT” (cdr (assoc 0 str)) )
(progn
(setq old (cdr (assoc 1 str))
new (strcat old bb )
str (subst (cons 1 new) (cons 1 old) str)
)
(entmod str)
(setq cnt(1+ cnt))
)
)
(setq inx (1+ inx))
)
(princ “nselect object : “) (princ cnt) (princ)
)
몇일전에 이걸 올려주셔서 사용하는데
옵션을 넣는법이있을까요?
예를들어
CT2
스페이스바
텍스트 입력
엔터 -<<요부분이 불편해서
CT2
스페이스바
옵션 (A)=A (B)=B (C)=C (D)=텍스트입력
이런식으로 바꿀수있을까요
생각하시는 리습은 어차피 위의 리습과 공수는 같으니 차라리 명령을 따로따로 만드시는게 나을듯 한데요
제가 리습 쪼랩이여서 아직 배우는 중이어서요 ㅎ
어디를 수정해야 될지 잘파악이 안되서요 ㅠ