우연히 얻어온 리습인데 문자 스타일 크기등의 지정을 할수 없네요
문자 지정할수 있게 수정 좀 부탁드립니다.

 (DEFUN C:IT()
(setq count 0)
(setq index 0)
(setq text_gap 1.0)
(setq text_width 3.3)
(setq th(getvar “textsize”))
(prompt “nSelect of Entity : “)
(setq a(ssget))
(setq t(getstring “nInput Textstring : “))
(setq tl(strlen t))
(setq bl(* (+ (* tl (/ text_width 20.0)) text_gap) (getvar “TEXTSIZE”)))
(setq b(sslength a))
(if(not(= 0 b))
(progn
(while (< count b)
(setq c(entget (ssname a count)))
(if (or (= “LINE” (cdr(assoc 0 c)))
        (= “ARC” (cdr(assoc 0 c))))
(progn
(setq index(+ index 1))
(setq pa(cdr(assoc 10 c)))
(setq pb(cdr(assoc 11 c)))
(setq pc(/ (- (max (car pa) (car pb)) (min (car pa) (car pb))) 2.0))
(setq pd(/ (- (max (cadr pa) (cadr pb)) (min (cadr pa) (cadr pb))) 2.0))
(setq pe(list (- (max (car pa) (car pb)) pc) (- (max (cadr pa) (cadr pb)) pd)))
(setq pf(polar pe (angle pa pb) bl))
(setq pg(polar pe (angle pb pa) bl))
(command “break” pf pg)
(command “text” “mc” pe th “0” t)
))
(setq count(+ count 1))
)
(setq a(strcat “n*** Update Entity Length <” (itoa index) “> ***”))
(princ a)
))
(if (= 0 b)
(princ “n Not Entity”)
)
(princ))
(princ)

(princ (getvar “TEXTSIZE”))
(princ “n”)
(princ)

우선,
아래 단축키엔터,
그리고 텍스트 (가로)하나 클릭
텍스트 (세로)하나 클릭
또 다시 텍스트 (이름) 하나 클릭
그리고 나타내고 싶은 자리에 클릭
그럼 사각형이 생성되고 텍스트(이름)이 자동으로 크기조절이 되어서 사각형 안에 들어갑니다.

여기서요, 텍스트(이름)을 하나만 클릭 되게끔 되어 있어서 이걸
여러개를 선택 (드래그) 을 해서 사각형 안에 아래처럼 자동 축척되어서 들어가게끔 하고 싶습니다..
모처럼 해결이 되지 않아서..급한 마음에 혁명주동자님의 코딩내용을 올립니다.
;; 이채원 프로그램을 만들다.

(DEFUN P_HAT(/ ip bss)
(SETQ cnt 1)
(WHILE (SETQ ip (GETPOINT “nPick internal point: “))
(IF (SETQ bss (Command “BOUNDARY” ip “”))
; ^
; 이부분 BOUNDARY ip 엔티티를 bss에 저장하는 방법을
; 모르겠네요
; 수정좀 부탁 드립니다
(SETQ ss (SSADD bss ss))
(PROMPT “nBoundary Difinition Error…”)
)
) )