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

[Marc'Antonio Alessi]

1) (ssget "_X" ...) can not be used  in ObjectDBX doc
2) (ssget "_X" ...) is much faster

Question: under normal conditions (activedocument) it is better to use (ssget "_X" ...) or is there a faster method?

Code: [Select]

(setq *AcAcDwg* (vla-get-activedocument (vlax-get-acad-object)))
(defun ALE_Block_GetInserts1 (VlaDoc LayNms BlkNms / OutLst Vl_Tms)
    (setq   Vl_Tms  (car (_vl-times)))
    (vlax-for LayFor (vla-get-layouts VlaDoc)
      (if (wcmatch (strcase (vla-get-name LayFor)) (strcase LayNms))
        (vlax-for ObjFor (vla-get-block LayFor)
          (if
            (and
              (= (vla-get-objectname ObjFor) "AcDbBlockReference")
              (wcmatch (vla-get-Name  ObjFor) BlkNms)
            )
            (setq OutLst (cons ObjFor OutLst))
          )
        )
      )
    )
;  OutLst
    (- (car (_vl-times)) Vl_Tms)
)
(defun ALE_SSGetInserts ( / Vl_Tms)
  (setq   Vl_Tms  (car (_vl-times)))
  (ssget "_X" '((0 . "INSERT") (2 . "FOO*")(410 . "Model")))
  (- (car (_vl-times)) Vl_Tms)
)


Code: [Select]

Command: (ALE_SSGetInserts)
187

Command: (ALE_Block_GetInserts1 *AcAcDwg* "Model" "FOO*")
9422

[Lee Mac]

Using vlax-for provides direct access to the vla-object representations of objects in the layout, whereas the required conversion using vlax-ename->vla-object whilst iterating over the selection set returned by ssget can be slow if I recall correctly.

For a better comparison, I would use:

Code: [Select]

(defun ALE_SSGetInserts ( / Vl_Tms sel idx lst )
    (setq Vl_Tms (car (_vl-times)))
    (if (setq sel (ssget "_X" '((0 . "INSERT") (2 . "FOO*") (410 . "Model"))))
        (repeat (setq idx (sslength sel))
            (setq lst (cons (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))) lst))
        )
    )
    (- (car (_vl-times)) Vl_Tms)
)

[Marc'Antonio Alessi]

Using vlax-for provides direct access to the vla-object representations of objects in the layout, whereas the required conversion using vlax-ename->vla-object whilst iterating over the selection set returned by ssget can be slow if I recall correctly.
For a better comparison, I would use: ...

I agree but there is not much difference:

Code: [Select]

(ALE_Block_GetInserts1 *AcAcDwg* "Model" "FOO*") => 10577

(ALE_SSGetInserts)    => 359
(ALE_SSGetInsertsLee) => 312
(ALE_SSGetInsertsLee) => 281
(ALE_SSGetInserts)    => 328

(Sslength (ssget "_X" '((0 . "INSERT") (2 . "FOO*") (410 . "Model"))))
=> 252
(Sslength (ssget "_X" '((0 . "INSERT") (2 . "*") (410 . "Model"))))
=> 4146
(Sslength (ssget "_X" '((410 . "Model"))))
=> 108256

[Patrick_35]

Hi

If you want work With (ssget "x") and vlisp, you can use vla-get-activeselectionset

For example

Code - Auto/Visual Lisp: [Select]

1. (defun c:test(/ blo doc sel)
2.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
3.   (and (ssget "x" (list (cons 0 "insert")))
4.     (progn
5.       (vlax-for blo (setq sel (vla-get-activeselectionset doc))
6.         (princ (strcat "\n" (vla-get-name blo)))
7.       )
8.       (vla-delete sel)
9.     )
10.   )
11.   (princ)
12. )

@+

[Marc'Antonio Alessi]

Hi
If you want work With (ssget "x") and vlisp, you can use vla-get-activeselectionset
For example...
@+

Thanks,  I do not want work With (ssget "x") but to know if  (ssget "x") is the best/faster method to get a SelSet or a list of Vla Objects...

[Patrick_35]

Yes, ssget with activeselectionset is the best

Code - Auto/Visual Lisp: [Select]

1. (defun ALE_SSGetInserts ( / Vl_Tms doc sel)
2.   (setq doc (vla-get-activedocument (vlax-get-acad-object))
3.         Vl_Tms (car (_vl-times))
4.   )
5.   (and (ssget "_X" '((0 . "INSERT") (2 . "FOO*") (410 . "Model")))
6.     (progn
7.       (vlax-for blo (setq sel (vla-get-activeselectionset doc))
8.         (setq lst (cons blo lst))
9.       )
10.       (vla-delete sel)
11.     )
12.   )
13.   (- (car (_vl-times)) Vl_Tms)
14. )

@+

[Marc'Antonio Alessi]

Yes, ssget with activeselectionset is the best
...

Not much difference:

Code: [Select]

Comando: (ALE_SSGetInsertsLee) 203
Comando: (ALE_SSGetInsertsP35) 343
Comando: (ALE_SSGetInsertsLee) 312
Comando: (ALE_SSGetInsertsP35) 328
Comando: (ALE_SSGetInsertsP35) 374
Comando: (ALE_SSGetInsertsLee) 374
Comando: (ALE_SSGetInsertsP35) 374
Comando: (ALE_SSGetInsertsLee) 359

[Marc'Antonio Alessi]

About half the time if executed on the same file opened in ObjectDBX:

Code: [Select]

; DbxDoc > ObjectDBX.AxDbDocument
(ALE_Block_GetInserts1 DbxDoc "Model" "FOO*") => 6630
(ALE_Block_GetInserts1 DbxDoc "Model" "FOO*") => 6833
(ALE_Block_GetInserts1 DbxDoc "Model" "FOO*") => 6896

[Lee Mac]

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.

[alanjt]

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.

[pBe]

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.

Why is that again guys?  can you enlighten us more on this issue?

[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

@+

[Lee Mac]

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'?

[Lee Mac]

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.

Why is that again guys?  can you enlighten us more on this issue?

I am unsure exactly why the error occurs, as there appears to be no consistent condition which causes it to fail - in my experience, the same code will sometimes work and sometimes not; and of course, with such unpredictability and with other methods readily available, I abandoned the use of the activeselectionset property.

[Marc'Antonio Alessi]

@ Lee:
What do you think of this version? (I had to write it in this form for compatibility with the previous...)

Code: [Select]

; Function: ALE_Block_GetInserts
;
; Version 1.00 - 30/11/2005
; Version 1.01 - 06/12/2005
; Version 2.03 - 22/02/2015
;
; Description:
;   returns a list of all blocks in VlaDoc matching Layout names,
;   Layers names and Block names
;
; Arguments:
;   LayNms: Layout names - Wcmatch string > "Model,Layout1"     or "*" for all
;   LyrNms: Layer  names - Wcmatch string > "Layer1,Layer2*"    or "*" for all
;   BlkNms: Block  names - Wcmatch string > "Block001,BlockNnn" or "*" for all
;                     > "[~*]*"      > no anonimous blocks
;   FlgAtt
;    = :vlax-true  > only with attribs
;    = :vlax-false > only without attribs
;    = nil         > all
;
; Return Values: LIST
;
; Example:
; (ALE_Block_GetInserts
;  (vla-get-activedocument (vlax-get-acad-object)) "*" "*" "*" nil
; )
;
;      Block name  Layer name Layout name
; > (("TITLEBLOCK"  "LAYERX"    "MODEL"
;      #<VLA-OBJECT IAcadBlockReference2 08330c34>) (...) ...)
;
(defun ALE_Block_GetInserts (VlaDoc LayNms LyrNms BlkNms FlgAtt / VlaObj LayNam LyrNam BlkNam OutLst Ss_Tmp Countr EntNam)
  (cond
    ( (not (= 'VLA-OBJECT (type VlaDoc))) )
    ( (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-ActiveLayer (list VlaDoc)))
    ; ActiveLayer it is not a property of a IAxDbDocument: Interface then
    ; I use vla-get-layouts else (ssget "_X" ...) because it is 20 times faster
    ;(vlax-property-available-p VlaDoc 'Layouts) ;da aggiungere in futuro  20140213
      (vlax-for LayFor (vla-get-layouts VlaDoc)
        (if (wcmatch (setq LayNam (strcase (vla-get-name LayFor))) (strcase LayNms))
          (vlax-for ObjFor (vla-get-block LayFor)
            (if
              (and
                (= (vla-get-objectname ObjFor) "AcDbBlockReference")
                (not (vlax-property-available-p ObjFor 'Path))       ; not Xref
                (wcmatch (setq LyrNam (strcase (vla-get-Layer ObjFor))) (strcase LyrNms))
                (wcmatch (setq BlkNam (strcase (vla-get-Name  ObjFor))) (strcase BlkNms))
                (if FlgAtt (= (vla-get-hasattributes ObjFor) FlgAtt) T)
              )
              (setq OutLst (cons (list BlkNam LyrNam LayNam ObjFor) OutLst))
            )
          )
        )
      )
    )
    ( (setq Ss_Tmp
        (ssget "_X"
          (cond
            ( (= :vlax-true  FlgAtt) (list '(0 . "INSERT") (cons 410 LayNms) (cons 8 LyrNms) (cons 2 BlkNms) '(66 . 1)) )
            ( (= :vlax-false FlgAtt) (list '(0 . "INSERT") (cons 410 LayNms) (cons 8 LyrNms) (cons 2 BlkNms) '(66 . 0)) )
            ( T                      (list '(0 . "INSERT") (cons 410 LayNms) (cons 8 LyrNms) (cons 2 BlkNms))           )
          )
        )
      )
      (repeat (setq Countr (sslength Ss_Tmp))
        (and
          (setq VlaObj (vlax-ename->vla-object (setq EntNam (ssname Ss_Tmp (setq Countr (1- Countr))))))
          (not (vlax-property-available-p VlaObj 'Path))       ; not Xref
          (setq OutLst (cons (list (vla-get-Name VlaObj) (vla-get-Layer VlaObj) (DXF 410 (entget EntNam)) VlaObj) OutLst))
        )
      )
    )
  )
  OutLst
)