Remove first part and break from mtext

[stijn.dedeckerM4Q3S]

Hi, 

i have a lisp that removes the first part of a mtext block, 

Thats ok but is still leaves the \P 

i cant figure it out? 

(defun c:removefirstpart (/ ss ents ent text breakline-pos updated-text)
(setq ss (ssget "_X" '((0 . "MTEXT"))))
(if ss
(progn
(setq ents (sslength ss))
(repeat ents
(setq ent (ssname ss (setq ents (1- ents))))
(setq text (cdr (assoc 1 (entget ent))))
(setq breakline-pos (vl-string-search "\\P" text))
(setq updated-text (if breakline-pos
(substr text (1+ breakline-pos))
""))
(entmod (subst (cons 1 updated-text) (assoc 1 (entget ent)) (entget ent)))
)
(princ "Text before breakline and breakline removed.")
)
(princ "No MText found.")
)
(princ)
)

[paullimapa]

change this:

(substr text (1+ breakline-pos))

to this:

(substr text (+ 3 breakline-pos))

[stijn.dedeckerM4Q3S]

ok, this works but is still leaving a space at front so how to remove that also.

[paullimapa]

Easy change + 3 to + 4

[stijn.dedeckerM4Q3S]

i have tried that but then it removes also the first character of the second part.

My MTEXT looks like: 

[paullimapa]

Share a dwg with your Mtext

[komondormrex]

hey,

check this thread

[stijn.dedeckerM4Q3S]

here is a example dwg

[paullimapa]

so for example looking at these 3 lines of an MText (which I changed color to 3 to make it easier to see) before Removefirstpart is run:

The MText actually contains 2 locations of \\P:

Now after Removefirstpart runs this is how that MText looks like:

Now there's only 1 location of \\P left:

Then I run Removefirstpart one more time & now it looks like this:

There are no more \\P left:

I also don't see any spaces in front.

What are you trying to get at?

[stijn.dedeckerM4Q3S]

i am sorry but i dont think there is a problem, i think it was just a problem with one specifc drawing

[paullimapa]

Glad problem is solved…cheers!!!