Place dimentions extention lines on same Y-value

[Pascal_Ostyn]

I am trying to write a Lisp where i can place the origins of the extention lines of the selected linear dimentions on the same Y-value; without moving the dimention line nor it's text. (see pictures below)

1. The user selects the (linear) dimentions

2. The user selects the line where the origins of the extentions should come. (no matter the X-value).

I hope I can get some tips/advice.

Thank you.

[ВeekeeCZ · Accepted solution]

Possibly something like this...

(defun c:Dimy ( / s y i e)

  (if (and (setq s (ssget "_:L" '((0 . "DIMENSION"))))
	   (setq y (cadr (getpoint "\nPick new Y coord: "))))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i))))
      (setpropertyvalue e "XLine1Point/Y" y)
      (setpropertyvalue e "XLine2Point/Y" y)))
  (princ)
  )

But if they are associative to the objects, you'll lose it.

[Pascal_Ostyn]

This works perfect!
Thank you so much.