홈/ 질문/Q 111825
다음
진행 중
두근두근
Lv.0
등록일: 2019-10-11T15:18:42+09:00 카테고리:

dtext->글자추가mtext

안녕하세요. 좋은 오후입니다.^^
같이 첨부한 리습을 이용해서, 글자를 추가 하면서 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







20191010_124741.jpg

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21

      엄서욤 

      • 0
    3. Lv.0

      없다구요? ㅠㅠ 슬픈 일이네요. 댓글 감사합니다.^^

      • 0
    4. Lv.17

      (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)

      );defun
      기존 프로그램에서 변경을 안하는 방향에서 기능을 추가하여 가능하도록 했습니다.
      하지만 문제는 많이 있는 프로그램입니다.
      1. 영역 선택에서 여러 문자를 한번에 선택하면 하나의 mtext로 됩니다.(기존부터 그렇게 사용됨)
      2. mtext를 선택하면 explode 해서 다시 mtext로 변환하는데 안되는 경우가 있음.
      3. mtext를 선택하면 “반갑습니다”가 문장 뒤에 붙음.
      등 여러가지 문제점이 있습니다.
      • 0
    5. Lv.0

      안녕하세요. 우선 댓글 감사합니다.
      제가 이거 실행 시켜 보았는데, 만족합니다.
      mtext로 변경후 문자의 폭이 약간 문제가 되는데(1줄을 원하는데 2줄이 됨),
      이거는 제가 직접 늘리면 될거라고 봅니다.
      감사합니다. 좋은 오후 되세요

      • 0