How to copy many objects in one row, but at different distance?

[andriuschar]

Hello,

if I want to copy many objects, I have to copy the first object in distance, and then start COPY command again to copy second object from the one I just pasted, and so on.

Can it be done in more easy way?

It would be nice start one command, and then just type distances from previous copied object.

[ВeekeeCZ]

You can use the FROM osmode, then hit the UP ARROW key a couple of times to get the previous point and then specify the distance.

[J-Porter]

If these items are equidistant apart, you can use the COPY command and then, after selecting the objects, look at the command line and you'll see an ARRAY option.

[cadffm]

Not out of the box!

But you will find such a program extension, what works this way.

If I understood well:

Copy <object selection> <basepoint><target point>, end copy command

and from now in a loop:

<select all new created objects><basepoint=lastpoint><asking for the targetpoint>

Right?

[Kent1Cooper]

If they are equally spaced, another thing you can use is the CA command in CopyAgain.lsp, >here<.  It is like an Array command in which you don't need to know how many you need -- just keep hitting Enter and it will make another copy continuing in the same direction and spacing.

If they are not equally spaced, but if you can work with cumulative distances to each from the original(s), rather than individual distances between each, you can start a Copy command and give it a base point, aim the cursor in the direction you want the copies to go, and type in the distance for the first one, the total distance from the source for the second one [not its distance from the first one], the total for the third, etc.  In older versions of AutoCAD, you will need to choose the Multiple Copying mode, but that's the default in newer versions.

[andriuschar]

Yes, that's right.

[cadffm]

Then look at Kents answer

[Kent1Cooper · Accepted solution]

If unequally spaced, and you want to use the individual distances between successive copies, not the cumulative distance to each copy from the source, try this [in simplest terms, minimally tested]:

(defun C:CMRVD (/ ss p1 p2 ang); = Copy Multiple in a Row, Varying Distances
  (if (setq ss (ssget))
    (progn ; then
      (command
        "_.copy" ss "" "0,0" "0,0"
        "_.move" ss ""
        (setq p1 (getpoint "\nStart point of displacement: "))
        (setq p2 (getpoint p1 "\nEnd point of displacement: "))
      ); command
      (setq ang (angle p1 p2))
      (while (setq d (getdist "\nDistance to next copy in the same direction <done>: "))
        (setq p1 p2)
        (command
          "_.copy" ss "" "0,0" "0,0"
          "_.move" ss "" "_none" p1 "_none" (setq p2 (polar p1 ang d))
        ); command
      ); while
    ); progn
  ); if
  (prin1)
)

[andriuschar]

What is it and how can I try it? Could you give me a brief guide? I'm not educated about programming.

[Patchy]

Follow the instruction here:

http://www.lee-mac.com/runlisp.html

[WeTanks]

NICE👍

[WeTanks · Accepted solution]

Please refer to the attached documnet.

[andriuschar]

Thank you everyone, especially Kent1Cooper and CADffm. Also We.Tanks and Patchy.