(defun C:TEST (/ i d ce pop ssSelections objSelection colorIndex)

(defun scaleTextSize (diameter)

(cond

((< diameter ) 1.0)))

(defun setTextColor (textObj colorIndex)

(vl-catch-all-apply

‘(lambda ()

(vla-put-color textObj colorIndex)

(vla-update textObj)

(vla-regen textObj))))

(setq ss (ssget (list (cons 0 “circle”))))

(if (setq ssSelections (ssget “_P” ‘((0 . “CIRCLE”))))

(progn

(setq pop (getint “Select text color (1 = Red, 2 = Yellow, 3 = Green, 4 = Azure, 5 = Blue,6 = Magenta ): “))

(setq colorIndex

(cond

((= pop 1) 1)

((= pop 2) 2)

((= pop 3) 3)

((= pop 4) 4)

((= pop 5) 5)

((= pop 6) 6)

(t 1)))

(repeat (setq i (sslength ssSelections))

(setq i (1- i)

objSelection (vlax-ename->vla-object

(ssname ssSelections i))

d (vla-get-diameter objSelection)

ce (vlax-safearray->list (vlax-variant-value (vla-get-center objSelection)))

scaleFactor (scaleTextSize d)

scaledDiameter (* d scaleFactor)

formattedDiameter (rtos scaledDiameter 2 1)

textString (strcat “%%c” formattedDiameter)

textScaleFactor (if (= pop 6) scaleFactor 1.5))

(entmake (list

(cons 0 “TEXT”)

(cons 10 ce)

(cons 11 ce)

(cons 40 3.5)

(cons 72 1)

(cons 73 2)

(cons 7 “PLUS”);;폰트이름변경

(cons 1 textString)

(cons 62 colorIndex)))

;;; (setTextColor objSelection colorIndex);;;;;;;;;;;;;객체도 색깔 변경 할라믄 앞에 ” ;;; ” 없애면 됩니다.

)

)

)

(princ)

)

;;;;;;;두서 없이 만듬 …글 복사가 잘 안되네요 애러 날수도 있음………