문자 선택후 똑같은 문자로 일괄변경 리습 없나요?
컨텐츠 정보
- 253 조회
- 9 댓글
- 0 추천
- 0 비추천
- 목록
본문
문자를 일괄 변경하고싶습니다.
원본 문자 선택 후 변경할 문자 선택하여 변경하는 리습이나.
순서대로 하나씩 변경하는 리습이 아닌..
변경할 문자 쭉~~선택하여 변경하려는 문자입력하여 일괄적으로 한번에 변경할수있는
리습없을까요..?
예를들어 여러문자를 0 으로 변경하려고하는데…
일괄적으로 원하는 문자로 바꿔주는 리습은 못찾겠습니다.
혹시 리습있으신분은 공유좀 부탁드려요..ㅠㅠ
관련자료
플강님의 댓글
정말 제가 원하던 리습입니다. 상큼메론님 너무너무 감사합니다. 저 죄송하지만 부탁이 하나 더있습니다..;; 텍스트 줄간격으로 정렬하는 리습이있는데. 소수점으로 간격을 정리하고싶은데 소수점은 기입이 안됩니다. 소수점 기입할수있게 리습 수정이 가능할까요? ex)3.6 이렇게 입력하고싶은데 안되네요.. ;;; 텍스트 줄간격 맞추기 ;;;; (defun c:tdd ( / sel_txt al_pt1 al_pt2 al_pt3 index n ch_txt1 ch_txt2 ins_pt ref_pt sort sorti m i ins_ypt) (prompt "n정렬할 문자 선택 : ") (setq sel_txt (ssget '((-4 . "") ) ) )
(or ##txtline_gap (setq ##txtline_gap 10))
(setq ##txtline_gap (cond ((getint (strcat "nSpecify Text offset <" (vl-princ-to-string ##txtline_gap) ">: "))) (##txtline_gap) ) ) (setq index 0) (setq n (sslength sel_txt)) (repeat n (setq ent (ssname sel_txt index)) (setq prop_ent (entget ent)) (setq in_point (cdr (assoc 10 prop_ent))) (setq sort (append sort (list in_point))) (setq index (1+ index)) ) (vl-load-com) (setq sorti (vl-sort-i sort (function (lambda (e1 e2) (> (cadr e1) (cadr e2)))) ) ) (setq m 0) (repeat n (setq i (nth m sorti)) (setq ch_txt1 (ssname sel_txt i)) (setq ch_txt2 (entget ch_txt1)) (setq al_pt1 (cdr (assoc 72 ch_txt2))) (setq al_pt2 (cdr (assoc 73 ch_txt2))) (if (and (= al_pt1 0) (= al_pt2 0)) (setq ins_pt (cdr (assoc 10 ch_txt2))) (setq ins_pt (cdr (assoc 11 ch_txt2))) ) (if (= m 0) (progn (setq ins_xpt(car ins_pt)) (setq ins_ypt(cadr ins_pt)) ) (princ) ) (setq ins_pt (- ins_ypt (* ##txtline_gap m))) (setq ins_pt (list ins_xpt ins_pt )) (if (and (= al_pt1 0) (= al_pt2 0)) (progn (setq ch_txt2 (subst (cons 10 ins_pt) (assoc 10 ch_txt2) ch_txt2)) ;;; 이게 중요함 10코드를 뽑아서 11번 코드로 넣어줘야 됨 ;;; (entmod ch_txt2) ) (progn (setq ch_txt2 (subst (cons 11 ins_pt) (assoc 11 ch_txt2) ch_txt2)) ;;; 이게 중요함 10코드를 뽑아서 11번 코드로 넣어줘야 됨 ;;; (entmod ch_txt2) ) ) (setq m (1+ m)) ) )