text size 때문에 여쭙니다

Question

Lv.0

등록일: 2008-09-302008-09-30T16:15:30+09:00 2008-09-30T16:15:30+09:00카테고리: AutoCAD & CADian

text size 때문에 여쭙니다

제가 지도를 다루는데요

우리나라지도를 볼때 1:50,000 도각이나 25,000도각 으로 표현된 인덱스가 있습니다.

기존에 마이크로스테이션에서 쓰던 파일을 dwg로 변환해서 작업중인데요

각 도엽번호가 도각보다 커져서 낱개로 move시키지않으면 중첩이되어서 보이질 않네요

그런데 이 각각의 텍스트들을 각자의 위치에서 size를 줄이는 방법을 모르겠어서요

혹시 아시는분 계시면 말씀 부탁드립니다.

3 답변

주왕 · Answer 1 · 2008-09-30T17:18:25+09:00

리습 하나올릴께요….
명령 엔터 전체드레그 엔터 싸이즈 엔터 순……………
(defun c:tz(/ ss k ssn en a h h1)
   (prompt ” Height Change…”)
   (setq ss (ssget ‘((0 . “text,mtext,attdef”))))
   (setq dz (getvar “dimzin”))
   (setvar “dimzin” 0)
   (setq k 0 ssn (sslength ss))
   (setq h2 (* (getvar “dimscale”) 3))
   (setq h1 (cdr (assoc 40 (entget (ssname ss (- ssn 1))))))
   (setq a (strcat “nNew text height<” (rtos h1 2 1) “>:”))
   (setq h (getreal a))
   (if (= h nil) (setq h h1))
   (repeat ssn
      (setq ed (entget (ssname ss k)))
      (setq ed (subst (cons 40 h) (assoc 40 ed) ed))
      (entmod ed)
      (setq k (+ k 1))
   );repeat end
   (setvar “dimzin” dz)
(princ))