(defun c:TXTOUT (/ wmfsel wmfang view_y wmfpot tan dtr el mirr_text)
(defun tan (tac /) (/ (sin tac) (cos tac)))
(defun dtr (a)(* pi (/ a 180.0)))
(setq osm (getvar “osmode”))
(setq mirr_text (getvar “mirrtext”))
(setq wmfsel (ssget))
(setvar “osmode” 0)
(setvar “mirrtext” 1)
(setq wmfang (angle (getvar “vsmin”) (getvar “vsmax”)))
(setq view_y (/ (* 0.5 (getvar “viewsize”)) (tan wmfang)))
(setq wmfpot (polar (polar (getvar “viewctr”)
(dtr 90.0)
(* 0.5 (getvar “viewsize”))
)
(dtr 180.0)
view_y
)
)
;; 미러를 하는 이유는 트루타입글자(윈도우체 예를 들어 궁서체,돋움체…)
;; 들은 미러하지 않을 경우 explode 가 안되는 경우가 더 많기 때문이다.
;; 미러를 하고 wmfin 을 하게 되면 확실하게 explode 된다.
(command “mirror” wmfsel “” (setq ex (getvar “viewctr”)) (list (car ex) (+ (cadr ex) 100) (caddr ex)) “y”)
(command “_wmfout” “temp-text-explode.wmf” wmfsel “”)
(setq el (entlast))
(command “_wmfin” “temp-text-explode.wmf” wmfpot 2 “” “”)
(command “mirror” (entlast) “” (getvar “viewctr”) (list (car ex) (+ (cadr ex) 100) (caddr ex)) “y”)
(command “_explode” (entlast))
(command “_erase” wmfsel “”)
(repeat 4 (command “_erase” (setq el (entnext el)) “”))
(setvar “osmode” osm)
(setvar “mirrtext” mirr_text)
(princ)
)
TEXT EXPLODE 하는 명령어인데요…..
EXPLODE하면요 위치가 변경이 되네요…제가 하려고 하는건
위치가 변경이 되면 아무 소용이 없어서 그런데 위치가 변하지
않게 수정좀 해주세요…부탁입니다.
중간에 보면 미러를 하는 얘기가 나오는데 미러를 하지 않았으면
좋겠어요 트루타입 글자를 쓰지않아도 좋으니깐 제발 도와주세요…
그리구 이거말구 TEXT EXPLODE하는 방법이 있으면 갈쳐주세요….
방법이 있다면 자~~알~~갈켜주세요..
제가 초보라서…….ㅜ.ㅜ
그럼 즐거운 주말 되시구요……감사합니다…
종각에도 가봐야하는데………^^
DEUX FOREVER…….