정말 급합니다. 꼭..꼭..꼭.. DTEXT로 입력한걸 MTEXT로 바꿀수 있는지요..

넵 권현실님 말씀대로 조금은 어려운 작업같네여…리습으로는 가능할꺼란

생각은 드는데 제도 요즘에 시간에 쫒기는 몸이라 많은 시간을 투자해서 님

을 도와주기란 쉽지가 않네여…

약간의 시간을 투자해서 짠 리습을 올립니다..님한테 조금이나마 도움이 되었음

합니다..

님이 가지고 계신 파일을 검토할수 없어서 임의적으로 짰습니다..글씨 크기에 따라

약간의 수정값을 주어야 되는데..

전 글씨 크기가 1~5인정도로 생각하고 짠리습임다… 만약 님의 파일에 글씨가 더

크신경우는 이부분을 수정해서 쓰시기 바람니다..

(defun c:bc ()

(setq ss (ssget "x" ‘((0 . "text")))

num (sslength ss)

i 0)

(while (> num i)

(setq en (ssname ss i)

ent (entget en)

ab (cdr (assoc 1 ent))

ab2 (cdr (assoc 10 ent))

ab3 (cdr (assoc 40 ent))

i (1+ i))

(setq po (polar ab2 ab3 1.5708)

po1 (polar po 50 0) ==========>> 이부분에서 50을 더크게 늘려서 사용하세여

po2 (polar po1 ab3 1.5708))

(command "color" 1)

(command "mtext" po "h" ab3 "w" 50 ab "")

(setq ab3 0)

)

(princ)

)

이 리습은 따로 제가 올리니 다운받아 사용하세여..

참고로 dtext는 삭제를 하지않고서 글씨가 써짐니다..빨강색으로..

좌표값이 정확하게 안맞는데.. 지금으로썬 더이상 좌표값을 맞추기는 쉽지 안네여

한번 비교하신후 예전의 디텍스트를 삭제하세여..ssx를 사용하시면 쉽게

삭제하실수 있을껍니다..

리습사용법은 알고계시죠….

command : appload

대화상자가뜨면 리습이 있는 디렉토리를 찾아서 엽니다..

그리고

command : bc

그럼 ……………………….^^

아 ~~~ 참고로여…글씨의 각도는 0도로써질것입니다..그리고 리습돌리기전

스타일을 먼저 맞춰놓으신다음 리습을 돌리시기 바랍니다..

님한테 조금이나마 도움이 되었음 하는데….잘 모르겠네여…^^

한번의 리습을 돌려서전체의 데이타를바꾸는것은 불가능할꺼란 생각이 드네여..

.그런데 그텍스트들을 일일이

선택함으로써 그것들을 한번에 mtext로 묶는것은 가능할것 같은데..저도한번

해봐야 겠네여…지금은 동네 겜방이라 불가능하고여..낼 회사 가서 시간나면

한번짜보고 성공하면 올려드리겟습니다….그럼 이만 남은 주말 잘쉬시길..

제 나름대로 짜기는 했지만…..님이 원하시는 정도의 완성품은 아닙니다

예를들어

abc

def

ghi ==> 이렇게 mtext를 만들고 싶으신거죠..(디텍스트를 합쳐서)

그런데 지금 제가 짠 리습은 결과값이

abc def ghi ===>이런 결과값을 같는 mtext가 나옵니다..

엔터기능을 추가해서 칸을 넘길려고 너력은 했는데…. 쉬운 문제만은 아니

더라고여.. 좀더 복잡한 과정을 거쳐야 완벽한 결과값을 얻을수 있을꺼 같아여

지금은 쫌 어려운 점이 있네여…^^

좀 아쉬운데로 사용하시고여… 쪼금이라도 도움이 되셨음 합니다..

먼저 리습을 로드하신다음

dtext로 된 재원들을 선택합니다… (하나로 만들고 싶은 재원들)

순서대로 선택을 하셔야 됩니다..

그리고 텍스트가 써질 위치를 선택하면 결과값이 나옵니다

그담에 에드트로 줄바꾸는것은 수정해 사용하세여…

그럼 좋은 하루되십시요……