Input from user changeable by user

Command: ept
Select object:
ENTER NEW TEXT: INITIAL CHECKLIST OF PART XXXXXXXXX

I would to

Select object:
ENTER NEW TEXT: INITIAL CHECKLIST OF PART BATTERY FIXER

But problem is "INITIAL CHECKLIST OF PART XXXXXXXXX" can't change by
user,how to become changeable?

; ept is stand for edit part text
; Design by Ade Suharna
; 10 November 2004
; program no. 139/11/2004
; edit by
(defun c:ept (/ en ent opt ed)
(setq en (entget (car (entsel))))
(setq ent (cdr (assoc 1 en)))
(setq opt (getstring T (strcat "\nENTER NEW TEXT: " ent)))
(setq ed (subst (cons 1 opt)(assoc 1 en) en))
(entmod ed)
(princ)
)

 

Hi Adesu

How about double click text?

Cheers

 

Hi Jürg
It still can't replace or edit by user input,is there any option to
changeable variable "(setq ent (cdr (assoc 1 en)))",I mean
Command: ept
Select object:
ENTER NEW TEXT: Adesu ====> to become Ade [this here give space by hit 2 x
mouse pointer and then] s [this here replace text by "S"] u [then added
"harna"].
The problem is if text to long and replace only one or two string,I want and
I would this like below,if I type
"Jürg Memzi",wrong string only 1 is "m" ,I don't want retype "Jürg Menzi".

 

(defun C:CT (/ p l n e os as ns st s nsl osl sl si chf chm cont)
(setvar "ATTDIA" 0)
(setq chm 0 p (ssget)) ; Select objects
(if p (progn ; If any objects selected
(setq cont t)
(while cont
(setq osl (strlen (setq os (getstring "\nOld string: " t))))
(if (= osl 0)
(princ "Null input invalid")
(setq cont nil)
)
)
(setq nsl (strlen (setq ns (getstring "\nNew string: " t))))
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object...
(if (= "TEXT" ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e) ; Modify the TEXT entity
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ "Changed ") ; Print total lines changed
(princ chm)
(princ " text lines.")
(terpri)
); end function

Bob

 

Use Acad's "Find" command. It will allow you to search & replace text in
Mtext, Text, Attributes, Dimensions, Hyperlinks

--
Jeff
check out www.cadvault.com

 

Hi ECCAD,thanks a lot for yours respond,sorry I late to answer,I just week
for 10 days.