Deleting specific text after a symbol

[Anonymous]

 I am trying to find a way to delete all the text after the "~" symbol. If there is a way I would really appreciate  it, it will save a lot of time.

Thank you

[ennujozlagam]

ddedit command and pick the text and erase. thanks

[ВeekeeCZ]

Start with posting a dwg with example(s).

Also, do you mean to remove all the text behind a hyphen to the end of the line?

[Anonymous]

From the ~ to the end

[Anonymous]

Yes from behind the ~ to the end, sorry

[Kent1Cooper]

Is that one big Mtext object, or is each line a separate Text or Mtext object?  [This kind of question is why a sample .dwg file is helpful.]

[Kent1Cooper]

---

@Anonymous wrote:

Yes from behind the ~ to the end....

---

If in each Text/Mtext object, try this:

(vl-load-com)
(defun C:TDAT (/ ss n tobj txt); = Text: Delete After Tilde
  (if (setq ss (ssget "_:L" '((0 . "*TEXT") (1 . "*~*"))))
    (repeat (setq n (sslength ss)); then
      (setq tobj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (vla-put-TextString tobj
        (substr (setq txt (vla-get-TextString tobj)) 1 (1+ (vl-string-position 126 txt)))
      ); ...put...
    ); repeat
  ); if
  (princ)
); defun

But if your image is one Mtext object, and you want such deletions for every line in it, not just the whole thing after the first ~, that's another story [but also possible].

[Anonymous]

Every line is separate 

[Anonymous]

Ah, thanks. What about if the whole thing is a block and I want it to do the same thing for every line?

[Kent1Cooper]

---

@Anonymous wrote:

.... What about if the whole thing is a block and I want it to do the same thing for every line?

---

Do you really mean the whole thing is a Block as AutoCAD uses the term, or the whole thing is "blocked together" as one Mtext object?  It should be possible to do it either way, but the approaches would be very different.

[Anonymous]

It worked but I also the ~ symbol to delete aswell

[Anonymous]

Is blocked all together.

[Kent1Cooper]

---

@Anonymous wrote:

It worked but I also the ~ symbol to delete aswell

---

Then the Topic heading and Message 5 should be worded differently.  But if that's what you need, change this line:

(substr (setq txt (vla-get-TextString tobj)) 1 (1+ (vl-string-position 126 txt)))

to this:

(substr (setq txt (vla-get-TextString tobj)) 1 (vl-string-position 126 txt))

And in the image, it looks like there are spaces before the ~'s.  If you also want those spaces removed, that's possible.

[jrreid]

Easy for that, use Find Replace.

Type in Find.

Find What:   Put your ~   (if you have spaces to remove put them as well)

Replace with:  (DONT PUT ANYTHING)

Then select REPLACE ALL  or  Select the Blocks you want this to happen with.

If you already ran the lisp command and picked the blocks when you use find type P or Previous when selecting.

Hope this helps!

JRR.

[Kent1Cooper]

---

@Anonymous wrote:

Is blocked all together.

---

That leaves the same ambiguity as before.  What is the object?  Pick it and look at the top of the Properties palette.  What does it say -- "Block Reference" or "Mtext" or something else?

[Anonymous]

 

[Kent1Cooper]

So inside the Block definition, are all the lines of text separate objects, or one Mtext object?  Get into the Block with BEDIT or REFEDIT, and you can find out.  If they're separate objects, are they in fact Text/Mtext, or are they Attribute definitions?

[Anonymous]

 Not sure, but it looks like this.

[Kent1Cooper]

They appear to be Attributes.  That would mean what you want to edit is the Attribute values in a particular insertion of that Block, not anything in the Block definition [what you're seeing are their tags].  FIND can do text replacements, but I don't think it can handle finding a particular character and deleting it and all that follows it, regardless of what that is.  But I don't use Attributes very much, so it would take me some research to find a way to do what you want -- maybe someone else with more Attribute experience will jump in before I get around to it. 

[Anonymous]

Okay, thank you very much. I appreciate the help, previous step will help a lot though in most circumstances.