topic Re: selection set by multiple handle in Visual LISP, AutoLISP and General Customization Forum

selection set by multiple handle

djurk_haas — Fri, 10 May 2019 14:37:22 GMT

Hello,

The code below selects the object with handle 5b6.

I need to make a selection set with multiple handles. Is that possible?

E.g. select the handle "5b6"and "132" at once.

Thanks in advance

(defun C:5b6-handle ( / handle
ent )
;(setq handle (getstring "\nHandle to search for: "))
(setq handle "5b6")
(setq ent (handent handle))
(if ent
(sssetfirst
nil (ssadd ent))
;Else
(princ "\nNo such handle
found.")
)

(princ)
)

Re: selection set by multiple handle

Moshe-A — Fri, 10 May 2019 14:50:35 GMT

@djurk_haas hi,

check this one:

cheers

moshe

(defun c:select-by-handle (/ ss ent)
 (setq ss (ssadd))

 (foreach handle '("5b6" "132" "bcd1" "fa45" "20a" "20b" "20c" "209")
  (if (setq ent (handent handle))
   (ssadd ent ss)
  )
 ); foreach

 (if (> (sslength ss) 0)
  (sssetfirst ss ss)
  (princ "\nNo such handle(s) found.")
 )

 (princ)
)

Re: selection set by multiple handle

l.nikiforov — Sun, 26 Jun 2022 15:00:40 GMT

When the number of objects to select is large enough, I use the following command, which is much faster than iterating in a loop (especially, if you use ActiveX interface), for example:
"_SELECT (HANDENT "1A2727") (HANDENT "1A2725") (HANDENT "1A2723") (HANDENT "1A2721") (HANDENT "1A26E7")"

and don't forget to deselect everything after executed actions by following command:
"(sssetfirst nil nil)"

Re: selection set by multiple handle

braudpat — Mon, 27 Jun 2022 08:40:37 GMT

Hello @djurk_haas

A similar routine "ZH_Sel" from GC (gile)

You can give many handles delimited by commas, and the routine "ZH_Sel" select them

and you can say : Next , Previous , All - And the zoom is automatic ...

The Health, Bye, Patrice (The Old French EE Froggy)