Counting arrayrect elements

[Nikon]

Good afternoon, everyone.
I am trying to select a arrayrect and insert a TEXT with the number of array elements into the drawing.
But the array is not selected.
How do I set the array selection correctly?

(defun c:CountElemArrayrect (/ ss n pt)
  (princ "Select a arrayrect: ")
  (setq ss (ssget '((0 . "ARRAY"))) 
        n 0)
  (if ss
    (progn
      (setq n (vla-get-Count
                (vlax-ename->vla-object (ssname ss 0))))
      (princ (strcat "The number of elements in the array: " (itoa n)))
      (princ "Specify the insertion point of the text: ")
      (setq pt (getpoint))
      (if pt
        (entmakex
          (list
            (cons 0 "TEXT")
            (cons 10 pt)
            (cons 1 (itoa n))
            (cons 40 25) ; text height
            (cons 7 (getvar "TEXTSTYLE"))
          )
        )
      )
    )
  )
  (princ)
)

 

 

Edited 2 hours ago by Nikon

[Lee Mac]

If you inspect the DXF data for a rectangular array (e.g. using my Entity List program, for example), you will see that it is in fact a block reference (INSERT).

[Lee Mac]

Consider the following function to obtain the data from the array:

(defun LM:arraydata ( ent / enx lst rtn )
    (if
        (and
            (setq enx (entget ent))
            (= "INSERT" (cdr (assoc 0 enx)))
            (setq lst
                (vl-some
                    (function
                        (lambda ( x )
                            (if (and (= 330 (car x)) (= "ACDBASSOCDEPENDENCY" (cdr (assoc 0 (entget (cdr x))))))
                                (cdr (assoc 330 (entget (cdr x))))
                            )
                        )
                    )
                    (member '(102 . "{ACAD_REACTORS") enx)
                )
            )
            (setq lst (entget lst))
            (setq lst (cons nil (member (assoc 1 lst) lst)))
        )
        (while lst
            (setq rtn (cons (cons (cdadr lst) (cdar (cddddr lst))) rtn)
                  lst (cdddr (cddddr lst))
            )
        )
    )
    (reverse rtn)
)

Call with the array block reference entity, e.g.:

(LM:arraydata (car (entsel)))