Topic: Anyone have a lisp which divides units into rise / run

[MSTG007]

Did not know if anyone had anything like this...

EX.

I have a distance with rise / run.

the point i begin is a station 0 ft and the elevation is 0 feet

the next point is (lets say) 500 ft and elevation is 10 feet

I want to pick a spot in between the two (2) points where it calcs or gives me a number with the rise / run.

station 250 ft and then it calc the rise be saying elevation is 5 feet.


is this capible?!

thanks!

[CADaver]

Look HERE that may give you a start.

[MSTG007]

I was chking it out, but how does this apply. I can see it works with slopes, but since the I am picking x,y,z and then x2,y2,z2 and picking in between to calc the new x,y,z of that point

[CAB]

Here is a crude beginning with no error checking.

Code: [Select]

(defun c:getelev (/ p1 p2 p3 e1 e2 e3 dst slp)
  (setq p1  (getpoint "\nPick starting point p1. ")
        e1  (getdist "\nEnter elevation for p1. ")
        p2  (getpoint "\nPick another point p2. ")
        e2  (getdist "\nEnter elevation for p2. ")
        p3  (getpoint "\nPick point p3 to determine elevation. ")
        dst (distance p1 p3)
        slp (/ (- e2 e1) (distance p1 p2))
        e3  (* dst slp)
  )
  (prompt (strcat "\nDistance from p1 to p3 is "
                  (rtos dst)
                  "\nElevation at p3 is "
                  (rtos e3)
          )
  )
  (princ)
)

[MSTG007]

CAB SAVED THE DAY!

thank you!

simple too...


thats like the easiest lisp I have seen lately.

[MP]

I believe the correct phrase is --

CAB SAVED THE DAY AGAIN!

(Good on ya Mr. Butler).

[CAB]

You're welcome.

thats like the easiest lisp I have seen lately.

That's a mater of perspective, you must be learning.