Topic: Grouping entities to process later

[ChrisCarlson]

Is there a way to create selection sets with a maximum number of entities; for example the first 100 entities selected? I'm not really finding anything similar in Google searches which leads me to believe I'm phrasing this wrong.

I'm trying to find a way to split up processing 1,000+ entities so it runs in batches versus stalling AutoCAD.

[dgorsman]

Why use selection sets when you can construct lists?  Or are you attempting to store this information across multiple sessions?

[ronjonp]

Have you seen THIS to help prevent "stalling" cad?

[ChrisCarlson]

Have you seen THIS to help prevent "stalling" cad?

Interesting, approach. I'll try and finagle that into this routine. Looks like it would run within the foreach block I have to process the entities.

Why use selection sets when you can construct lists?  Or are you attempting to store this information across multiple sessions?

Right now I'm using two filtered ssget calls to grab all of the insert references and polyline entities. In a rought approach, in a sense, a "list" of entities, correct? Is it possible in AutoLISP to split this "list" into an n quantity of "sub-lists"? That way I can process each "sub-list" separately.

[ronjonp]

Maybe the code you're running could be optimized so that CAD does not lock up?

[dgorsman]

Why use selection sets when you can construct lists?  Or are you attempting to store this information across multiple sessions?

Right now I'm using two filtered ssget calls to grab all of the insert references and polyline entities. In a rought approach, in a sense, a "list" of entities, correct? Is it possible in AutoLISP to split this "list" into an n quantity of "sub-lists"? That way I can process each "sub-list" separately.

Very easily, using calls to the various list-handling functions like (mapcar ...), (vl-remove-if...), (vl-remove-if-not ...), (member ...), and so on.

[Grrr1337]

A small guess:

Code: [Select]

(setq *L* (SS->L))
; (repeat 5
;   (ProcessOnce (lambda (a b) (= (cdr (assoc 8 (entget a))) (cdr (assoc 8 (entget b))))) )
; )
(defun ProcessOnce ( foo / itm )
  (setq itm (car *L*))
  (cond
    ( (setq *L* (cdr *L*))
      (mapcar (function (lambda (x) (foo itm x))) *L*)
      (princ (strcat "\n" (itoa (length *L*)) "objects are left to process."))
    )
  )
)