What I am doing wrong?

Hello All,

I have to translate 300 dwgs from AutoCAD to Microstation using DGNLink. I
am having problems with the MTEXT. I'll explode all the MTEXT to Single Line
Text and I want to use something like this to speed up the process. What I
am missing? Any help will be appreciated.

(defun MTX ( / sset num itm hnd ent lay)
(setq sset (ssget "X" '((0 . "MTEXT"))))
(if sset
(progn
(setq num (sslength sset)
itm 0
)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq lay (cdr (assoc 8 ent)))
(setvar "clayer" lay)
(command "_.explode" hnd)
(setq itm (1+ itm))
)
)
)
(princ)
)

 

This works for me in 2004

 

Just a wild guess, perhaps a:
(command "_regen")
near end..

Bob

 

I am using Acad 2000i and it do not explode my MTEXTs.

 

It worked but only explode the mtext on current space. How to explode all
the MTEXT no matter what space it is on?

TIA

 

Rudy,

Is not that what I am doing?.

 

You have to pass an 'entityname' one at a time.
--

AUTODESK
Authorized Developer
http://www.Cadentity.com
MASi

 

It should grab ALL the Mtext ..unless it is associated with a ' QLeader' - is that the case ?

Bob

 

ECCAD,

No, that is not the case. I don't have any MTEXT associated to Qleaders.

 

If I run the code in PS and my MTEXT is on MS I got this mesage:

Command: mtx
_.explode
Select object:
The object is not in current space.

None found.
Select object: _.explode

*Invalid selection*
Expects a point or Last/ALL/Group
; error: Function cancelled

Select object:

Uhmm.

 

If you switch to MS, then run, does it get all the Mtext ?
Bob

 

I think your going to have to set it up so that it only grabs the mtext entitys in the space you are in (ie model, paper) then run your lisp. Then change space and run again. You can't explode things that are not in your current space.

Tim

 

(defun MTX ( / sset num itm hnd ent lay)
(setq sset (ssget "X" (list (cons 410 (getvar "ctab")) '(0 . "MTEXT"))))
(if sset
(progn
(setq num (sslength sset)
itm 0
)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq lay (cdr (assoc 8 ent)))
(setvar "clayer" lay)
(command "_.explode" hnd)
(setq itm (1+ itm))
)
)
)
(princ)
)

(defun MTextX(/ ct1)

(setq ct1 (getvar "ctab"))
(setvar "tilemode" 1)
(mtx)
(foreach Item (layoutlist)
(setvar "ctab" Item)
(mtx)
)
(setvar "ctab" ct1)
(princ)
)

Try this. It's a quick little dirty one, but it worked when tested.

Tim

 

Try:

(defun MTX ( / sset)
(if (setq sset (ssget "X" '((0 . "MTEXT"))))
(progn
(setvar "QAFLAGS" 1)
(command "_.explode" sset "")
(setvar "QAFLAGS" 0)
)
)
(princ)
)