[기능] 수동으로 TEXT를 EXPLODE하기

** 수동으로 TEXT를 EXPLODE하기

AutoCAD의 Bonus Tool에 기능이 있으나 없는 경우 수동으로 TEXT를 EXPLODE하는 방법을 설명합니다.

- 여기서 말하는 Bonus Tools 기능은 express 기능으로 express 기능 하부에 explode text메뉴가 있습니다.

화면에 EXPLODE할 TEXT가 있어야 한다.
(윈도우 폰트도 가능하다.)

1. Command에 mirrtext를 입력하여 값을 1로 바꾼다.
(mirror할 때 TEXT가 반대형상으로 표현되도록 하는 변수)

2. Command에 mirror를 입력하여 TEXT를 mirror한다.
(mirror를 하지 않으면 Explode되지 않는다.)

3. Command에 wmfout명령을 입력하여 파일이름에 test.wmf를 입력한 후 mirror된 TEXT를 선택한다.
(wmf파일은 windows meta file 입니다.)

4. Command에 wmfin명령을 입력하여 기록된 test.wmf파일을 읽어들인다.
(확대비율은 2배로 한다.)

5. Command에 mirror를 입력하여 읽어들인 형상을 mirror한다.
(원래의 모양으로 바꾼다.)

6. Command에 explode를 입력하여 읽어들인 형상을 explode한다.
(Explode를 여러번 하면 Line, Arc로 변경된다.)

7. 원하는 위치로 이동시켜 사용할 수 있다.

=============================================================
**  위의 방법을 LISP으로 만들어 놓았습니다.  **

** 아래의 LISP내용을 참조하여 사용하여도 된다. **
-------------------------------------------------------------
(DEFUN C:TXTEXP (/ SSEL MRANG VLEN MRPT tan dtr el MRTXT)
(defun tan (tac /) (/ (sin tac) (cos tac)))
(defun dtr (a)(* pi (/ a 180.0)))
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setq MRTXT (getvar "mirrtext"))
(setvar "osmode" 0)
(setvar "mirrtext" 1)
(setq SSEL (ssget))
(setq MRANG (angle (getvar "vsmin") (getvar "vsmax")))
(setq VLEN (/ (* 0.5 (getvar "viewsize")) (tan MRANG)))
(setq MRPT (polar (polar (getvar "viewctr") (dtr 90.0) (* 0.5 (getvar "viewsize"))) (dtr 180.0) VLEN))
(command "mirror" SSEL "" (setq ex (getvar "viewctr")) (list (car ex) (+ (cadr ex) 100) (caddr ex)) "y")
(command "_wmfout" "temp.wmf" SSEL "")
(setq el (entlast))
(command "_wmfin" "temp.wmf" MRPT 2 "" "")
(command "mirror" (entlast) "" (getvar "viewctr") (list (car ex) (+ (cadr ex) 100) (caddr ex)) "y")
(command "_explode" (entlast))
(command "_erase" SSEL "")
(setvar "osmode" osm)
(setvar "mirrtext" MRTXT)
(setvar "cmdecho" 1)
(princ)
)

출처 : http://www.gocad.co.kr/qa/main.php?part=&code=tiptech&mode=&load=view&id=180&start=106