Topic: (ssget "_X" ...) Vs. (vlax-for ... (vla-get-block ...))

[Patrick_35]

Yes, ssget with activeselectionset is the best

I've had some trouble with the activeselectionset method in the past (an intermittent and inconsistent error: Automation Error. Calling method Clear of interface IAcadSelectionSet failed) and have now abandoned this method entirely.

Precisely why I abandoned its use as well.

I had the same problem that I solved using systematically erasing the selection. Since then, no problems. Now all my lisps use this method.
Look at the two lisps I posted

I would also delete the selection set [ (vla-delete sel) ] after processing, but this did not seem to resolve the issue; or are you referring to something else when you say 'solved using systematically erasing the selection'?

Sorry if my English is not great.
What I mean is that you make a selection with ssget and then your treatment with activeselectionset.
Then you make a vla-delete on activeselectionset
From what I could deduce is that a stacking selections causes this error and that systematically erasing the selection set, I do not have this problem.
I use it for years, post lisps with this method on other forums.

[kruuger]

draw few objects.
start XXX

Code: [Select]

(defun c:XXX (/ doc)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (ssget)
  (vlax-for %
    (vla-get-activeselectionset
      (vla-get-activedocument
        (vlax-get-acad-object)
      )
    )
    (princ %) (princ "\n")
  )
  (princ)
)
make few undo CTRL+Z.
try to run XXX and -> error: Automation Error. Calling method Clear of interface IAcadSelectionSet

as Patrick said. we add vla-delete and so far no more error.

Code: [Select]

(defun c:XXX (/ doc ss)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (ssget)
  (vlax-for %
    (setq ss
      (vla-get-activeselectionset
        (vla-get-activedocument
          (vlax-get-acad-object)
        )
      )
    )
    (princ %) (princ "\n")
  )
  (vla-delete ss)
  (princ)
)i noticed that errors occurs very often after undo (when no vle-delete)
k.

[ur_naz]

You may directly select inserts using filters

Code - Auto/Visual Lisp: [Select]

1. (progn
2.   (setq ss  ( (lambda ( sname sss )
3.                       ( (if (vl-catch-all-error-p
4.                               (vl-catch-all-apply 'vla-item
5.                                                   (list sss sname)
6.                               )
7.                             )
8.                             vla-add
9.                             vla-item
10.                         )
11.                         sss
12.                         sname
13.                       )
14.                     )
15.                     "SomeSet"
16.                     (vla-get-selectionsets
17.                       (vla-get-activedocument (vlax-get-acad-object)))
18.             )
19.   )
20.   (vla-clear ss)
21.   (setq
22.     ssflt0 (vlax-make-safearray vlax-vbinteger '(0 . 0))
23.     ssflt1 (vlax-make-safearray vlax-vbvariant '(0 . 0))
24.   )
25.  
26.   (vla-select
27.     ss
28.     acselectionsetall
29.     nil
30.     nil
31.     (vlax-safearray-fill ssflt0 '(0))
32.     (vlax-safearray-fill ssflt1 '("INSERT"))
33.   )
34.   ss
35. )

[Marc'Antonio Alessi]

If my test is valid I do not see the convenience:

Code: [Select]

Benchmark.lsp | © 2005 Michael Puckett | All Rights Reserved
    (ALE_SSGETINSERTS).....1388 / 2.4 <fastest>
    (ALE_SSGETINSERTS).....1450 / 2.3
    (P35_SSGETINSERTS).....1482 / 2.25
    (P35_SSGETINSERTS).....1529 / 2.18
    (NAZ_SSGETINSERTS).....2745 / 1.22
    (NAZ_SSGETINSERTS).....3338 / 1 <slowest>

Code: [Select]

(defun ALE_SSGetInserts ( /  sel idx lst )
    (if (setq sel (ssget "_X" '((0 . "INSERT"))))
        (repeat (setq idx (sslength sel))
            (setq lst (cons (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))) lst))
        )
    )
)
(defun naz_SSGetInserts ( /  ss lst)
     (setq ss  ( (lambda ( sname sss )
                         ( (if (vl-catch-all-error-p
                                 (vl-catch-all-apply 'vla-item
                                                     (list sss sname)
                                 )
                               )
                               vla-add
                               vla-item
                           )
                           sss
                           sname
                         )
                       )
                       "SomeSet"
                       (vla-get-selectionsets
                         (vla-get-activedocument (vlax-get-acad-object)))
               )
     )
     (vla-clear ss)
     (setq
       ssflt0 (vlax-make-safearray vlax-vbinteger '(0 . 0))
       ssflt1 (vlax-make-safearray vlax-vbvariant '(0 . 0))
     )
     (vla-select
       ss
       acselectionsetall
       nil
       nil
       (vlax-safearray-fill ssflt0 '(0))
       (vlax-safearray-fill ssflt1 '("INSERT"))
     )
     (if ss (vlax-for blo ss (setq lst (cons blo lst))))
)
(defun P35_SSGetInserts ( /  doc sel lst)
     (setq
       doc (vla-get-activedocument (vlax-get-acad-object))
     )
     (and (ssget "_X" '((0 . "INSERT")))
       (progn
         (vlax-for blo (setq sel (vla-get-activeselectionset doc))
           (setq lst (cons blo lst))
         )
         (vla-delete sel)
       )
     )
     lst
)

[ur_naz]

wow, my way is slowest. so, if i have to delete some garbage entities such as points, small lines, blank texts or wipeouts, what is the fastest way to do it?

[Marc'Antonio Alessi]

I do not understand the question, it seems to me that there is the solution...