Topic: vla-explode objects

[Coder]

Hello.

I guess objects must be arrays to variant which I do not have any idea about it , so would someone help me with it ?

Code: [Select]

(vl-load-com)
(if (setq ssets (ssget "_x" '((0 . "*LEADER"))))
  (repeat
    (setq n (sslength ssets))
       (setq ents (ssname ssets (setq n (1- n))))
        (vla-explode (vlax-ename->vla-object ents) [color=red].........[/color])
 ))

Thanks

[Lee Mac]

The Explode method only requires a single argument - the VLA-Object to be exploded:

Explode Method

Explodes the compound object into subentities.

Object

3DPolyline , BlockRef, ExternalReference, LightweightPolyline, MInsertBlock, Polygonmesh, Polyline, Region
The objects this method applies to.

Return Value

Variant (array of objects)
The array of exploded objects.

i.e.

Code: [Select]

(vla-Explode <VLA-Object>)
Which returns an array of the exploded objects.

The correct code would hence be:

Code: [Select]

(repeat (setq n (sslength ss))
  (setq ent (ssname ss (setq n (1- n))))
  (vla-explode (vlax-ename->vla-object ent))
)
Note however, that this will only explode those objects listed, which doesn't include any forms of Leader.

[Coder]

Thanks Lee.

Yes That's right, the *leaders are not obtained with the "vla-explode" function to deal with .

So is there any other function which could explode Leader out of explode command ?

Appreciated

[Lee Mac]

Without reconstructing the Leaders using MText and Polylines I believe the Explode command is your only option:

Code: [Select]

(defun c:test ( / qa ss )

  (setq qa (getvar 'QAFLAGS))
  (setvar 'QAFLAGS 1)

  (if (setq ss (ssget "_X" '((0 . "*LEADER"))))
    (command "_.explode" ss "")
  )
  (setvar 'QAFLAGS qa)
  (princ)
)

[Coder]

This is what I am trying to avoid , because if I have many Leaders to explode in a dwg , that should make me waiting for it .

Is not it possible with Vlisp or ActiveX codes instead of command call ?

Thanks

[Coder]

OKi ,

The system variable (getvar 'QAFLAGS) does a very good job by pushing the Explode command to go faster .

So without it the routine would take a longer time and sometimes being boring .

Thank you Lee.

[CAB]

This may also improve speed if you have leaders in other layouts:

Code: [Select]

(defun c:test ( / qa ss )

  (setq qa (getvar 'QAFLAGS))
  (setvar 'QAFLAGS 1)

  (if (setq ss (ssget "_X" (LIST '(0 . "*LEADER")(cons 410 (getvar "ctab")))))
    (command "_.explode" ss "")
  )
  (setvar 'QAFLAGS qa)
  (princ)
)

[kruuger]

Hello.

I guess objects must be arrays to variant which I do not have any idea about it , so would someone help me with it ?

Code: [Select]

(vl-load-com)
(if (setq ssets (ssget "_x" '((0 . "*LEADER"))))
  (repeat
    (setq n (sslength ssets))
       (setq ents (ssname ssets (setq n (1- n))))
        (vla-explode (vlax-ename->vla-object ents) [color=red].........[/color])
 ))

Thanks

i'm corious why are you exploding leader and making mess in drawing ?
kruuger

[alanjt]

Hello.

I guess objects must be arrays to variant which I do not have any idea about it , so would someone help me with it ?

Code: [Select]

(vl-load-com)
(if (setq ssets (ssget "_x" '((0 . "*LEADER"))))
  (repeat
    (setq n (sslength ssets))
       (setq ents (ssname ssets (setq n (1- n))))
        (vla-explode (vlax-ename->vla-object ents) [color=red].........[/color])
 ))

Thanks

i'm corious why are you exploding leader and making mess in drawing ?
kruuger

Ditto.

[Coder]

Thank you CAB .

Hello.

I guess objects must be arrays to variant which I do not have any idea about it , so would someone help me with it ?

Code: [Select]

(vl-load-com)
(if (setq ssets (ssget "_x" '((0 . "*LEADER"))))
  (repeat
    (setq n (sslength ssets))
       (setq ents (ssname ssets (setq n (1- n))))
        (vla-explode (vlax-ename->vla-object ents) [color=red].........[/color])
 ))

Thanks

i'm corious why are you exploding leader and making mess in drawing ?
kruuger

Ditto.

Actually I do agree with both of you , but sometimes I have to do that to be able to purge the dim. styles that are related to Leaders .

Thanks

[kruuger]

Thank you CAB .

Hello.

I guess objects must be arrays to variant which I do not have any idea about it , so would someone help me with it ?

Code: [Select]

(vl-load-com)
(if (setq ssets (ssget "_x" '((0 . "*LEADER"))))
  (repeat
    (setq n (sslength ssets))
       (setq ents (ssname ssets (setq n (1- n))))
        (vla-explode (vlax-ename->vla-object ents) [color=red].........[/color])
 ))

Thanks

i'm corious why are you exploding leader and making mess in drawing ?
kruuger

Ditto.

Actually I do agree with both of you , but sometimes I have to do that to be able to purge the dim. styles that are related to Leaders .

Thanks

hmm. if you got leaders you got the dim style. why are you need to purge them ?
maybe there will be another solution.

kruuger

[Coder]

We are using purge to reduce the overload of entities in a dwg , so that's why, me and the others do it that way .

So what is your solution regarding the issue ?

Thanks

[kruuger]

We are using purge to reduce the overload of entities in a dwg , so that's why, me and the others do it that way .

So what is your solution regarding the issue ?

Thanks

OMG. My solution is leave your leader as is 
When you explode leader you are not reduce but increase entittes. Also drainwg became bigger. try to make file with 25000 leader with text and then make second file with exploded object. Which is lighter.
No offense but when i see exploded leader i always want to use my tool (on draftsmen hands)

kruuger

[Coder]

Right .

Thanks a lot , now it is clear .

Appreciated