[编程申请]：能将字符AAAA替换成BBB

lengliqun

求R14下可用之LSP程序，能框选。
能将字符AAAA替换成BBB，希望能在LSP程序中含有AAAA与BBB字符，这样只要加载，输入命令回车即可完成替换操作，
我可不想输入命令后还要输入AAAA与BBB，便于我以后将字符AAAA与BBB修改成别的字符。

自由的鱼

是r14.01版吗？如果是的话我用VBA给你写！

zksjll

用VB连接CAD,然后完成替换后编译成exe,做成CAD的命令,调用就行了!!*-*9

自由的鱼

最初由 zksjll 发布
[B]用VB连接CAD,然后完成替换后编译成exe,做成CAD的命令,调用就行了!!*-*9 [/B]

老兄，你这说了跟没说差不多！

星期八

“文字修改大师”可以阿，搜索一下论坛就可以找到。

lengliqun

是r14版，它与是r14.01版有区别吗！VBA不能用在R14上吗，我安装R2002中文版可以吗，若可以，给我个VBA罢。 我不知道求这个LSP程序是否要求太高了，可我真的很想拥有啊，大家帮帮我啦，先谢啦。

lsjjm

1. 要学会利用论坛搜索, 论坛里有太多字符替换内容的贴子!
2. VBA只能用在R14.01和以后的版本

lengliqun

我搜索过所有的“替换”项，均为输入命令，回车，输入旧字符，回车，输入新字符，回车，成功替换。
而我要求的是：输入命令，回车，替换成功。因为我要求的旧字符与新字符都出现在大侠你编给我的程序里啊。
大侠们帮帮我啦，我找她已经三秋了。lsp程序最好啦，VBA都行。谢谢。

自由的鱼

Sub tt()
Dim i As Integer
Dim ent As AcadText
For Each ent In ThisDrawing.ModelSpace
    If ent.TextString = "AAAA" Then
        ent.TextString = "BBB"
        ent.Update
    End If
Next
MsgBox "替换完成"
End Sub

lsjjm

LISP for R14:
(defun c:test ()
  (setq ss (ssget '((0 . "*TEXT")(1 . "AAAA"))))
  (setq n 0)
  (while (< n (sslength ss))
    (setq eg (entget (ssname ss n)))
    (setq eg (subst (cons 1 "BBBB")(assoc 1 eg) eg))
    (entmod eg)
    (setq n (1+ n))
  )
)

zlgang

最初由 lengliqun 发布
[B]是r14版，它与是r14.01版有区别吗！VBA不能用在R14上吗，我安装R2002中文版可以吗，若可以，给我个VBA罢。 我不知道求这个LSP程序是否要求太高了，可我真的很想拥有啊，大家帮帮我啦，先谢啦。 [/B]

2000以上版本 就有查找替换功能 版本越高文字编辑的功能也越强大 在2005一很接近WORD了 所有的软件的文字编辑功能都在象WORD靠拢 最好什么时候可以把WODR作为插件装到各个软件里

雪山飞狐(lzh)

两个程序一个毛病，字符中含有“AAAA”不能替换（如“FAAAA”），如果有其他实体，鱼的程序根本不能运行
贴一个
[Code]Sub TlsReplace()
On Error GoTo ErrHandle
Dim ent As AcadEntity
Dim ft(1) As Integer, fd(1)
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.SelectionSets.Add("*TlsReplace*")
ft(0) = 0: fd(0) = "Text,MText"
ft(1) = 1: fd(1) = "*AAAA*"
ss.Select acSelectionSetAll, , , ft, fd
For Each ent In ss
ent.TextString = Replace(ent.TextString, "AAAA", "BBB")
Next
MsgBox "替换完成"
ErrHandle:
ss.Delete
End Sub[/Code]

cnnets

最初由 lengliqun 发布
[B]求R14下可用之LSP程序，能框选。
能将字符AAAA替换成BBB，希望能在LSP程序中含有AAAA与BBB字符，这样只要加载，输入命令回车即可完成替换操作，
我可不想输入命令后还要输入AAAA与BBB，便于我以后将字符AAAA与BBB?.. [/B]

不用另编程，在R14中可用命令“FIND”就可以了。

自由的鱼

最初由 lzh741206 发布
[B]两个程序一个毛病，字符中含有“AAAA”不能替换（如“FAAAA”），如果有其他实体，鱼的程序根本不能运行
贴一个
[Code]Sub TlsReplace()
On Error GoTo ErrHandle
Dim ent As AcadEntity
Dim ft(1) As Integer,... [/B]

含有AAAA的字串不用替换！

陌生人

FIND 已经够用了，不是很有必要为了这个编程