Stuck writing script to connect blocks

[imegusta02]

Hello, I'm trying to write a LISP script to connect a series of blocks to each other using a polyline, I've written a script to place these blocks in an array since there are a few places in the array that require a different block, but now I want to connect the TOP point parameter to the BOTTOM point parameter of the block above it, yet I can't get it to recognize either the block and when it does I get an error stating that I have "too few arguments" could anyone help me get back on track or am I doing something that could be done differently? thanks in advance

[EnM4st3r]

in line 34 you are using ssname without an index.:

(setq blocks (mapcar 'vlax-ename->vla-object (mapcar 'ssname (ssnamex ss))))

i would get the blockreferences like this:

(repeat (setq i (sslength ss))
    (setq blocks (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) blocks))
)

[EnM4st3r]

also your get-point-from-block
subfunction is returning an error for me.

You cant use getattributes to get parameters afaik.

You could get its values with

(vlax-invoke block-ref 'getdynamicblockproperties)

and then check for the propertyname and use vla-get-value.
But these points in my testing are fixed to the blocks location not the position in the modelspace