Copy blocks to curve according to another curve

[BIGAL]

(setq plent (entsel "\nPick pline near end ")))
(setq pt (cadr plent))
(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent)))))
(setq obj (vlax-ename->vla-object plent))
 (setq pt1 (vlax-curve-getstartPoint obj))
 (setq pt2 (vlax-curve-getendPoint obj))
 (setq d1 (distance pt pt1))
 (setq d2 (distance pt pt2))
 (if (> d1 d2)d
 (setq co-ord (reverse co-ord))
)

To reverse direction of a line or pline, "It is a task that takes 5 seconds." No its instant.

 

 

[HypnoS]

TBH devito code meets my needs, for what i send big thanks once more. One thing I'd like to be added is to let me change distance between blocks

[SLW210]

2 hours ago, HypnoS said:

TBH devito code meets my needs, for what i send big thanks once more. One thing I'd like to be added is to let me change distance between blocks

Did you bother to try my code? It asks for a line and distance between blocks.

[HypnoS]

@SLW210  I tried yours but I cant get it to work, I think Im missing something. "Enter the tag  to use" What tag am I supposed to type in? Attribute name or value does not work.

[devitg]

6 hours ago, HypnoS said:

TBH devito code meets my needs, for what i send big thanks once more. One thing I'd like to be added is to let me change distance between blocks

It ask you to set such distance 

Or you mean to set distance for each block at the straight line?

 

 

[SLW210]

8 hours ago, HypnoS said:

@SLW210  I tried yours but I cant get it to work, I think Im missing something. "Enter the tag  to use" What tag am I supposed to type in? Attribute name or value does not work.

The actual TAG name, in the drawing you posted it is ADRES

[HypnoS]

@devitgYeh! Distance between blocks on a new straight polly.

@SLW210Sorry but typing block atribute or even clicling on it seems to no work for me

Enter the tag to use: ADRES
; error: bad argument type: numberp: ---

 

[SLW210]

I'll look into that, I might have posted the wrong one.

 

I was working on one to just use the block clicked assuming a single attribute.

[devitg]

On 7/24/2025 at 1:26 PM, HypnoS said:

Yours works great. the only thing I would like to add is to set a distance between blocks on the line, just like the copyblockstocurve has.

@HypnoS Find attached

cpy-blk-2-poly-01.lsp

[HypnoS]

@devitgcode acts weird. It asks me to type distance,and when I do it places only one block and asks for distance again to pace another block, and on and on.

[SLW210]

My code only gives that error if there are letters in the ATTRIBUTE, works no errors on the drawing you posted.

 

Maybe you should post an actual drawing that you are using this on.

 

Even the images you posted are different by a lot from the drawing you posted.

[HypnoS]

well I hoped for this lisp to work with any blocks with attributes. here are the same b locks Im using.  

 

example [2].dwg

[SLW210]

There has to some consistency in what's being sorted.

 

Will there always be just one attribute?

[HypnoS]

Now that I think about it... let's assume there will be multiple attributes.