Topic: Set Annotation scale to text object

[Coder]

Hello guys.

Anyone knows how to set Annotation Scale to text object ? for example 1:500 or 1:2000 ... etc.

Code: [Select]

(defun AnnotativeText (spc pt anno / obj)
  (setq obj (vla-addtext spc "Room Name: " (vlax-3d-point pt) 0.2))
    (if anno (command "_.chprop" (vlax-vla-object->ename obj) "" "A" "Yes" ""))
  obj
  )

Many thanks.