Topic: vla-explode and delay

[domenicomaria]

Code - Auto/Visual Lisp: [Select]

1. (defun :SS>OBJECT-LIST (ss / ind r)
2.    (setq ind 0 r '())
3.    (repeat (sslength ss)
4.       (setq r (cons (vlax-ename->vla-object (ssname ss ind) ) r) )      (setq ind (+ 1 ind) )
5.    )
6.    (reverse r)
7. )
8.  
9.  
10. (defun :VLA-EXPLODE-SS (ss /  new-obj-lst ss-obj-lst x-obj)
11.    (setq ss-obj-lst (:SS>OBJECT-LIST ss) )
12.    
13.    (setq new-obj-lst '() )
14.    (mapcar '(lambda    (x-obj)
15.                      (if(vlax-method-applicable-p x-obj 'explode)
16.                         (progn
17.                            (setq new-obj-lst (append (vlax-invoke x-obj 'explode) new-obj-lst ) )
18.                            (vla-delete x-obj)
19.                         )
20.                      )
21.             )
22.               ss-obj-lst
23.    )
24.    new-obj-lst
25. )
26.  
27.  
28. ;   TEST    asks 2 POINTS
29. ;         selects with the CROSSING option using these 2 POINTS
30. ;         and gets the selection 2 TIMES :
31. ;         BEFORE and AFTER the SELECION has been EXPLODED
32. (defun c:test ( / ll-pt ss ss1 ss2 ur-pt)
33.    (setq ll-pt (getpoint "\nLOWER LEFT point :"))
34.    (initget 32)
35.    (setq ur-pt (getcorner ll-pt "\nUPPER RIGHT point :"))
36.    (setq ss1 (ssget "_C" ll-pt ur-pt) )
37.    
38.    (:VLA-EXPLODE-SS ss1)
39.    ;   (command "delay" 10)  
40.    (setq ss2 (ssget "_C" ll-pt ur-pt) )
41.    
42.    (setq r ss2)
43. )
44.  
45.  

select some polylines, using the TEST function

If (command "delay" 10)   is commented
ss2 is NIL

IF NOT it is a VALID SELECTION SET !

WHY ?

[ribarm]

Try with this simple mod...

(defun c:test ( / ll-pt ss ss1 ss2 ur-pt )
   (initget 1)
   (setq ll-pt (getpoint "\nLOWER LEFT point :"))
   (initget 32)
   (setq ur-pt (getcorner ll-pt "\nUPPER RIGHT point :"))
   (setq ss1 (ssget "_C" ll-pt ur-pt))
   (if (:VLA-EXPLODE-SS ss1)
     (setq ss2 (ssget "_C" ll-pt ur-pt))
   )
   (setq r ss2)
)

[Marc'Antonio Alessi]

Try with this simple mod...

(defun c:test ( / ll-pt ss ss1 ss2 ur-pt )
   (initget 1)
   (setq ll-pt (getpoint "\nLOWER LEFT point :"))
   (initget 32)
   (setq ur-pt (getcorner ll-pt "\nUPPER RIGHT point :"))
   (setq ss1 (ssget "_C" ll-pt ur-pt))
   (if (:VLA-EXPLODE-SS ss1)
     (setq ss2 (ssget "_C" ll-pt ur-pt))
   )
   (setq r ss2)
)

I think he wants to have a selection (SS2) even if there are no objects to explode...

[Marc'Antonio Alessi]

I removed some local variables and more...
I have tried several times without the DELAY and always I get a selection.

Code: [Select]

(eq '() nil) => T
(null '())   => T
(not '())    => T
(not nil)    => T
(null nil)   => T
(type '()) => nil
(type nil) => nil

(defun :SS>OBJECT-LIST (ss / ind r)
   (setq ind 0)
   (repeat (sslength ss)
      (setq r (cons (vlax-ename->vla-object (ssname ss ind) ) r) )      (setq ind (+ 1 ind) )
   )
   (reverse r)
)
(defun :VLA-EXPLODE-SS (ss / new-obj-lst ss-obj-lst)
   (setq ss-obj-lst (:SS>OBJECT-LIST ss) )
   (mapcar '(lambda    (x-obj)
                     (if(vlax-method-applicable-p x-obj 'explode)
                        (progn
                           (setq new-obj-lst (append (vlax-invoke x-obj 'explode) new-obj-lst ) )
                           (vla-delete x-obj)
                        )
                     )
            )
              ss-obj-lst
   )
   new-obj-lst
)
(defun c:test ( / ll-pt ss1 ss2 ur-pt)
   (setq ll-pt (getpoint "\nLOWER LEFT point :"))
   (initget 32)
   (setq ur-pt (getcorner ll-pt "\nUPPER RIGHT point :"))
   (setq ss1 (ssget "_C" ll-pt ur-pt) )
   (:VLA-EXPLODE-SS ss1)
   (setq ss2 (ssget "_C" ll-pt ur-pt) )
)

[domenicomaria]

I think he wants to have a selection (SS2) even if there are no objects to explode...

yes

[domenicomaria]

I have tried several times without the DELAY and always I get a selection.

in acad 2020 ?

without the DELAY, I NEVER get a selection !

[domenicomaria]

(eq '() nil) => T
(null '())   => T
(not '())    => T
(not nil)    => T
(null nil)   => T
(type '()) => nil
(type nil) => nil

Why do you post this ?

[Marc'Antonio Alessi]

(eq '() nil) => T
(null '())   => T
(not '())    => T
(not nil)    => T
(null nil)   => T
(type '()) => nil
(type nil) => nil

Why do you post this ?

locals are always nil or '()   >>>   (eq '() nil) => T

(setq r '())
(setq new-obj-lst '() )

[Marc'Antonio Alessi]

I have tried several times without the DELAY and always I get a selection.

in acad 2020 ?

without the DELAY, I NEVER get a selection !

A2020:
Command: TEST
LOWER LEFT point :
UPPER RIGHT point :<Selection set: 19>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 20>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 27>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 2e>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 35>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 3c>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 43>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 4a>

[domenicomaria]

locals are always nil or '()   >>>   (eq '() nil) => T

(setq r '())
(setq new-obj-lst '() )

I know that local vars are always NIL.

I write (setq r '()) or (setq new-obj-lst '() )

just to show to myself, that I initializing a new var to nil . . .

But It has no sense ! . . .

[domenicomaria]

A2020:
Command: TEST
LOWER LEFT point :
UPPER RIGHT point :<Selection set: 19>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 20>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 27>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 2e>

Command:
Command:  TEST

LOWER LEFT point :
UPPER RIGHT point :<Selection set: 35>

Draw 4 or 5 polylines.

Copy them 4-5 times.

And repeat the test . . .

When they are exploded, (ss1 contains only polylines)
ss2 is NIL

If there is no polyline to explode,
ss2 is a selection set.

The problem
(I believe)
is the SEQUENCE
that is NOT RESPECTED.

(setq ss2 (ssget "_C" ll-pt ur-pt) )
does NOT WAIT that
(:VLA-EXPLODE-SS ss1) has finished !

If ss1 does not contain EXPLODABLE objects,
(:VLA-EXPLODE-SS ss1)
needs less time to finish.

And this time is enough.

And
(setq ss2 (ssget "_C" ll-pt ur-pt) )
gets the selection set !

It is very strange !
If I enable the DELAY

I get ALWAYS a selection set.

If NOT,
i get a selection set,
only if the selection does not contain explodable objects.

[ribarm]

Playing with words...

only if the selection does not contain explodable objects.

only if the selection does contain not explodable objects.

[domenicomaria]

Playing with words...

only if the selection does not contain explodable objects.

only if the selection does contain not explodable objects.

If you want change the text
you have to write :
only if the selection does contains not explodable objects.

But this is not the main question.

[ribarm]

You want everything to be written for you...

Have you tried :

Code: [Select]

(defun c:test ( / ll-pt ss1 ss2 ur-pt )
   (initget 1)
   (setq ll-pt (getpoint "\nLOWER LEFT point :"))
   (initget 33)
   (setq ur-pt (getcorner ll-pt "\nUPPER RIGHT point :"))
   (setq ss1 (ssget "_C" ll-pt ur-pt))
   (if (:VLA-EXPLODE-SS ss1)
     (setq ss2 (ssget "_C" ll-pt ur-pt))
     (setq ss2 (ssget "_C" ll-pt ur-pt))
   )
   (setq r ss2)
)


[domenicomaria]

only this :
(setq ss2 (ssget "_C" ll-pt ur-pt))

no need of "if"

as in the original code
...