LSP for Find and replace

[burniksapwet]

I was wondering if someone can create a find and replace lsp for us that does this steps. Thank you so much in advance once again.

Want to replace the spaces on the currently selected mtext to an enter command.

If I do and find and replace it will have to be something like this

Under "Find What" it will just be a single spacebar

Under "Replace  With" will be \u+000A. This is the code for replicating the enter function.

So once that hit "Relace "All" it should turn this currently selected mtext from this

To this

[john.uhden]

(vl-string-translate "\\P" " " str)

[burniksapwet]

I'm sorry but how do I run this?

[john.uhden]

My apologies.  My answer was very terse because I thought you knew a bit about AutoLisp / Visual Lisp and were looking for a find and replace function to use in your own code.  My response simply indicated that there is a Visual Lisp function that does exactly what (I think) you need.

Perhaps you can post the code you have so far and one of us here can show you how/where to implement the function.

[burniksapwet]

That's the thing sir. I have nothing because I am not well versed with creating a .lsp. All I have is what I want the command to do. Which is to add all those "enter" command to the currently selected mtext. Sorry for the confusion. I should have mentioned that to begin with.

[pbejse]

Try the attached Q&D lisp. command: mtalign

[m_badran]

Try this.

(defun c:changespace (/ ss)
  (vl-load-com)
  (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
    ((lambda (i / e v s)
       (while (setq e (ssname ss (setq i (1+ i))))
	 (setq
	   s (vla-get-textstring (setq v (vlax-ename->vla-object e)))
	 )
	 (while	(vl-string-search " " s)
	   (setq s (vl-string-subst "\\P" " " s))
	 )
	 (vla-put-textstring v s)
       )
     )
      -1
    )
  )
  (princ)
)

[pbejse]

---

@burniksapwet wrote:

I was wondering if someone can create a find and replace lsp for us that does this steps. Thank you so much in advance once again.

Want to replace the spaces on the currently selected mtext to an enter command.

If I do and find and replace it will have to be something like this

---

burniksapwet

Obviously this topic and two recent posts  are related

Block Attribute Text Extraction.

Text to Mtext then line up mtext in a column.

Hows about picked one and stick with it until its resolved, take a deep breath and describe the goal in its entirety so everybody here can provide a workable solution and not just bits & pieces.

Take your time.....

* one of fellow member informed me that what i submitted as an attachment was nowhere to be found, its just one of those days 

[Kent1Cooper · Accepted solution]

---

@burniksapwet wrote:

....

Want to replace the spaces on the currently selected mtext to an enter command.

....

---

Try this [lightly tested]:

(defun C:S2EP (/ ss n obj); = Space(s) [to] Enter(s) with Pre-selection
  (if (setq ss (ssget "_I" '((0 . "MTEXT"))))
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (vla-put-textstring obj (vl-string-translate " " "\n" (vla-get-textstring obj)))
    ); repeat
  ); if
  (princ)
); defun

[By the way, @john.uhden had the (vl-string-translate) arguments reversed.  But that function does all of them, eliminating @m_badran's (while) function needed if using (vl-string-subst).]

[john.uhden]

My apologies.

Apparently vl-string-translate can replace only an equal number of characters for another.

For example:

(vl-string-translate "123" "ABC" "lj;lABC  lkjlp329ABCs';lsdf")  will work, but

(vl-string-translate "A" "123" etc.)  will replace all "A"s with just "1"

[dbroad]

@burniksapwet,

Before you post, do you do an internet search and find out if any solution similar to your needs already exists?

Try this from Lee-Mac to see if it meets your needs.  It appears to batch process.

http://www.lee-mac.com/bfind.html

[burniksapwet]

Yes I do search first. This will not work for what I need it the lsp for.

[burniksapwet]

Thank you so much for the code. This is exactly what we are looking for. I appreciate the time and effort for this code. Thank you so much.