회사에서 쓰는건데 외부전송이 안되어
직접 배껴서 집에서 쓰려고 합니다
근데 안되네요
뭐가 문젠지 고수님들께 부탁드립니다 ㅠㅠ
—————————————
(defun c:te()
(graphscr)
(setvar “cmdecho” 0)
(setq te (entsel))
(setq te1 (cadr te)
te2 (car te)
te3 (entget te2)
te4 (cdr (assoc 1 te3)))
(prompt “Now, base text value is < “)
(princ te4)
(prompt “ >”)(terpri)
(setq te5 (ssget))
(setq te6 (sslength te5)
te7 0)
(repeat te6
(setq te8 (entget (ssname te5 te7))
te7 (+ 1 te7)
te9 (assoc 1 te8)
te10 (cons (car te9) te4)
te11 (subst te10 te9 te8)
);setq close
(entmod te11)
);;repeat close
(princ)
);;defun close
메모장에서 쌍따옴표 다시 찍으세요.
전 이거씀 이미 있는 텍스트 한번에 변경하는거 ㅋㅋ
(defun c:tc()
(command “redraw”)
(setq i 0)
(prompt “A->B A를 선택하세요”)
(setq e1(ssget))
(setq n (sslength e1))
(Prompt “nA->B B를 선택하세요”)
(setq f1(ssget))
(setq ed1(entget (setq f2(ssname f1 i))))
(setq uu1(assoc 1 ed1))
(setq uu2(cdr uu1))
(while (< i n)
(setq ed(entget (setq e2(ssname e1 i))))
(setq tt1(assoc 1 ed))
(setq tt2(cdr tt1))
(setq ed(subst (cons 1 uu2)(assoc 1 ed) ed))
(entmod ed)
(setq i (+ 1 i))
)
)
사용방법은 tc – spacebar – 텍스트 전체 선택 – spacebar – 통일시킬내용선택 – spacebar
(ma 특성일치 기능이랑 같다고 보면됨)
와 바꾸면서 보니까 정말 다르네요
공유 감사합니다 ㅎ 잘쓸게요!!