how i can put text in top or bottom object?

hi dear friends

For example, I wrote code the area in order to give me, My goal is to be inserted this the area on object like tools dimension in autocad toolbar, how do this?

thanks

LEE giving you an ideal example of what you want

http://www.lee-mac.com/areastofield.html

Do you mean showing up area of object like a text?

dear mostafa, my mean is for example putting area or perimeter on the object which is shown beloow.(i want know which command do this in autolisp???)

thanks

dear asos

codes that you putted, written in visual lisp and also complicated, i want know What's the command in autolisp do that?

thanks

hamidciv post what you coded,

dear asos

codes that you putted, written in visual lisp and also complicated, i want know What's the command in autolisp do that?

thanks

command: _dimradius

dear asos

for example written code for drawing circle that radius with leader dispalyed that shown follow, now i want text "area" put previous of radous in my circle on screen.

i want exactly text "area" putted previous 12.35 in figure attached, with command do this in autolisp?

try with this.

(defun c:test (/ AREA AREAST ARST NP1 NP2 P1 )
 ;mostafa badran
 (vl-load-com)
 (setq p1 (getpoint "\n Specify first leader point,"))
 (setq np1 (getpoint p1 "\n Specify next point:"))
 (setq np2 (getpoint np1 "\n Specify next point:"))
 (setq rad (vla-get-Radius (vlax-ename->vla-object (car (entsel)))))
 (setq radst (rtos rad))
 (setq rast (strcat "Radius=" radst))
 (command "qleader" p1 np1 np2 "" rast "")
 (princ)
)

but you need to Identify size of text and size of arrows.

HTH

dear mostafa

my mean this was exactly.

thanks a lottttttttttttttttt for help me.

regards

dear mostafa

my mean this was exactly.

thanks a lottttttttttttttttt for help me.

regards

your welcome glad to hear that.