(求源碼) 依文:字样式来达到文字替换的功能!!

lincctw_ccl

文字內容 :111  文字样式:aaa

文字內容 :222  文字样式:bbb

可否用框选的方式将文字 111 替换成 222 但其原来各自的文字样式不做改变?

變成下列樣子

文字內容:222  文字样式:aaa

文字內容:222  文字样式:bbb

謝謝!

p.s  111 及 222 都为不固定文字

用意是想利用文字格式的依据来筛选做文字置换!!

zyhandw

这个很简单啊，用纯lisp即可实现啊！以下是代码，试试：

1. (defun c:test(/ 1num all1 n1 n1att)
   
2.    (setq 1num 0)
   
3.    (if (setq all1 (ssget "x" '((0 . "text") (1 . "111"))))
   
4.        (repeat (sslength all1)
   
5.          (setq n1 (ssname all1 1num))
   
6.          (setq n1att (entget n1))
   
7.          (setq n1att (subst '(1 . "222") (assoc '1 n1att) n1att))
   
8.          (setq n1att (subst '(7 . "bbb") (assoc '7 n1att) n1att))
   
9.          (entmod n1att)
   
10.          (setq 1num (1+ 1num))
    
11.        )
    
12.     )
    
13.     (princ)
    
14. )

(defun c:test(/ 1num all1 n1 n1att)<br />    (setq 1num 0)<br />    (if (setq all1 (ssget "x" '((0 . "text") (1 . "111"))))<br />        (repeat (sslength all1)<br />          (setq n1 (ssname all1 1num))<br />          (setq n1att (entget n1))<br />          (setq n1att (subst '(1 . "222") (assoc '1 n1att) n1att))<br />          (setq n1att (subst '(7 . "bbb") (assoc '7 n1att) n1att))<br />          (entmod n1att)<br />          (setq 1num (1+ 1num))<br />        )<br />     )<br />     (princ)<br /> )

fd54211168

从现在开始，你只许陪我一个人灌水，要哄我不能骂我，我每一次上站你都要给我"msg"，对我灌的每一篇水你都要"re"，不是我灌的水你一篇都不许"re"。要关心我，别人"kick"我你要在第一时间出来帮我"kick"他，我想灌水的时候你必须陪我灌，你想灌水的时候我可以不陪你灌，永远都要只陪我一个人灌水，文章里也要提到我，在你的水里面只有我！！

lincctw_ccl

zyhandw 发表于 2012-4-28 14:03
这个很简单啊，用纯lisp即可实现啊！以下是代码，试试：

感谢指导!!
您所写的和我的期望修改方式刚好相反!
所以我改了下 文字的置换现在正是我所要的
另还有点问题
我问题中所指的111 和 222 均是不固定文字
可否请zyhandw 再帮我改改
谢谢!!



(defun c:gg (/ 1num all1 n1 n1att)
   (setq 1num 0)
   (if (setq all1 (ssget "x" '((0 . "text") (1 . "222"))))
       (repeat (sslength all1)
         (setq n1 (ssname all1 1num))
         (setq n1att (entget n1))
         (setq n1att (subst '(1 . "111") (assoc '1 n1att) n1att))
         (setq n1att (subst '(7 . "bbb") (assoc '7 n1att) n1att))
         (entmod n1att)
         (setq 1num (1+ 1num))
       )
    )
    (princ)
)

lincctw_ccl

zyhandw 发表于 2012-4-27 23:40
这个很简单啊，用纯lisp即可实现啊！以下是代码，试试：

自己用笨方法解決了!!
謝謝指導

zyhandw

不固定文字也好解决，可以交互式输入内容！

2. (defun c:test ( / 1num all1 n1 n1att)
   
3.   |(setq txt1 (getstring "\n要替换的文字内容:")
   
4.          txt1style (getstring "\n要替换的文字样式:")
   
5.          txt2 (getstring "\n替换为:")
   
6.          txt2style (getstring "\n要替换的文字样式:")
   
7.    )
   
8.    (setq txt1lst (list (cons '1 txt1) (cons '7 txt1style)))
   
9.    (setq 1num 0)
   
10.    (if (setq all1 (ssget "x" (append '((0 . "text")) txt1lst)))
    
11.        (repeat (sslength all1)
    
12.          (setq n1 (ssname all1 1num))
    
13.          (setq n1att (entget n1))
    
14.          (setq n1att (subst (cons 1 txt2) (assoc '1 n1att) n1att))
    
15.          (setq n1att (subst (cons 7 txt2style) (assoc '7 n1att) n1att))
    
16.          (entmod n1att)
    
17.          (setq 1num (1+ 1num))
    
18.        )
    
19.     )
    
20.     (princ)
    
21. )

(defun c:test ( / 1num all1 n1 n1att)<br />   |(setq txt1 (getstring "\n要替换的文字内容:")<br />          txt1style (getstring "\n要替换的文字样式:")<br />          txt2 (getstring "\n替换为:")<br />          txt2style (getstring "\n要替换的文字样式:")<br />    )<br />    (setq txt1lst (list (cons '1 txt1) (cons '7 txt1style)))<br />    (setq 1num 0)<br />    (if (setq all1 (ssget "x" (append '((0 . "text")) txt1lst)))<br />        (repeat (sslength all1)<br />          (setq n1 (ssname all1 1num))<br />          (setq n1att (entget n1))<br />          (setq n1att (subst (cons 1 txt2) (assoc '1 n1att) n1att))<br />          (setq n1att (subst (cons 7 txt2style) (assoc '7 n1att) n1att))<br />          (entmod n1att)<br />          (setq 1num (1+ 1num))<br />        )<br />     )<br />     (princ)<br /> )

lincctw_ccl

zyhandw 发表于 2012-4-29 08:13
不固定文字也好解决，可以交互式输入内容！

谢谢指导!!
依您之前所给的程序的思路
我用其它方式解快了
虽然程序是比较长了点
但急用 先顶着用了~

664571221

lincctw_ccl 发表于 2012-4-29 09:49
谢谢指导!!
依您之前所给的程序的思路
我用其它方式解快了

在吗你的程序能上传下吗