홈/ 질문/Q 112074
다음
진행 중
Lv.0
등록일: 2020-01-07T14:36:09+09:00 카테고리:

텍스트 뒤에 “도”나 “대처럼 붙일수있는 리습있을까요?

지적도 수정할때 

번지수 뒤에 대나 도를 붙일수있는 리습이나 단축키가 따로있나요 ?
올려주시면 정말정말 감사하겠습니다.
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.0 
      ;;===============================================================
;기존 글자 뒤에 다가 글자추가하기
;;------------------------------------------------------------------------------------------------------------

(defun c:ttb()
  (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)
)
      • 0