(defun C:T+ (/ en1 en2 lst1 lst2 txt1 txt2 len new)
(setvar “cmdecho” 0)
(setq en1 (entsel “n>> Select First text string…..:”)
en2 (entsel “n>> Select Append text:”)
)
(if (and en1 en2)
(if (and (= “TEXT” (cdr (assoc 0 (entget (car en1)))))
(= “TEXT” (cdr (assoc 0 (entget (car en2))))))
(progn
(setq
lst1 (entget (car en1 ))
lst2 (entget (car en2 ))
txt1 (cdr (assoc 1 lst1 ))
txt2 (cdr (assoc 1 lst2 ))
len (strlen txt1)
)
(while (= (substr txt1 len) “”)
(setq len (1- len))
(setq txt1 (substr txt1 1 len))
)
(while (= (substr txt2 1 1) ” “)
(setq txt2 (substr txt2 2))
)
(entdel (car en2))
(setq new (cons 1 (strcat txt1 “” txt2)))
(entmod (subst new (assoc 1 lst1) lst1))
)
)
)(princ)
)
위 리습 다운 한건데요.
실햏 시커보면 글씨를 선택해 조합하는 겁니다.
ex) 1과2가 따로 될 있을경우., 1선택 그당음 2선택..하면 12 가 됩니다.
이런 형식 인데.
저는 전체선택 했을 경우,.
1 2 3 4 5 이런식으로 근처에 문자들이 있을 경우.전체 선택해서. 근처에 있는 문자들이
12345 이런식은로 합처 지지는 아는지요…. 안될까요.
고수님들 부탁 합니다.