(defun c:sadd ( / ssent add_str_r add_str_L objs)
 (princ "\n 문자 추가할 대상 TEXT 를 선택하세요..")
 (if (and 
   (setq ssent (ssget '((0 . "*TEXT"))))
   (setq add_str_l (getstring "\n처음에 추가할 문자 입력.:")) ;필요없으면 이라인 제일앞에 ; 을 붙이면 됨
   (setq add_str_r (getstring "\n마지막에 추가할 문자 입력.:"))

;   (setq add_str_l (getstring t "\n처음에 추가할 문자 입력.:")); 띄어쓰기 사용할려면 사용
;   (setq add_str_r (getstring t "\n마지막에 추가할 문자 입력.:"))

  )
  (progn
   (vl-load-com)
   (setq objs (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssent)))))
   (foreach obj objs
    (if (vlax-property-available-p obj 'TextString)
     (cond
      ((and add_str_L add_str_r)
      (vlax-put obj 'TextString (strcat add_str_L (vlax-get obj 'textstring) add_str_r))
      )
      ( add_str_L
      (vlax-put obj 'TextString (strcat add_str_L (vlax-get obj 'textstring)))
      )
      ( add_str_r
      (vlax-put obj 'TextString (strcat (vlax-get obj 'textstring) add_str_r))
      )
     )
    )
   );foreach
  );progn
 );if
 (princ)
)

 

한맥요청 제작


List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 원격관리 file Yeh 2014.11.13 1599
13 Wipeout file Yeh 2016.11.21 317
12 외산 무료 CAD VIRUS 제거 프로그램 file Yeh 2016.10.05 353
11 iDwgTab v3.0 이 릴리즈 되었내요.. file Yeh 2015.10.01 829
10 AutoCad Font zwcad 자료실 링크 입니다. Yeh 2015.05.13 2564
9 AutoCAD 시스템 변수 Yeh 2014.06.17 4186
8 AUTOCAD 2014 CUIX 파일 file Yeh 2014.06.09 2178
7 DirectX 런타임 DLL 누락으로 Autodesk 제품 시작 시 오류 발생 Yeh 2013.11.14 3590
6 AutoCad 버전별 닷넷 버전 file Yeh 2013.11.14 3613
5 Drawing Tabs / Manager for ACAD 2007-2013 file Yeh 2013.05.14 4691
4 AutoCad 2012 Array 예전 버전으로 변경 file Yeh 2013.05.09 4501
» 문자 앞 뒤에 특정문자를 삽입 Yeh 2013.05.08 3500
2 2009 32bit를 64bit 윈도우에 설치 2 file Yeh 2013.05.06 14319
1 듀얼 모니터 사용하다 한개만 사용할때 LAYER 창 옆모니터에서 창 가져오기 Yeh 2013.02.20 4961
Board Pagination Prev 1 Next
/ 1