TXTEXP and elevation

[aophilly]

Good morning,

I am trying to write a lisp that allows a selection of texts with different elevation to be exploded into polylines while retaining the original elevation.

The TXTEXP express tools command allows this operation but restores the elevation of the selected element.

I thought of setting the UCS at the insertion point of each text before running the TXTEXP command and in this way the elevation is correct.
However, the lisp I created does not work because it sets the same elevation for all elements for some reason.

Can anyone help me?
Thank you in advance

 

provaC.lsp

[Steven P]

End of the working year happening here, busy....

 

Maybe...

Set a marker, say MyLastEnt to be (entlast) before you explode the text

 Explode the text

Set MyLastEnt forward one entity (entnext MyLastEnt) and move that to the elevation you want

Repeat till MyLastEnt is the same as (entlast)... ie the latest entity to be created

Then explode the next text

 

 

Might need to work on the syntax, but perhaps nicer than adjusting the UCS... which will need an error function for the case of the LISP cancelling part way through and to reset it to as it was before the LISP started (far better I think for an error to be clean wherever it occurs rather then being 'fixed' after)