Topic: Avoid Hatches Sel - Reactor

[Grrr1337]

Hey guys,
Currently I've got this working -

Code - Auto/Visual Lisp: [Select]

1. (defun AvoidHatches:CB (rtr args / L )
2.   (and
3.    
4.     (setq L
5.       (
6.         (lambda ( SS / i o L )
7.           (if
8.             (and SS
9.               (repeat (setq i (sslength SS))
10.                 (setq o (vlax-ename->vla-object (ssname SS (setq i (1- i)))))
11.                 (setq L (cons o L))
12.               ); repeat
13.               (vl-some (function (lambda (o) (eq "AcDbHatch" (vla-get-ObjectName o)))) L)
14.               (setq L (vl-remove-if (function (lambda (o) (eq "AcDbHatch" (vla-get-ObjectName o)))) L))
15.             ); and
16.             L
17.           ); if
18.         ); lambda
19.         (cadr (ssgetfirst))
20.       )
21.     ); setq L
22.     (
23.       (lambda ( L / nSS )
24.         (setq nSS (ssadd))
25.         (foreach o L
26.           (ssadd (vlax-vla-object->ename o) nSS)
27.         ); foreach
28.         (sssetfirst nil nil)
29.         (sssetfirst nil nSS)
30.       ); lambda
31.       L
32.     )
33.   ); and
34. ); defun  
35.  
36. (foreach r (cdar (vlr-reactors :vlr-Miscellaneous-Reactor)) (if (= "AvoidHatches" (vlr-data r)) (vlr-remove r)) )
37. (vlr-Miscellaneous-Reactor "AvoidHatches" '((:VLR-PickFirstModified . AvoidHatches:CB)))

But I am aware that my callback function might not be the faster way.

Can you come up with some alternatives that would be better? - to select anything else but the "HATCH" entities from the implied selection.

[Marc'Antonio Alessi]

I don't know if I understand the question correctly ... perhaps the easiest way is the fastest:

Code: [Select]

(setq NewSSt (ssadd))
(repeat (setq i (sslength SS))
  (or
    (= "HATCH" (cdr (assoc 0 (entget (setq EntNam (ssname SS (setq i (1- i))))))))
    (setq NewSSt (ssadd EntNam))
  )
)

[VovKa]

Currently I've got this working -

you've noticed that your function is 'recursive'?
the purpose of you filtering is unclear to me
why don't you want to use (ssget "_I" (list (cons 0 "~HATCH"))) ?

[Lee Mac]

Changing the pickfirst selection within a function evaluated when the pickfirst selection is changed is never a good idea 

[roy_043]

Also consider that a selection set can contain sub-entities.

[Grrr1337]

Currently I've got this working -

you've noticed that your function is 'recursive'?
the purpose of you filtering is unclear to me
why don't you want to use (ssget "_I" (list (cons 0 "~HATCH"))) ?

Hi,
The point is while constantly selecting to filter out the hatch objects - the key is in lines 13. and 14.
"Recursion" stops when no acDbHatch objects are contained within the current selection.
My question was is if I could avoid the SS iteration in the 1st place - my callback function seems to be clumsy.

I don't know if I understand the question correctly ... perhaps the easiest way is the fastest:

Code: [Select]

(setq NewSSt (ssadd))
(repeat (setq i (sslength SS))
  (or
    (= "HATCH" (cdr (assoc 0 (entget (setq EntNam (ssname SS (setq i (1- i))))))))
    (setq NewSSt (ssadd EntNam))
  )
)

Thanks! I've got used with these lists that I've forgot I could just rebuilt the new SS within the iteration of the original SS. 

[Marc'Antonio Alessi]

Thanks! I've got used with these lists that I've forgot I could just rebuilt the new SS within the iteration of the original SS. 

Well come on is not really a big flaw!                 (Google Transl.)