get texts in parentheses.

[nychoe1]

hello everyone.

I want to get texts in parentheses.

first, select all texts and change texts.  there are many texts list... some help.

for example...

->

thank you all.

[ВeekeeCZ]

Try....

(vl-load-com)
(defun c:TextInsidePar ( / ss i ed tx st en)
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (repeat (setq i (sslength ss))
      (if (and (setq ed (entget (ssname ss (setq i (1- i)))))
	       (setq tx (cdr (assoc 1 ed)))
	       (setq st (vl-string-search "(" tx))
	       (setq en (vl-string-search ")" tx))
	       )
	(entmod (subst (cons 1 (substr tx (+ st 2) (- en st 1)))
		       (assoc 1 ed)
		       ed)))))
  (princ)
)

[nychoe1]

thank you BeekeeCZ .. for your help.