홈/ 질문/Q 113632
다음
진행 중
무니미니
Lv.0
등록일: 2022-02-16T10:05:10+09:00 카테고리:

TEXT 분해와 동시에 블럭처리

안녕하세요

해외일을 하다보니 답답한 점이 생겼습니다.
일본어로 작업하는 경우가 종종 있습니다.
문제는 폰트를 찾아서 일본어로 사용은 가능한데 상대에서 읽었을경우 폰트가 없으면 깨지는 경우가 종종 있더라고요~~
그래서 일본어 문자를 EXPLODE(폭파) 해서 조각조각 나있는 라인을 다시 블록화 해서 한개로 처리해서
송부해주는 경우가 있습니다.
이것을 한번에 가능할까요??

정리 : 글씨를 EXPLODE(폭파) 과 동시에 BLOCK(블럭)화 하는 리습이 가능할까요??

고수님들 부탁드립니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0
      (defun c:tev ( / ss xp yp p3 osm mrtxt ssel mrang vlen mrpt ex el)
      ;; 좌표 만들기
      (setq ss (ssget “w” (setq p1 (getpoint “n 첫번째 : “))(setq p2 (getpoint “n 두번째 : “))))
      (setq xp (vl-sort (list(car p1)(car p2)) ‘<))
      (setq yp (vl-sort (list(cadr p1)(cadr p2)) ‘<))
      (setq p3 (list (nth 0 xp) (nth 0 yp)))
      (grdraw p1 p3 2 1)
      (grdraw p3 p2 2 1)
      (grdraw p2 (list (nth 1 xp) (nth 1 yp)) 2 1)
      (grdraw (list (nth 1 xp) (nth 1 yp)) p1 2 1)
      ;폭파하기
      (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 ss)
      (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)
      ; 복사해서 블록 만들기
      (command “_cutclip” (ssget “w” p1 p2) “”)
      (command “_pasteblock” p3)
      )
      • 0
    3. Lv.0

      bee 님 감사합니다.
      원하는 리습입니다. 단 실행후 불필요한 사각박스 라인이 생기는데 뭘까요??
      회사에서 정품 문제상 2002버전 사용하는데 그게 문제일까요??

      • 0
    4. Lv.0
      영역을 보여주기 위해 추가했습니다. (미리보기 가상선 입니다.)
      불필요하시다면
      (grdraw p1 p3 2 1)
      (grdraw p3 p2 2 1)
      (grdraw p2 (list (nth 1 xp) (nth 1 yp)) 2 1)
      (grdraw (list (nth 1 xp) (nth 1 yp)) p1 2 1)
      해당 내용을 지우시면 됩니다
      혹시 나중에 영역 확인이 필요하실지도 모르신다면 ; 주석처리 해두시는것도 방법일거 같아요.
      • 0
    5. Lv.0

      네 감사합니다.
      하위 버전에서 그런것 같습니다.
      잘사용하겠습니다.

      • 0