Anyone have a lisp program to change all entities Y coordinations are the same

Anyone have a lisp program to change all entities Y coordination are the
same

thx

Ken

 

Huh?
___

 

or in another word, change all insert point save X or Y coordinate.

Ken

 

or in another word, change all insert point same X or Y coordinate.

Ken

 

What "entities"? Are you talking about blocks? Text? You can change the Y
coordinate of objects that actually *have* an insertion point with the
PROPERTIES window.
___

 

Why don't you "Move" all ??

Matti

 

;Try this:

(setq source '((10. 20.)(20. 30.)(40. 50.)))
; To change X-coord's:

(setq new_x 100.)
(setq a (list (list new_x 0.)))
(setq target
(mapcar '(lambda (x) (mapcar '+ (car a) x)) source)
)

; To change Y-coord's:

(setq new_y 100.)
(setq a (list (list 0. new_y)))
(setq target
(mapcar '(lambda (x) (mapcar '+ (car a) x)) source)
)

Best regards,
Fatty