否何将所选到的文字 改成 某个固定文字内容?谢谢

lincctw_ccl

2. 
   
3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;直接改文字
   
4. (defun c:tt (/ en en_data oname_list old_namenew_name new_data)
   
5. (setvar"osmode" 0)
   
6. (setvar"cmdecho" 0)
   
7. (setq en(entsel "选取旧文字:"))
   
8. (setq en_data(entget (car en)))
   
9. (setq oname_list(assoc 1 en_data))
   
10. (setq old_name (cdr oname_list))
    
11. (setq new_name (getstring "\n 新文字:"))
    
12. ;ß------请问这段文字如何省略才能在不用输入的状况下将文字改成“刘德华”
    
13. (setq new_name_list (cons 1 new_name))
    
14. (setq new_data(subst new_name_list oname_list en_data))
    
15. (entmod new_data)
    
16. )
    
17. (prin1)

<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;直接改文字<br /> (defun c:tt (/ en en_data oname_list old_namenew_name new_data)<br /> (setvar"osmode" 0)<br /> (setvar"cmdecho" 0)<br /> (setq en(entsel "选取旧文字:"))<br /> (setq en_data(entget (car en)))<br /> (setq oname_list(assoc 1 en_data))<br /> (setq old_name (cdr oname_list))<br /> (setq new_name (getstring "\n 新文字:"))<br /> ;&szlig;------请问这段文字如何省略才能在不用输入的状况下将文字改成“刘德华”<br /> (setq new_name_list (cons 1 new_name))<br /> (setq new_data(subst new_name_list oname_list en_data))<br /> (entmod new_data)<br /> )<br /> (prin1)

Andyhon

;; (setqnew_name (getstring "\n 新文字:"))
(setq new_name “刘德华"))
And 您的空格得修訂....

ahwx0814

楼上说的对，修改后的效果如下

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;直接改文字
   
3. 
   
4. (defun c:tt (/ en en_data oname_list old_namenew_name new_data)
   
5.   (setvar "osmode" 0)
   
6.   (setq en (entsel "选取旧文字:"))
   
7.   (setq en_data (entget (car en)))
   
8.   (setq oname_list (assoc 1 en_data))
   
9.   (setq old_name (cdr oname_list))
   
10.                                         ;(setq new_name (getstring "\n 新文字:"))
    
11.   (setq new_name "刘德华")
    
12.   (setq new_name_list (cons 1 new_name))
    
13.   (setq new_data (subst new_name_list oname_list en_data))
    
14.   (entmod new_data)
    
15. )
    
16. (prin1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;直接改文字<br /> <br /> (defun c:tt (/ en en_data oname_list old_namenew_name new_data)<br />   (setvar "osmode" 0)<br />   (setq en (entsel "选取旧文字:"))<br />   (setq en_data (entget (car en)))<br />   (setq oname_list (assoc 1 en_data))<br />   (setq old_name (cdr oname_list))<br />                                         ;(setq new_name (getstring "\n 新文字:"))<br />   (setq new_name "刘德华")<br />   (setq new_name_list (cons 1 new_name))<br />   (setq new_data (subst new_name_list oname_list en_data))<br />   (entmod new_data)<br /> )<br /> (prin1)

lincctw_ccl

感谢上面两位大哥的指导!!
想再请教 如上述所要改的新文字为 “系统日期”
有查出一个系统变量 为 cdate 执行后显示
CDATE = 20110126.15243785
请问该如何替用上述同样的lsp
写出的新文字为 20110126 &#61663;--只要年月日就行了
谢谢!!A

Andyhon

參考這個:
http://bbs.mjtd.com/thread-85192-1-1.html

lincctw_ccl

感谢Andyhon 的再次指导

经您所提示之连结
己达成我要的效果
谢谢!!

功夫佬

可否在原来的文字（单行和多行）前加自己想输入的内容。

chenbh2

加前后缀软件可以

chenbh2

功夫佬 发表于 2012-5-20 23:16
可否在原来的文字（单行和多行）前加自己想输入的内容。

加前缀软件,可以达到你的要求.