selection of multiple objects

[Angelo2449]

Hello everyone,
with the "entsel" function select an element, now I have the problem of having to select a group of elements (catstral extract in dxf)
, as I can operate to select the whole group while maintaining the possibility to extract the characteristics :

 (setq extract nil)
(sing)
(= extract nil)
(setq extract (entsel "\nselect extract from georeferencing : "))
)

(princ "\n")
(princ extract)
(princ "\n")

(setq and1 (entget (car extract)))
(setq en1 (cdr -1 ed1))
(redraw en1 3)

grazie.

 

[rpor66]

with ssget, search on the net, find examples of all types.

the term groups can create confusion, you do not understand if you mean a set of entities or refer to groups in autocad created by the group command; better specify.

bye

 

[Angelo2449]

I read a bit, I think the problem is solved by first creating a block of all the elements to be selected.
Now you need to write the relevant instructions.
Thank you.

 

[Cristallo]

What do you mean by extract?
a set of different entities between them? (archies, texts, lines, circles etc.)
or homogeneous in some characteristics (color, layer, line)
if you do not have a common point you cannot select them via ssget, unless you put them somewhere in the drawing where there are no other entities and make a ssget selection with window.

 

[Angelo2449]

thank you all,
I solved by creating a block with this programme:

(refun c:creablocco (/ sset tell ent_get ent_get ent_get blk)
(princ "\n selezioni gli oggetti da raggruppare in blockco anonimo: ')
(setq sset (ssget))
(if sset (progn
(entmake (list)
'(0 'block')
'(2 . '*u')
'(70 . 1)
'(10 0.0 0.0 0.0))
(setq tell 0)
(setq ent (ssname sset tell))
(while ent
(setq ent_get (entget ent))
(if (/= (cdr (assoc 0 ent_get)) "polyline")(progn
(setq ent_getu (cdr ent_get))
(entdel graft)
(entmake ent_getu)
(progn
(setq entu ent
ent_getu (cdr ent_get)
(while (/= (cdr (assoc 0 ent_getu)) "seqend")
(setq ent_getu (cdr (entget entu)))
(entmake ent_getu)
(setq entu (entnext entu))
);while
(entdel graft)
)
);if
(setq tell (+ tell 1))
(setq ent (ssname sset tell))
)
(setq blk (entmake (list '(0 . "endblk"))))
(entmake (list '(0 . insert))
(cons 2blk)
'(10 0.0 0.0 0.0))
);progn
);if
(princ "\n il gruppo è stato creato")
(princ)
)
(princ)

then select the created block and do anything.