topic Re: Triangular array with equal spacing between objects in Visual LISP, AutoLISP and General Customization Forum

Triangular array with equal spacing between objects

intern59T6U — Wed, 03 May 2023 13:04:31 GMT

I am looking for a routine that will repeat a triangular pattern with equal distances between shapes (circles) at different angles. Array will not work, as it only gives the distance between rows and columns, NOT the distance between the objects. The pattern would then be repeated about a center point. (The square pattern below can be done with the default array command, obviously)

Re: Array with equal spacing between objects

pendean — Wed, 03 May 2023 12:54:19 GMT

While you wait... perhaps this https://apps.autodesk.com/ACD/en/Detail/Index?id=1475905733858671708&appLang=en&os=Win32_64
Or
https://apps.autodesk.com/ACD/en/Detail/Index?id=1506866417278631717&appLang=en&os=Win32_64
Or
some of these others https://apps.autodesk.com/ACD/en/List/Search?isAppSearch=True&searchboxstore=ACD&facet=&collection=&sort=&query=array

Re: Triangular array with equal spacing between objects

Kent1Cooper — Wed, 03 May 2023 14:01:15 GMT

@intern59T6U wrote:

.... Array will not work, as it only gives the distance between rows and columns, NOT the distance between the objects. ....

Do you mean the clear space between objects? If they're always Circles, that's just the column/row spacing minus the Circle diameter. If they're sometimes other shapes, that becomes a lot more questionable depending on the angle of the Array.

Were you aware that an ARRAY can do the angle for you? It doesn't appear to be something you can specify within the command, for some reason, but once drawn, you can specify it in Properties:

That's not in your hexagonal arrangement, but maybe you can make use of it.

Re: Triangular array with equal spacing between objects

intern59T6U — Wed, 03 May 2023 14:21:56 GMT

This works for my purposes. Thanks for the help!

Re: Triangular array with equal spacing between objects

Sea-Haven — Fri, 05 May 2023 04:55:39 GMT

Another https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rectangular-array-creating-every-other-row-offset/td-p/9667120

Look for the lisp.

Re: Triangular array with equal spacing between objects

intern59T6U — Fri, 05 May 2023 15:55:05 GMT

This one is close, but does not account for the XY spacing. It only works for the spacing between X and Y (again, not the XY distance I am looking for. (I believe the second "copy" command would need to be modified).

; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rectangular-array-creating-every-other-row-offset/td-p/9667120 ; array rows a 1/2 x spacings ; Enter -ve values to change direction. ;By AlanH info@alanh.com.au Aug 2020 (defun c:zigzag ( / ent ss ans hor ver numx numy x ) (setq ent (entsel "\nSelect object to array")) (setq ss (ssadd)) (ssadd (car ent) ss) (if (not AH:getvalsm)(load "Multi Getvals.lsp")) (setq ans (AH:getvalsm (list "Enter spacings " "Horizontal " 7 6 "100" "Vertical" 7 6 "50" "Num X " 5 4 "7" "Num Y" 5 4 "7"))) (setq hor (atof (nth 0 ans))) (setq ver (atof (nth 1 ans))) (setq numx (atoi (nth 2 ans))) (setq numy (atoi (nth 3 ans))) (setq x 1.0) (repeat (- numx 1) (command "copy" ent "" (list 0.0 0.0) (list (* x hor) 0.0) ) (ssadd (entlast) ss) (setq x (+ x 1)) ) (setq x 1.0) (while (< x numy) (command "copy" ss "" (list 0.0 0.0) (list (* 0.5 (- hor)) (* x ver))) (setq x (+ x 2)) ) (setq x 2.0) (while (< x numy) (command "copy" ss "" (list 0.0 0.0) (list 0.0 (* ver x))) (setq x (+ x 2)) ) (princ) ) (c:zigzag)

Example:

Re: Triangular array with equal spacing between objects

Sea-Haven — Sun, 07 May 2023 00:48:13 GMT

Its a case of Pythagoras you know the spacing is 0.781 so vertical is 0.781^2-(0.781 / 2)^2 =0.6763658403556 so can put that into my lisp. Just needs a couple of lines of code.

Re: Triangular array with equal spacing between objects

Kent1Cooper — Sun, 07 May 2023 11:44:47 GMT

@Sea-Haven wrote:

Its a case of Pythagoras ....

Or, it can be done trigonometrically:

(setq VerticalSpacing (* (sin (/ pi 3)) HorizontalSpacing))

Re: Triangular array with equal spacing between objects

Sea-Haven — Mon, 08 May 2023 07:41:57 GMT

Good idea bit easier to code.