;;;改變字的大小
(DEFUN C:KT(/ SS TXSIZE N INDEX ENT TYPE OLDSIZE NEWSIZE ENT1)
    (SETQ SS (SSGET))
    (SETQ TXSIZE (GETDIST "\N ENTER NEW TEXT SIZE:"))
    (SETQ N (SSLENGTH SS))
    (SETQ INDEX 0)
    (REPEAT N 
	(SETQ ENT (ENTGET (SSNAME SS INDEX)))
	(SETQ INDEX (+ 1 INDEX))
	(SETQ TYPE (ASSOC 0 ENT))
	(IF (= "TEXT" (CDR TYPE))
		(PROGN
		    (SETQ OLDSIZE (ASSOC 40 ENT))
		    (SETQ NEWSIZE (CONS (CAR OLDSIZE) TXSIZE))
		    (SETQ ENT1 (SUBST NEWSIZE OLDSIZE ENT))
		    (ENTMOD ENT1)
		)
	  )
     )

(PRIN1)
)






;;;改變字的高度

(DEFUN C:CT(/ A TEXT N INDEX B1 B C D B2) 
      (SETQ A (SSGET))
      (SETQ TEXT (GETDIST "\nENTER TEXT HEIGHT: ")) 
      (SETQ N (SSLENGTH A))
      (SETQ INDEX 0)
      (REPEAT N
	  (SETQ B1 (ENTGET (SSNAME A INDEX)))
	  (SETQ INDEX (+ INDEX 1))
	  (SETQ B (ASSOC 0 B1))
	  (IF (= "TEXT" (CDR B))
	     (PROGN 
		   (SETQ C (ASSOC 40 B1))
		   (SETQ D (CONS 40 TEXT))
		   (SETQ B2 (SUBST D C B1))
		   (ENTMOD B2)
	     )
	  )   
      )
)