Hi, Need little help on Area Lisp.

Hi all,

I have a Lisp of Area which puts Area S.F. (not mine I got it maybe from in here). It can add Area as Text on picked point. I want this lisp to add Area Text with a Leader which will need two clicks, one inside area space other where to put area and adds a Leader too. I can't do it because I don't know much about Lisp.

If someone can do it please help I'll be thankful.

BYE.

Area.lsp

Did you in any way modify this lisp code?

Its appears to be generating a bad result. Square inches as square feet.

I dont beleive its the intention of the original author.

I'm just saying....

Did you in any way modify this lisp code?

 

Its appears to be generating a bad result. Square inches as square feet.

 

I dont beleive its the intention of the original author.

 

I'm just saying....

Hi pBe,

No I didn't modify or edit to make changes into it. I have this as I downloaded it, it is giving me right area as I want. Why there is bad result. Where is wrong in it.

Can you add leader to Text by asking two pick points.

Thanks.

Hi pBe,

No I didn't modify or edit to make changes into it. I have this as I downloaded it, it is giving me right area as I want. Why there is bad result. Where is wrong in it.

Thanks.

Well I guess it didnt acoount for current Lunits.

Can you add leader to Text by asking two pick points.

Thanks.

Yes, a leader can be added. but i wouldnt want to modify the orignal lisp more than i have to.

Maybe somebody else would do it for you.

HINT:

(command "leader" pause pause pause "" "" "n")

HINT:

(command "leader" pause pause pause "" "" "n")

Hi pBe,

But where should I put this within the Lisp, and how can I connect Leader to Text so that Text should be placed on last picked point at the end of Leader.

Hope you understand and if you can put it in that lisp I'll be thankful.

Thanks.

oh welll.... [Disclaimer: .....blah blah blah...... only suggested ....blah blah blah...... and NOT modify ......]

(defun _Leader ()
     (command "leader" pause pause pause "" "" "n") T)

.....
(if   [color=blue](and (_leader)[/color]
               (setq pt (getpoint "\nPick text placement: "))[color=blue])[/color]
......

Hope you're aware that the text alignmnet is Center.

Cheers

Hi pBe,

Sory couldn't understand that. I told already I don't know about Lisp. But thanks for your try to help. I am looking forward to someone else who could help me.

Or if someone has better Area Command with a Leader to Text.

Thanks.

Thats unfortunate Saqib.. but its right there on my post. It would be a good time to learn how its done.

At least try and figure out where that line should go.

Thats unfortunate Saqib.. but its right there on my post. It would be a good time to learn how its done.

 

At least try and figure out where that line should go.

Thanks pBe for encouraging me, I'll try to do this and post how I did. Hope you'll tell me if something will wrong.

Thanks pBe for encouraging me, I'll try to do this and post how I did. Hope you'll tell me if something will wrong.

I tried it but could not figure out where this code should fit. Lisp is too lengthy to read for me when I don't know basic things of Lisp.