Words to Text; not mtext

[Speedster2]

I have modified a lips that join words and forms a text. That was successful. But the original position of the words not deleted. Please help. I have attachment the lisp and sample dwg

texts join.lsp Drawing1.dwg

[SLW210]

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum. Please post in the correct forum.

[marko_ribar]

Have you tried to replace this :

  (while (= count slen)
   (entdel sget)
   (setq count (1- count))
  )

 

With this :

(acet-ss-entdel sset)

 

Regards...

[Speedster2]

It worked. Thanks mate.

[Roy_043]

Marko has identified the piece of code that causes the problem. The (= count slen) condition is true only once.

[BIGAL]

My $0.05, note no check if when doing ssget that you pick original text as well. Used strcat rather than change better way to go

 

(defun c:jtxt ( / ss obj toch tnew obj obj2)
(command "style" "rs" "romans" "2.2" "0.8" "" "" "" "")
  (setq obj (vlax-ename->vla-object (car (entsel "\nPick text to change: "))))
  (setq toch (vla-get-textstring obj))
  (setq ss (ssget (list (cons 0 "text"))))
  (setq x -1) ; ss starts at 0
  (repeat (sslength ss)
  (setq obj2 (vlax-ename->vla-object (ssname ss (setq x (+ x 1)))))
  (setq tnew (vla-get-textstring obj2))
  (setq toch (strcat toch " " tnew))
  (vla-delete obj2)
  )
  (vla-put-textstring obj toch)
  (vla-put-stylename obj "rs")
  (princ)
)

 

Edited January 4, 2020 by BIGAL

[Speedster2]

Thanks a lot Bigal for your time and for the lisp. Helps me a lot

[Speedster2]

On 1/3/2020 at 1:33 PM, Roy_043 said:

Marko has identified the piece of code that causes the problem. The (= count slen) condition is true only once.

Yeah Roy. Thanks for identifying my mistake.