Intersections Between Lines at different Elevations

[Jaru]

Hi

There is a situation

what I need is a lisp routine or vba script to find the elevations between lines or polylines at the intersection points of them to better reflect my query I post an image.

I thank you in advance for the help provided.

Elevation-Case.bmp

 

Edited December 3, 2019 by Jaru

[devitg]

Please upload your sample.dwg 

Sad to say acad can not edit BMP files 

 

[Jaru]

ok, here is the drawing with a sample of the work that i have to do

 

Thanks a lot for your helpsample.dwg

[BIGAL]

Well there is a simple answer as your trying to add a splitter island to a road design, not only would you get the levels but you can add say a kerb template, so your cross sections would reflect all the kerbs. 3d modelled roads drive along etc. Roundabouts, kerb returns and so much more. 

 

Yes it is a commercial add on to Briscad, Autocad or Civ3D there are lots of Utube tutorials 

 

For what you want its draping a alignment on a design surface.

 

https://civilsitedesign.com/

Edited December 4, 2019 by BIGAL

[lrm]

You can use the following simple vlisp program with your 2D drawing.  You are prompted to specify two points and their elevation then a thrid for which you want the elevation.

(defun c:elbetween (/)
; determine the elevation of a point given two points
; and their elevations.  
  (setq p1 (getpoint "\nSpecify elevation point #1."))
  (setq el1 (getreal "\nEnter the elevation at point #1."))
  (setq p2 (getpoint "\nSpecify elevation point #2."))
  (setq el2 (getreal "\nEnter the elevation at point #2."))
  (setq p (getpoint "\nSpecify point for interpolation."))
  (setq d (distance p1 p2))
  (setq s (distance p1 p))
  (setq el (+ el1 (* (/ s d) (- el2 el1))))
  (setq el (rtos el))
  (princ "\nInterpolated point elevation = ")
  (princ el)
  (princ)
)

 

 

[BIGAL]

I thought I posted this earlier today, pick lowest level 1st needs a swap routines for random pick hi/lo.

 

(defun c:intlev ( / num txt1 txt2 c1 c2 dist1 dist2 diff ht )
(setvar "textstyle" "Punto Nivel")
(setq num (getint "\nPick how many each time eg 1 2 "))
(while (setq txt1 (atof (cdr (assoc 1 (entget (car (entsel "\nPick text 1")))))))
(setq c1 (cdr (assoc 10 (entget (car (entsel "\nPick circle 1"))))))
(setq txt2 (atof (cdr (assoc 1 (entget (car (entsel "\nPick text 2")))))))
(setq c2 (cdr (assoc 10 (entget (car (entsel "\nPick circle 2"))))))
(setq diff (- txt1 txt2))
(setq dist1 (distance c1 c2))
(repeat num
(setvar 'osmode 4)
(setq c3 (cdr (assoc 10 (entget (car (entsel "\nPick circle"))))))
(setq dist2 (distance c1 c3))
(setq ht (* (/ dist2 dist1) diff))
(if (<= 0.0 ht)
(setq ht (+ txt1 ht))
(setq ht (- txt1 ht))
)
(setvar 'osmode 0)
(command "text" (mapcar '+ c3 '(0.5 0.0 0.)) 0.0 (rtos ht 2 3) )
)
(setvar 'osmode 512)
)
(princ)
)

 

[lrm]

@BIGAL  Nice and easy to use!  I think all you need to do to fix the order of selection restriction is to replace the if statement:

(if (<= 0.0 ht)
(setq ht (+ txt1 ht))
(setq ht (- txt1 ht))
)

with

(setq ht (- txt1 ht))

and you can pick the two points in any order without regard to which is lower.

[Jaru]

Hello good morning:

 

I tried the program and it is according to how I need it, since I have circles at the intersections, that those are done with a Lee lisp that locates points at those intersections and then I converted them with another lisp called P2C.vlx

 

Thanks a lot, for your help