how i can put text in top or bottom object?

[hamidciv]

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

[asos2000]

LEE giving you an ideal example of what you want

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

[mostafa badran]

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

[hamidciv]

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

[hamidciv]

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

[asos2000]

hamidciv post what you coded,

[hanhphuc]

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

Edited September 28, 2014 by hanhphuc
_dimradius, command: a2f was LM's area to field

[hamidciv]

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?

[mostafa badran]

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

Edited September 27, 2014 by mostafa badran
improve code

[hamidciv]

dear mostafa

my mean this was exactly.

thanks a lottttttttttttttttt for help me.

regards

[mostafa badran]

dear mostafa

my mean this was exactly.

thanks a lottttttttttttttttt for help me.

regards

your welcome glad to hear that.