Topic: Replacing text string

[hudster]

I have a load of text strings that include room names and the area of the room, in the format :-

Code: [Select]

Room 1
General Classroom
87sqm

bearing in mind that every room has a different area, how can I remove the room areas from these strings.

[Mark]

What about "find and replace"?

[hudster]

tried that but it deletes the room numbers as well as thw sqm.

can i use wildcards in find and replace?

[M-dub]

Try a filter on Text Value with *sqm*, then erase?

might sound like a stupid idea, but it's an idea, anyway...

[Mark]

Is this mtext or text?

[M-dub]

I don't think you can use wildcards...
There might be a lisp routine out there that allows for wildcards in a find and replace, but none that I currently know of.

[hudster]

all mtext.  I can't explode them as dtext is not allowed under our CAD standards.

[M-dub]

I guess the filter thing won't work then.  You couldn't explode, then convert back to mtext?  Sounds like a lot of work, but...?

[CADaver]

Where's CAB when you need him, right?

Assuming the lines are hard returns (\P) you can use (substr to isolate the text between the hard returns and remove it.

[Mark]

try this.

Code: [Select]


(defun c:trash_sqm (/ ss cntr ent st entlst)
  (prompt "\nSelect Room tags: ")
  (setq ss (ssget '((0 . "MTEXT"))))
  (setq cntr 0)
  (while (setq ent (ssname ss cntr))
         (setq entlst (entget ent)
               st (cdr (assoc 1 entlst))
               )
         (if (wcmatch st "*sqm")
           (progn
             (setq entlst
                   (subst
                     (cons 1 (vl-string-right-trim "sqm1234567890" st))
                     (assoc 1 entlst)
                     entlst
                     )
                   )
             (entmod entlst)
             )
           )
         (setq cntr (1+ cntr))
         ); while
  (princ)
  )


[hudster]

excellent.

Can I make some changes to this?

When I find time I want to alter this to enable me to delete a user defined string.

[whdjr]

AAAGGGGHHHH!!!!!!!
MMMMAAAARRRRKKKK!!!!
     
     
You beat me again.  That's ok though.  I couldn't get mine to work although it should.  Can someone tell me why?

Code: [Select]

(defun c:no-area (/ ss len enl ent str num inc)
  (if (setq ss (ssget "X" '((0 . "mtext") (1 . "*\\P*SQM*"))))
 ;remove "X" if you omly want selected mtext
    (repeat (setq len (sslength ss))
      (setq len (1- len))
      (setq ent (ssname ss len))
      (setq enl (entget ent))
      (setq str (cdr (assoc 1 enl)))
      (setq num 0)
      (while
(setq inc (vl-string-search "\\P" str num))
(if inc
  (setq num (1+ inc))
)
      )
      (setq enl (subst (cons 1 (substr str 1 (1- num)))
                    (cons 1 str)
                     enl
                    )
       )
      (entmod enl)
      (entupd ent)
    )
  )
  (princ)
)
***edited***
Added a setq to the sust statement.

[Mark]

excellent.

Can I make some changes to this?

When I find time I want to alter this to enable me to delete a user defined string.

by all means, have at it.

[Mark]

Can someone tell me why?

at first glance I'd say it's in the line.

Code: [Select]

(ssget "X" '((0 . "mtext") (1 . "*\\P*SQM*"))))

     

[whdjr]

No.  The whole routine works when you step through it in the VLIDE.  Just it doesn't update when you do the entmod.