Move Objects to Specific Coordinates
Accepted solution
Something like this, perhaps...
(defun c:demo ( / pt ss)
(if (and (princ "\n Select objects to move to 0,0 ")
(setq ss (ssget "_:L"))
(setq pt (getpoint "\n Enter base point: "))
)
(command "_move" ss "" "_NONE" pt "_NONE" '(0.0 0.0 0.0))
)
(princ)
)
Henrique
@mihai_bantas wrote:
....I want to move 4 items at the same time ....
That code will Move all of them, together [the 'ss' variable], four times, leaving their positional relationship to each other as it was originally. Are you trying to move each one of them to one of those destination points? If so, are P1/P2/P3/P4 on the items, so that they could be used for selection as well as the Move base points?
It would be possible to Move one of them in each Move command with (ssname) to get just one out of the selection set, but you would need to specify that they be selected in order -- with a "raw" (ssget) to select them, if you did that with a window, the order they'd be Moved would be determined, I think, by drawing order, so you couldn't count on the results.
And it would be worth testing that the selection is of four and only four objects, with (sslength), before proceeding.
What kind(s) of objects are you talking about? If they have some logical reference point [such as a Block's insertion point, or a Circle's center], could those be used as the Move base points, without having the User pick the base points?
Kent Cooper, AIA 
You're certainly not going to be able to do that with just one selection. It will probably require an approach something like this [lightly tested]:
(prompt "\nTo move detail to UPPER LEFT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(25 166 0))
(prompt "\nTo move detail to LOWER LEFT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(25 45 0))
(prompt "\nTo move detail to UPPER RIGHT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(217.5 166 0))
(prompt "\nTo move detail to LOWER RIGHT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(217.5 45 0))
The pauses are for User input of the Move base point [answering the Move command's own prompt], what you indicate as PT1/PT2/PT3/PT4, but no variables are needed this way. It worked for me in your drawing when Zoomed in around the source area, without the sheet area visible. [I find that the ones that go in the left side are too wide for the quadrants in the sheet.]
I omitted the "none" Osnap call before the destination points, on the assumption that if you have running Osnap on, it will probably include END and/or INT mode(s), so it won't snap to anything other than the quadrant-rectangle corners anyway. If you might ever have something like only MIDpoint Osnap mode running, things would go to the wrong place -- put the "none" calls back in.
By the way, the trailing zeros in your point-coordinate lists do nothing at all for you, nor even the decimal point if nothing but zeros follow it.
Kent Cooper, AIA
Just some thoughts....
My approach does not require setting any variables at all. [In yours, you should also localize ss2/ss3/ss4.]
Your version requires the User to know which quadrant of the sheet is 1, which is 2, etc., whereas my prompts inform them which quadrant they're filling.
What if you don't have enough details remaining to fill all four quadrants of a sheet? Your version requires four and only four selections. It won't Move any of them if you have fewer than that.
You can add the "_:L" locked-layer-prevention part to the (ssget) functions in my version, but it really serves no purpose. If there are things on locked Layers, in my version (ssget) will select them, but Move will leave them behind anyway, so the effect will be exactly the same as if it prevented selection of them. If it happens that all objects you try to select for a given detail are on locked Layers, it will fail, but so will your version, which won't Move any of the selections if any one of them is of objects all on locked Layers.
Kent Cooper, AIA
@Kent1Cooper wrote:
....
(prompt "\nTo move detail to UPPER LEFT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(25 166 0))
(prompt "\nTo move detail to LOWER LEFT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(25 45 0))
(prompt "\nTo move detail to UPPER RIGHT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(217.5 166 0))
(prompt "\nTo move detail to LOWER RIGHT quadrant in sheet,")
(command "_.move" (ssget) "" pause '(217.5 45 0))
....
A more concise way to do that:
(foreach entry
'(("UPPER LEFT" (25 166 0)) ("LOWER LEFT" (25 45 0)) ("UPPER RIGHT" (217.5 166 0)) ("LOWER RIGHT" (217.5 45 0)))
(prompt (strcat "\nTo move detail to " (car entry) " quadrant in sheet,"))
(command "_.move" (ssget) "" pause (cadr entry))
); foreach
Comments in Post 8 also apply.
Kent Cooper, AIA