topic Re: Point Elevation Difference Lisp Routine in Civil 3D Customization Forum

Point Elevation Difference Lisp Routine

JBACH1012 — Wed, 07 Sep 2022 14:00:25 GMT

I am trying to find a Lisp Routine that will allow me to select two Cogo Points and list the difference in elevation (z) in Inches with a Multileader. I have seen other posts on here about doing this but none seem to work for me. I have tried to Frankenstein a Lisp Routine from other posts but I do not know coding very well (see below). Any help on this matter will be greatly appreciated.

(defun c:ped ()

(setq Pt1 (ssget '((0 . "AECC_COGO_POINT"))))

(setq pt2 (ssget '((0 . "AECC_COGO_POINT"))))

(setq E1 (nth 0 Pt1))

(setq N1 (nth 1 Pt1))

(setq Z1 (nth 2 Pt1))

(setq E2 (nth 0 pt2))

(setq N2 (nth 1 pt2))

(setq Z2 (nth 2 pt2))

(princ (- z1 z2))

(command "_TEXT" pause "0.06" "0" (rtos (- z1 z2)))

;finish cleanly

);end of defun

Re: Point Elevation Difference Lisp Routine

hosneyalaa — Wed, 07 Sep 2022 16:48:16 GMT

Hi @JBACH1012

Looking at this it may help you

https://forums.autodesk.com/t5/civil-3d-customization/create-points-interpolate-with-lisp/m-p/4775209

Re: Point Elevation Difference Lisp Routine

JBACH1012 — Wed, 07 Sep 2022 17:10:15 GMT

Thanks for the link but I am getting "Error: Automation Error. Problem in loading application" when I try to run it in Civil 3D 2021. It may be because this Lisp Routine was created in 2014.

Re: Point Elevation Difference Lisp Routine

Jeff_M — Wed, 07 Sep 2022 17:21:29 GMT

@JBACH1012 attached is a lisp which does this. Be sure you have your desired Mleader style set current prior to running. It gives the option to select the points by Number or by Selection, it then will loop through as long as 2 points are provided.

Re: Point Elevation Difference Lisp Routine

JBACH1012 — Wed, 07 Sep 2022 17:58:56 GMT

Thank you! This works perfectly!

Re: Point Elevation Difference Lisp Routine

albertluus2J23M — Fri, 16 Jun 2023 15:25:55 GMT

hi,

what is the command to use with this lisp.

Re: Point Elevation Difference Lisp Routine

hosneyalaa — Fri, 16 Jun 2023 15:54:27 GMT

Hi @albertluus2J23M

Comment is PED

Re: Point Elevation Difference Lisp Routine

qchenTPPXV — Wed, 17 Apr 2024 18:04:47 GMT

Thank you for sharing this. I have one question, Ithe file is loaded and I enter cogo but couldn't search for this commend. Any ideas for this? Thank you very much for your help!

Re: Point Elevation Difference Lisp Routine

hippe013 — Wed, 17 Apr 2024 19:11:06 GMT

The command name in the lisp that @Jeff_M posted is "PED".

Re: Point Elevation Difference Lisp Routine

qchenTPPXV — Wed, 17 Apr 2024 19:28:18 GMT

Thanks. Do you know how to modify the result to round to 3 decimals. And delete the symbol after the number

Re: Point Elevation Difference Lisp Routine

hippe013 — Wed, 17 Apr 2024 19:47:10 GMT

Yes. You can do it though.

Look for the following code:

(rtos diff 4)

And modify it to be this:

(rtos diff 2 3)

Re: Point Elevation Difference Lisp Routine

qchenTPPXV — Wed, 17 Apr 2024 19:50:05 GMT

Thank you very much for getting back to me. When I change to code, I get 3 decimals but the result is not correct.
[cid:db046cd7-f935-4df2-bf33-7382aee95d65]

Re: Point Elevation Difference Lisp Routine

hippe013 — Wed, 17 Apr 2024 21:55:01 GMT

It looks like he is multiplying the elevation difference by a factor of 12.

You can modify this block of code.

(setq diff (* 12 (- (last pt1) (last pt2))) midpt (mapcar '(lambda (x y) (/ (+ x y) 2)) pt1 pt2);;for mleader inspt inspt (getpoint midpt "...pick text insertion point: ") mldrpts (list (car midpt)(cadr midpt) 0 (car inspt)(cadr inspt) 0) ptlist (vlax-make-safearray vlax-vbdouble '(0 . 5)) ptlist (vlax-safearray-fill ptlist mldrpts) )

To be this:

(setq diff (- (last pt1) (last pt2)) midpt (mapcar '(lambda (x y) (/ (+ x y) 2)) pt1 pt2);;for mleader inspt inspt (getpoint midpt "...pick text insertion point: ") mldrpts (list (car midpt)(cadr midpt) 0 (car inspt)(cadr inspt) 0) ptlist (vlax-make-safearray vlax-vbdouble '(0 . 5)) ptlist (vlax-safearray-fill ptlist mldrpts) )

Sorry, I should have caught that.

Re: Point Elevation Difference Lisp Routine

qchenTPPXV — Thu, 18 Apr 2024 11:57:31 GMT

Thank you so much. It works perfectly now.

Re: Point Elevation Difference Lisp Routine

Andrey_Goretoy — Wed, 10 Jul 2024 22:14:29 GMT

this LISP routine works perfect (with noted corrections) - thank you hippe013 ! I am not a LISP programmer, but a constant user. Would be nice if this Mleader would automatically pick 1st picked point as a start and the last picked point as a text inset location, so it kind of visually points which 2 points involved in calculation of a result that is displayed in Mleader, for example - see the screen clip below. As of now - Mleader draws start leader point as MIDPOINT between 2 picked points (upper yellow arrow in inset) , and if points are close to each other - this is ok and will be well understood, but if they are far apart and some other points are around - it might be confusing.

Arrow pointer below is what I mean as it would be clearly pointing between two selected points exact locations.

Either way - this LISP routine is excellent!

Re: Point Elevation Difference Lisp Routine

hippe013 — Thu, 11 Jul 2024 13:19:44 GMT

@Andrey_Goretoy

The credit should really go to @Jeff_M I just helped with modifications.

To have the arrow be the first point instead of the midpoint is an easy modification.

Find this block of code, notice the midpt variable is being set to the mid between pt1 & pt2.

Remove the midpt assigning and replace its usage with pt1.

(setq diff (- (last pt1) (last pt2)) inspt (getpoint pt1 "...pick text insertion point: ") mldrpts (list (car pt1)(cadr pt1) 0 (car inspt)(cadr inspt) 0) ptlist (vlax-make-safearray vlax-vbdouble '(0 . 5)) ptlist (vlax-safearray-fill ptlist mldrpts) )

I will leave it to you to modify and test.

Cheers! and Happy Coding!

Re: Point Elevation Difference Lisp Routine

saqib_tipa — Thu, 18 Jul 2024 07:08:19 GMT

@Jeff_M

@hippe013

Hello,

May you please modify this Lisp.

I want to subtract cogo point elevation from already existing 2-line Mtext. From 1st line it should take numeric value and subtract it from cogo point elevation and put it in 2nd line numeric values as replaced. (As in example picture).

If this is possible, I will be so thankful to you.

Thank you.

Re: Point Elevation Difference Lisp Routine

MPD_TECH — Tue, 10 Sep 2024 19:12:19 GMT

Hey!

Thanks so much for all this work really helped me get my work done fast. I was wondering as well how would I go about making this metric (meters) and can I include spot elevations in the pick points? Thanks again

Re: Point Elevation Difference Lisp Routine

hosneyalaa — Tue, 10 Sep 2024 22:05:01 GMT

@MPD_TECH

Can you attached sample drawing

Re: Point Elevation Difference Lisp Routine

MPD_TECH — Wed, 11 Sep 2024 14:46:11 GMT

Yes for sure, here is a screen shot of what I mean, essentially I have a bunch of slopes that runs perpendicular and need to show the diff in elevations, I've been doing them by hand with leaders.