Leaderboard

@dlanorh You might as well include an if statement for the entsel otherwise entget will STB.

If you want to move points or text simply change the filter: (setq ss (ssget '((0 . "POINT,TEXT")))) I tested @dlanorh code above and it works fine?

I have a good quantity of Pipe programs and here are three of them that may suit your needs and you can find more when exploring the website. 1- Water Supply Program. 2- Fire Fighting Program. 3- Fire Fighting Grooved and Threaded Program.

Try this (defun c:mper ( / ent ss cnt e_lst i_pt c_pt) (setq ent (car (entsel "\nSelect Line Entity : "))) (cond ( (vl-position (cdr (assoc 0 (entget ent))) '("LWPOLYLINE" "ARC" "LINE" "CIRCLE" "ELLIPSE" "SPLINE")) (prompt "\nSelect Points : ") (setq ss (ssget '((0 . "POINT")))) (repeat (setq cnt (sslength ss)) (setq i_pt (cdr (assoc 10 (setq e_lst (entget (ssname ss (setq cnt (1- cnt))))))) c_pt (vlax-curve-getclosestpointto ent i_pt) ) (entmod (subst (cons 10 c_pt) (assoc 10 e_lst) e_lst)) );end_repeat ) ( (alert "Not a Line Entity")) );end_cond (princ) );end_defun

Unfortunately "qlattachset" is obsolete, and although you can still type the command as it is in the "leaderex.arx" file, it does nothing. I should have something working by tomorrow afternoon that will associate the mtext with the leader, and then convert the Leader to a Mleader.

I also have this. Found it somewhere a while back. Appears to be you're looking for. Pipe V3.0.lsp

You can create a keyboard shortcut for the macro.