[编程申请]：将多个不同字串改为一个相同字串

rodger

能不能编写个小程序将多个不同字串改为一个相同字串。
比如：图中有四个不同的字串，d10@150，d10@180，d12@180，d12@150，我想将前三个字串一次改为最后一个（d12@150），不知可行？
原先asde中曾有这个小程序（asde_css），觉得还是挺有用的。

coolzhb

最初由 rodger 发布
[B]能不能编写个小程序将多个不同字串改为一个相同字串。
比如：图中有四个不同的字串，d10@150，d10@180，d12@180，d12@150，我想将前三个字串一次改为最后一个（d12@150），不知可行？
原先asde中曾有这个小程序（a... [/B]

是的，我就是一直在用css呀！

要不你使用我编的文字修改大师中的整体修改，也能达到同样的效果！

lsjjm

2. 
   
3. (defun c:test ( / nlist nn)
   
4.   (vl-load-com)
   
5.   (prompt "\Select Text:")
   
6.   (setq ss (ssget) n 0)
   
7.   (setq nstr (getstring "Typr in New Text: "))
   
8.   (while (< n (sslength ss))
   
9.     (setq ent (ssname ss n))
   
10.     (setq obj (vlax-ename->vla-object ent))
    
11.     (vla-put-TextString obj nstr)   
    
12.     (setq n (1+ n))
    
13.   )
    
14. );

<br /> (defun c:test ( / nlist nn)<br />   (vl-load-com)<br />   (prompt "\Select Text:")<br />   (setq ss (ssget) n 0)<br />   (setq nstr (getstring "Typr in New Text: "))<br />   (while (< n (sslength ss))<br />     (setq ent (ssname ss n))<br />     (setq obj (vlax-ename->vla-object ent))<br />     (vla-put-TextString obj nstr)   <br />     (setq n (1+ n))<br />   )<br /> );

rodger

最初由 lsjjm 发布
[B](defun c:test ( / nlist nn)
  (vl-load-com)
  (prompt "\Select Text:")
  (setq ss (ssget) n 0)
  (setq nstr (getstring "Typr in New Text: "))
  (while (< n (sslength ss))
    (setq ent (ssname s... [/B]

不好意思，我将你写的程序复制到一个清空的的lsp文件中，能加载，但不知执行什么命令，自己改的lsp文件名不行，还请各位高手告知。

lsjjm

就是函数名TEST呀!

XDSoft

最初由 rodger 发布
[B]能不能编写个小程序将多个不同字串改为一个相同字串。
比如：图中有四个不同的字串，d10@150，d10@180，d12@180，d12@150，我想将前三个字串一次改为最后一个（d12@150），不知可行？
原先asde中曾有这个小程序（a... [/B]

晓东工具箱的文字工具里面已经提供了这些工具。

rodger

to lsjjm 朋友
能否将这个小程序再完善一些，就是将所点取的不同字串改成图中一个已有的字串，而不是手工输入。
to XDSoft 管理员
文字工具中的哪个命令啊？
老生再次谢过！

coolzhb

最初由 XDSoft 发布
[B][QUOTE]最初由 rodger 发布
[B]能不能编写个小程序将多个不同字串改为一个相同字串。
比如：图中有四个不同的字串，d10@150，d10@180，d12@180，d12@150，我想将前三个字串一次改为最后一个（d12@150），不... [/B]

什么命令呀，我怎么没找到！

rodger

coolzhb 朋友：
你能把asde_css这个lsp文件单独拿出来吗？
主要是现在换成tssd了，而我觉得asde_css对我来说是个有用的命令，而asde又挂不到tssd2。5上。

coolzhb

最初由 rodger 发布
[B]coolzhb 朋友：
你能把asde_css这个lsp文件单独拿出来吗？
主要是现在换成tssd了，而我觉得asde_css对我来说是个有用的命令，而asde又挂不到tssd2。5上。 [/B]

朋友，你不知道asde_css是李国杰的东东，我哪有lisp程序呀，你可以用我的文字修改大师呀，在vlisp编程板块，你可以下载！

rodger

你误会我的意思了。
我知道asde是李国杰的，你的文字修改大师我也用过，编的非常好，可是对于我提出的这个问题文字修改大师的功能好像与lsjjm 朋友写的lsp程序是一样的，而我想要的功能是“将所点取的不同字串改成图中一个已有的字串，而不是手工输入。”就是asde_css所具备的功能。
因为我不知道怎样打开arx文件，而我又知道xd论坛里有着大量的象你一样的编程高手，所以我希望能不能将asde_css这个功能分离出来。

coolzhb

最初由 rodger 发布
[B]你误会我的意思了。
我知道asde是李国杰的，你的文字修改大师我也用过，编的非常好，可是对于我提出的这个问题文字修改大师的功能好像与lsjjm 朋友写的lsp程序是一样的，而我想要的功能是“将所点取的不同字串改成?.. [/B]

我的文字修改大师可以实现你说的功能，具体的简化命令为cttrw，选择需要修改的文字，输入新值或回车选定文字即可！你试试看吧。

rodger

谢谢，不知道文字修改大师又升级了。

hnfsf

CY956写的cy－gg也很好用。

lsjjm

最初由 rodger 发布
[B]to lsjjm 朋友
能否将这个小程序再完善一些，就是将所点取的不同字串改成图中一个已有的字串，而不是手工输入...[/B]

(defun c:test ()
  (vl-load-com)
  (setq ent (car (entsel "\nSelect Destination Text: ")))
  (setq dobj (vlax-ename->vla-object ent))
  (setq dtxt (vla-get-textstring dobj))
  (prompt "\nSelect Text: ")
  (setq ss (ssget))                ; or (setq ss (ssget "x"))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-textstring obj dtxt)
    (setq n (1+ n))
  )
)