Leaderboard

I could not find original topic, but here are 2 routines from my library that were the issue at that time... Sorry for delay, it took me a while to browse my posts... pt2ptbycurve.lsp pt2ptbylw.lsp

One option would be to create a 3D cube then slice away portions of the cube or subtract from it.

I haven't seen a ready made LISP for this but i think what you are asking is possible. Is your wall a line, polyline, or in a block by the way? That makes things easier or not (polyline is easiest) I guess you' want to select the wall line, then the 2 end points, the socket outlet and the panel, then the LISP would offset the wall (easy, '(command "offset" Distance SelectedWall)', work out the centre of the equipment (there are LISPs out there, centres of circles are easy, and for rectangles if they are polylines can get the coordinates and work out the geometric centre), and draw a line from that to the nearest point on the polyline (get nearest point or something, So it is all possible if there isn't anything Have you had a go at putting something together yet? try it step by step, see if you can offset the wall line first, then see if you can get something to get the centres of the equipment.. and go frpm there

(defun c:MoveZ( / ss target z i en el a10) (princ "Select objects to be moved...") (setq ss (ssget)) (setq target (entsel "select target ")) (setq z (last (assoc 10 (entget (car target))))) (repeat (setq i (sslength ss)) (setq en (ssname ss (setq i (1- i))) el (entget en) a10 (reverse(cons z (cdr(reverse(assoc 10 el))))) el (subst a10 (assoc 10 el) el)) (entmod el) ) (setq ss nil) (princ) ) Here a quick one - I have just minutes until I go home. Does it help?