캐드 분류
선택된 모든 텍스트 내용을 바꿔주는 리습 질문입니다
컨텐츠 정보
- 332 조회
- 5 댓글
- 0 추천
- 0 비추천
-
목록
본문
회사에서 쓰는건데 외부전송이 안되어
직접 배껴서 집에서 쓰려고 합니다
근데 안되네요
뭐가 문젠지 고수님들께 부탁드립니다 ㅠㅠ
—————————————
(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
관련자료
댓글 5
개두둥님의 댓글
전 이거씀 이미 있는 텍스트 한번에 변경하는거 ㅋㅋ
(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)) ) )