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 4 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)))

 

[Nikon]

The code writes the same amount for arrays with different numbers of elements...

(defun c:ArrCountTxt ( / ent arrData count insPt txtHeight)
  (prompt "Select a arrayrect: ")
  (setq ent (car (entsel)))
  (if (and ent (= "INSERT" (cdr (assoc 0 (entget ent)))))
    (progn
            (setq arrData (LM:arraydata ent))
      ;; count the number of elements
      (setq count (length arrData))
      
      (princ (strcat "Number of array elements: " (itoa count)))
     
      (prompt "Specify the insertion point of the text: ")
      (setq insPt (getpoint))
      
      (setq txtHeight 20)
      
      (entmake
        (list
          (cons 0 "TEXT")
          (cons 8 (cdr (assoc 8 (entget ent)))) ; 
          (cons 10 insPt)
          (cons 40 txtHeight)
          (cons 1 (strcat "Quantity: " (itoa count)))
          (cons 7 "Standard") 
          (cons 50 0.0)
        )
      )
    )
      )
  (princ)
)

(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)
)

 

Edited 46 minutes ago by Nikon