Topic: Create associative rectangular array

[scottcd]

I have the following code which I use to create a rectangular array of a rectangle which is 50x50

But it is not associative - is there a variable I need to set as well?

Thanks

Scott

Code: [Select]

(defun c:ag ()
  (vl-load-com)
  (setq util (vla-get-utility
       (vla-get-activedocument
(vlax-get-acad-object)
       )
     )
  )
  (vla-getentity util 'obj 'ip "\nSelect Object: ")
  (setq numrows   4
numcols   4
drows   50
dcols   50
numlevels 1
dlevels   0
arrayobj  (vla-ArrayRectangular
    obj numrows numcols numlevels drows dcols dlevels)
  )
  (princ)
)

[scottcd]

https://forums.autodesk.com/t5/autocad-2013-2014-2015-2016-2017/how-to-use-new-array-command-with-lisp/td-p/6040598

After looking at the above link I have resorted to the use of the command

Code: [Select]

(defun c:gaa ()
  (vl-load-com)
  (setq ss (ssget "_:L"))
  (setq therows 4
thecols 4
drows 50
dcols 50
  )
  (if ss
    (vla-sendcommand
      (vla-get-activedocument (vlax-get-acad-object))
      (strcat "array\rp\r\rR\rROW\r"
      (itoa therows)
      "\n"
      (rtos drows 2 10)
      "\n\nCOL\r"
      (itoa thecols)
      "\r"
      (rtos dcols 2 10)
      "\r\r"
      )
    )
  )
)
Must admit I don't understand how the vla-sendcommand bit works?

[roy_043]

I don't see any reason for using (vla-sendcommand ...) instead of (command ...) here.

[mjfarrell]

why not do this with a dynamic block?  then the grid could be any size, and possibly more useful

[ChrisCarlson]

Dynamic block would have static pieces with dynamic actions, using array any object (dynamic) would be arrayed associative (dynamic).

[scottcd]

Hi Roy

I just couldn't work out the syntax for using command and the only example I could find was send command.

Hi ChrisCarlson  and  mjfarrell

Thanks for the responses.

As regards dynamic block, you are probably right but I was just trying to reproduce what I was doing manually and was just interested in trying to resolve why the array wasn't associative.

I am really just trying to draw a coordinate grid so I only draw it once in the job so there is no advantage in either method really.

Thanks again for your suggestions.

Scott

[roy_043]

This works in BricsCAD:

Code - Auto/Visual Lisp: [Select]

1. (defun c:gaa ( / ss dcols drows thecols therows)
2.   (setq ss (ssget "_:L"))
3.   (setq
4.     therows 4
5.     thecols 4
6.     drows 50
7.     dcols 50
8.   )
9.   (if ss (command "_.arrayrect" ss "" "_row" therows drows "_col" thecols dcols "_exit"))
10. )