[求助]：在线跪求文本问题

diandianhe

正在写一个小程序,我已经会获得文本了.现在就是想选定一行文字,然后把我刚才获得的文本输入到我选定的这行文字里.该如何实现?
我用了SBUST来替换表中的文字,但是新生成的表并不能替换CAD里面的表.

(setq lay (entsel "\nPick one text: ")
         ss (entsel "\nPick the other text to be change: ")
         en (car lay)
         name (car ss))
    (setq ssnew (assoc 1 (entget en))
          ssold (assoc 1 (entget name))
          )
   (sbust ssnew ssold (entget name))

zxmmelly

试试这个吧，正合你的要求

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060329
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;文本替换
    
15. (defun c:wbth (/ s1 tx1 s1)
    
16.   (princ "\n先选样本 : ")
    
17.   (if (setq s1 (car (usel1 0 "TEXT" "TEXT样板")))
    
18.     (progn (setq tx1 (xyp-get-dxf 1 s1))
    
19.            (while (setq s2 (car (entsel "\n选择目标<退出>:")))
    
20.              (if (member (xyp-get-dxf 0 s2) '("TEXT" "MTEXT"))
    
21.                (sub_upd s2 1 tx1)
    
22.              )
    
23.            )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060329<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;文本替换<br /> (defun c:wbth (/ s1 tx1 s1)<br />   (princ "\n先选样本 : ")<br />   (if (setq s1 (car (usel1 0 "TEXT" "TEXT样板")))<br />     (progn (setq tx1 (xyp-get-dxf 1 s1))<br />            (while (setq s2 (car (entsel "\n选择目标<退出>:")))<br />              (if (member (xyp-get-dxf 0 s2) '("TEXT" "MTEXT"))<br />                (sub_upd s2 1 tx1)<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

winabcd

你少用了下面的命令，给你一个说明，好好试试，对你有好处的。
用别人现成的东东方便，但自己搞出来的收获更大。

*******************************
更新对象（图元）的屏幕显示
(entupd ename)

参数

ename

需要更新的图元的名称。

返回值

更新的图元 (ename)。如果无可更新，则返回 nil。

样例

假定图形中的第一个图元是有若干个顶点的三维多段线，那么下面的代码可以修改并重新显示多段线：

(setq e1 (entnext))       ; 将 e1 设为多段线的图元名
(setq e2 (entnext e1))    ; 将 e2 设为第一个顶点
(setq ed (entget e2))     ; 将 ed 设为顶点数据
(setq ed
  (subst '(10 1.0 2.0)
    (assoc 10 ed)         ; 将 ed 中顶点的位置
    ed                    ; 修改为 (1,2)
  )
)
(entmod ed)               ; 移动图形中的顶点

(entupd e1)               ; 重生成多段线图元 e1

更新多段线和块

如果使用 entmod 修改了三维（或早期样式）多段线顶点或块属性，则在屏幕上不会更新全部图元。entupd 函数可以在屏幕上更新修改后的多段线或块。以多段线或块的任一部分的图元名为参数，都可以调用该函数。entupd 适用于块和带有属性的多段线，任何图元都可以调用该函数。该函数重生成屏幕上的该图元（包含所有子图元）。
注意 如果对嵌套图元（块内的图元）或包含嵌套图元的块使用 entupd 函数，则有些图元可能不能重生成。要确保顺利完成重生成操作，必须调用 REGEN 命令。

请参见 entget、entmod 和 entnext 函数。