topic LM: Incremental Array in Visual LISP, AutoLISP and General Customization Forum

LM: Incremental Array

nathanwheeler27 — Mon, 03 Jan 2022 05:42:16 GMT

Code: http://www.lee-mac.com/incrementalarray.html

Hi Everyone,

It seems like it should be simple to do this, but maybe not. Does anyone know how to modify the Dynamic Incremental Array to end with allowing the user to place one final object freely?

For example: select objects to array -> incarrayd -> input offset value -> pick basepoint - > array objects -> then you can place one more using the original basepoint.

Most of the time I use this command the final object to be placed isn't evenly spaced with everything else.

Thank you

Re: LM: Incremental Array

ВeekeeCZ — Mon, 03 Jan 2022 18:35:23 GMT

Perhaps you can just move the last object (command "move" "l" "" bpt pause)

Re: LM: Incremental Array

nathanwheeler27 — Mon, 03 Jan 2022 18:49:31 GMT

Hmm, not quite. If a group of objects are being arrayed, it only moves the last object, not the whole group. It also uses the originally selected basepoint, but I need it to be relative to the last placed object/group.

I was definitely over thinking it before, so if I can figure out how to get a few variables, the "move" command is probably what I want to use. I will post what I come up with later today if I get it.

Re: LM: Incremental Array

nathanwheeler27 — Wed, 05 Jan 2022 06:27:19 GMT

SOLUTION:

This snippet of code goes before the last (princ) in defun LM:incarray

; Move the last object(s) in the array (setq ii 0 movelist (list)) (while (< ii (length lst)) (setq movelist (cons (vlax-vla-object->ename (nth ii obl)) movelist)) ; List of objects to move (setq ii (+ 1 ii)) ) (setq movess (ssadd)) (foreach item movelist (ssadd item movess) ; Convert list of objects to selection set ) (command "move" movess "" (polar bpt (angle bpt (car (cdr ept))) (* (fix qty) (distance '(0 0 0) vxu))) pause) ; Move objects

There might be a more efficient way to do this, but it works.