안녕하세요. 좋은 오후입니다.^^
같이 첨부한 리습을 이용해서, 글자를 추가 하면서 dtext로 변경되는 리습으로 만들 수 있을까요?
문자-txt2mtxt
(defun c:txt2m (/ pt1 pt2 selset n)
(vl-load-com)
(setq pt1 (getpoint “nSelect First Point: “))
(setq pt2 (getcorner pt1 “nSelect Opposite Corner: “))
(setq selset (ssget “_C” pt1 pt2 ‘((-4 . “<OR”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “OR>”))))
(setq n 0)
(repeat (sslength selset)
(if (/= (cdr (assoc 0 (entget (ssname selset n)))) “TEXT”)
(vl-cmdf “explode” (ssname selset n))
);if
(setq n (1+ n))
);repeat
(setq selset (ssget “_C” pt1 pt2 ‘((-4 . “<OR”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “OR>”))))
(vl-cmdf “txt2mtxt” selset “”)
(princ)
);defun
엄서욤
없다구요? ㅠㅠ 슬픈 일이네요. 댓글 감사합니다.^^
(defun c:txt2m (/ pt1 pt2 selset n)
(vl-load-com)
(setq pt1 (getpoint “nSelect First Point: “))
(setq pt2 (getcorner pt1 “nSelect Opposite Corner: “))
(setq selset (ssget “_C” pt1 pt2 ‘((-4 . “<OR”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “OR>”))))
(setq n 0)
(repeat (sslength selset)
(setq ed (entget (ssname selset n)))
(entmod (setq ed (subst (cons 1 (strcat “반갑습니다.” (cdr(assoc 1 (entget (ssname selset n)))))) (assoc 1 (entget (ssname selset n))) ed )))
(if (/= (cdr (assoc 0 (entget (ssname selset n)))) “TEXT”)
(vl-cmdf “explode” (ssname selset n))
);if
(setq n (1+ n))
);repeat
(setq selset (ssget “_C” pt1 pt2 ‘((-4 . “<OR”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “OR>”))))
(vl-cmdf “txt2mtxt” selset “”)
(princ)
안녕하세요. 우선 댓글 감사합니다.
제가 이거 실행 시켜 보았는데, 만족합니다.
mtext로 변경후 문자의 폭이 약간 문제가 되는데(1줄을 원하는데 2줄이 됨),
이거는 제가 직접 늘리면 될거라고 봅니다.
감사합니다. 좋은 오후 되세요