Topic: Match elevation

[Dave20165]

Does anybody have or know of a match elevation lisp?  I'm mixing topography files from multiple consultants and some have elevations while others do not.  I'd like to just be able to click one polyline, and have it assign the original elevation to any other polyline I click.  I haven't gotten into lisp programming(yet) so I wouldn't know how to make it myself.  Thanks a lot guys.

[CAB]

Maybe this?
http://cadtutor.net/forum/showthread.php?t=10485

[Dave20165]

Well, in LDD we have an edit elevation command that basically does just that.  I'm just looking for something a little faster.

[gile]

Hi,

I had this one.

Code: [Select]

(defun c:match_elevation (/ ss new_elev n e_lst)
  (prompt "\nSelect polyline to get new elevation.")
  (while (not (setq ss (ssget "_:S:E" '((0 . "LWPOLYLINE")))))
    (prompt "\nNone polyline selected.")
  )
  (setq new_elev (assoc 38 (entget (ssname ss 0))))
  (prompt "\nSelect polylines to be changed.")
  (if (setq ss (setq ss (ssget '((0 . "LWPOLYLINE")))))
    (repeat (setq n (sslength ss))
      (setq e_lst (entget (ssname ss (setq n (1- n)))))
      (entmod
(subst new_elev (assoc 38 e_lst) e_lst)
      )
    )
  )
  (princ)
)

[CAB]

Dave did gile's routine work for you?
Or did you need something differant?