topic Re: Change elevation of object based on another in Visual LISP, AutoLISP and General Customization Forum

Change elevation of object based on another

projektiranje88 — Fri, 19 Aug 2022 06:31:32 GMT

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

Re: Change elevation of object based on another

paullimapa — Fri, 19 Aug 2022 06:39:11 GMT

lots of results searching online:

Match Elevations | CAD Tips (cadalyst.com)

match elevation of any object lisp - Autodesk Community - AutoCAD

Re: Change elevation of object based on another

projektiranje88 — Fri, 19 Aug 2022 07:34:24 GMT

Not work for my case.

Please see dwg in the attachment.

Re: Change elevation of object based on another

ВeekeeCZ — Fri, 19 Aug 2022 08:31:31 GMT

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)
  )

Re: Change elevation of object based on another

projektiranje88 — Fri, 19 Aug 2022 08:43:58 GMT

It's work!

Than you!

br