Topic: group visible and invisible only

[dussla]

(setq  sd  (ssget  "x"  (list '(0 . "insert") (cons 410 (getvar "ctab")))))  <- all block select
(setq  s2  (ssget  "x"  (list '(0 . "insert") (cons 2 bn)(cons 410 (getvar "ctab")))) <- block name select

with this , i use    block object  visible and invisible
like this  , i  would like to  select  groups 
but there is no group dxf code

friend how  can do that  ?
l

[ronjonp]

Maybe something like this:

Code: [Select]

  (vlax-map-collection
    (vla-get-groups
      (vla-get-ActiveDocument
(vlax-get-Acad-Object)
      )
    )
    '(lambda (x)
       (setq l (cons x l))
     )
  )

[dussla]

thank you for good answer always~

good day ~

[ronjonp]

You're welcome