topic Re: Lisp Routine help in Civil 3D Forum

Lisp Routine help

Anonymous — Thu, 24 Oct 2019 20:39:27 GMT

Hey all,

I have a lisp that used to work just fine before. It gave me quick acreage of an area and was useful for reference.
I am on Civil 3D 2020, and it appears to be broken. It keeps giving me a value of "0". I opened up Visual Lisp to inspect. Lisp follows:

(defun c:AC ()
(SETQ IP (GETPOINT " Pick Internal Point: "))
(COMMAND "-BOUNDARY" ip "")
(SETQ SS (ENTLAST))
(PROGN (COMMAND "AREA" "o" SS))
(SETQ acres (/ (GETVAR "AREA") 43560))
(SETQ Acres (rndby acres 0.001))
(setq ktext (strcat (rtos acres 2 2)" AC" ))
(setq ht 5)
(command "_.text" ip ht "0" ktext)

(princ)
)

(defun rndby (r b / tmp)
(setq tmp (rem r b))
(cond ((>= tmp (* 0.5 b)) (+ r (- b tmp)))
(T (- r tmp))))

I am trying to find the error in my programming, or a lisp that can do what this one can. Attached is also the Lisp file for those that prefer to mess with it in VLisp.

Thanks

Edit: Accidently escalated the topic. Eitherway, anyone's input will be helpful.

Re: Lisp Routine help

Jowennl — Fri, 25 Oct 2019 07:19:29 GMT

Hi @Anonymous ,

Can you please try the following attached Lisp below?

Sqft_to_Acre.gif

Original source of Lisp: Link

Cheers,

Jowenn

Re: Lisp Routine help

Anonymous — Fri, 25 Oct 2019 12:51:34 GMT

Okay so I tried both LSP files. Both are doing the same thing as my LSP. It gives me a value of 0 when I click inside, no decimal spots or anything. I attempted to make a larger square and check to see if precision was the issue, and it was not. They all keep giving me 0.

Re: Lisp Routine help

moogalm — Wed, 06 Nov 2019 10:26:26 GMT

Hi,

In your code, try changing the tolerance from 0.001 to 0.0001

(SETQ Acres (rndby acres 0.0001))

Re: Lisp Routine help

Anonymous — Wed, 06 Nov 2019 13:21:28 GMT

The text is still putting a zero as the output.

Re: Lisp Routine help

moogalm — Thu, 07 Nov 2019 07:06:30 GMT

Can you please share test drawing, I would like understand the drawing environment.

Are the coordinates of your PLINE is very far from origin ?, is it pure C3D drawing ?

Re: Lisp Routine help

lynn_zhang — Tue, 12 Nov 2019 00:17:37 GMT

Hello @Anonymous ,

Just checking to see if your problem has been solved. If not, please share the test drawing as mentioned by @moogalm so he can take a look and help you. Thanks!

Re: Lisp Routine help

Anonymous — Tue, 12 Nov 2019 13:55:12 GMT

Good morning,

I have attached one of my sites, and the Lisp. Please let me know if anyone has ideas, thank you all!

Re: Lisp Routine help

user181 — Tue, 12 Nov 2019 14:51:05 GMT

It is not because of Civil 3D 2020. It is because the current text style has an assigned height and the routine is written assuming a height of 0 is set for the current text style.

Either set the current text style to one with a height of zero before running the lsp or change the line:

(command "_.text" ip ht "0" ktext) to (command "_.text" ip "0" ktext) to use a style with a height assigned.

Or modify the lisp to set a current text style and height.

Re: Lisp Routine help

Anonymous — Tue, 12 Nov 2019 22:49:42 GMT

@user181 That was it! Thank you all for your help! this will make things a lot more efficient for those who don't know C3D Catchments!