Change elevation of object based on another

[projektiranje88]

Hi,

is there a lisp that I can use to change the elevation of an object based on the selection of another object?
For example, object 1 has an elevation of 0, and object 2 has an elevation of 155, I want object 1 to change elevation based on the selection of object 2.
Of course, the X and Y coordinates of object 1 must not change.

Best regards,

Mladen

[paullimapa]

lots of results searching online:

Match Elevations | CAD Tips (cadalyst.com)

match elevation of any object lisp - Autodesk Community - AutoCAD

[projektiranje88]

Not work for my case.

Please see dwg in the attachment.

br

[ВeekeeCZ · Accepted solution]

Try this code.

(defun c:Zmatch ( / s d)
  
  (and (setq s (car (entsel "\nSource: ")))
       (setq s (last (assoc 10 (entget s))))
       (setq d (car (entsel (strcat "\nObject to apply z=" (rtos s) " to: "))))
       (setq d (entget d))
       (entmod (subst (reverse (cons s (cdr (reverse (assoc 10 d))))) (assoc 10 d) d))
       )
  (princ)
  )

[projektiranje88]

It's work!



Than you!



br