修改程序：修改文字内容，带记忆多选

yunfengning

(defun C:qm ()
(while (and
   (setq ent (entsel "\n请选择源文字："))
   (setq ent (entget (car ent)))
   (wcmatch (cdr(assoc 0 ent)) "*TEXT")
   (setq newtxt (getstring "\n输入新的文字内容\n"))
   (setq newtxt (strcat "(" newtxt ")")) ;;;给改文字的内容加上括号
   )
  (entmod (subst (cons 1 newtxt) (assoc 1 ent) ent))
)
(princ)
)

请大侠帮忙修改以上LSP，实现以下功能
1、先输入要修改成的内容，再选择要修改的文字。
2、能多选。
3、能记忆上次输入的修改内容。
4、文字修改后，首尾要加上括号。
上次提的要求表达不清，深表歉意。

重慶崽兒

1：没明白你说的什么意思，不觉明厉！
2、3：

2. (defun c:qm()
   
3.   (while (setq ss (ssget '((0 . "*TEXT"))))
   
4.     (setq i 0)
   
5.     (if (and newtxt_1 (/= newtext_1 ""))
   
6.       (progn
   
7.         (setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))
   
8.   (if (= newtxt "")
   
9.           (setq newtxt newtxt_1)
   
10.   )
    
11.       )
    
12.       (setq newtxt (getstring "\n输入新的文字内容:"))
    
13.     )
    
14.     (repeat (sslength ss)
    
15.       (setq ent (entget (ssname ss i)))
    
16.       (entmod (subst (cons 1 newtxt) (assoc 1 ent) ent))
    
17.       (setq i (1+ i))
    
18.     )
    
19.     (setq newtxt_1 newtxt)
    
20.   )
    
21. )

(defun c:qm()<br />   (while (setq ss (ssget '((0 . "*TEXT"))))<br />     (setq i 0)<br />     (if (and newtxt_1 (/= newtext_1 ""))<br />       (progn<br />         (setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))<br />   (if (= newtxt "")<br />           (setq newtxt newtxt_1)<br />   )<br />       )<br />       (setq newtxt (getstring "\n输入新的文字内容:"))<br />     )<br />     (repeat (sslength ss)<br />       (setq ent (entget (ssname ss i)))<br />       (entmod (subst (cons 1 newtxt) (assoc 1 ent) ent))<br />       (setq i (1+ i))<br />     )<br />     (setq newtxt_1 newtxt)<br />   )<br /> )

xyp1964

2. (defun c:qm ()
   
3.   (setq str (USTR 1 "新文字内容" str NIL)
   
4.         tx  (strcat "(" str ")")
   
5.   )
   
6.   (while (setq ss (ssget '((0 . "*text"))))
   
7.     (xyp-SubUpd ss 1 tx)
   
8.   )
   
9.   (princ)
   
10. )

(defun c:qm ()<br />   (setq str (USTR 1 "新文字内容" str NIL)<br />         tx  (strcat "(" str ")")<br />   )<br />   (while (setq ss (ssget '((0 . "*text"))))<br />     (xyp-SubUpd ss 1 tx)<br />   )<br />   (princ)<br /> )

llsheng_73

xyp1964 发表于 2015-9-8 08:29

ustr是个什么鬼？

重慶崽兒

2. (defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)
   
3.   (while T
   
4.     (if (and newtxt_1 (/= newtext_1 ""))
   
5.       (progn
   
6.         (setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))
   
7.         (if (= newtxt "")
   
8.           (setq newtxt newtxt_1)
   
9.         )
   
10.       )
    
11.       (setq newtxt (getstring "\n输入新的文字内容:"))
    
12.     )
    
13.     (setq ss (ssget '((0 . "*TEXT"))))
    
14.     (setq i 0)
    
15.     (repeat (sslength ss)
    
16.       (setq ent (entget (ssname ss i)))
    
17.       (entmod (subst (cons 1 (strcat "(" newtxt ")")) (assoc 1 ent) ent))
    
18.       (setq i (1+ i))
    
19.     )
    
20.     (setq newtxt_1 newtxt)
    
21.   )
    
22. )

(defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)<br />   (while T<br />     (if (and newtxt_1 (/= newtext_1 ""))<br />       (progn<br />         (setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))<br />         (if (= newtxt "")<br />           (setq newtxt newtxt_1)<br />         )<br />       )<br />       (setq newtxt (getstring "\n输入新的文字内容:"))<br />     )<br />     (setq ss (ssget '((0 . "*TEXT"))))<br />     (setq i 0)<br />     (repeat (sslength ss)<br />       (setq ent (entget (ssname ss i)))<br />       (entmod (subst (cons 1 (strcat "(" newtxt ")")) (assoc 1 ent) ent))<br />       (setq i (1+ i))<br />     )<br />     (setq newtxt_1 newtxt)<br />   )<br /> )

yunfengning

谢谢哥们儿。

78946299

重慶崽兒 发表于 2015-9-8 20:50

你好，大佬。你这个能帮忙改下吗？保留现有的文字，增加的在后面 A 变成A(2x)

鑫诚科技

不明觉厉~~支持一下