[求助]：求能在进行文字修改时用通配符的小程序

lxw917 · 发表于 2004-6-27 21:57:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

R14的CHT确实很好,但不能进行利用通配符的文字修改,比如将"(1)"和"(2)"一次修改为"[1]"
和"[2]".

自由的鱼 · 发表于 2004-6-27 23:41:34

只要这一个功能吗？把小栝号改为方栝号？

lxw917 · 发表于 2004-6-28 10:42:38

我只是举例.再如将"T1(1)""T2(2)"两文本一次分别改为"T1" "T2",假如能用通配符,只要将所有"(*)"改为"",即去掉后面的括号.

2002zjp · 发表于 2004-6-28 10:52:46

可以安装ctt

自由的鱼 · 发表于 2004-6-28 18:27:51

最初由 lxw917 发布
[B]我只是举例.再如将"T1(1)""T2(2)"两文本一次分别改为"T1" "T2",假如能用通配符,只要将所有"(*)"改为"",即去掉后面的括号. [/B]

可以实现的！

lxw917 · 发表于 2004-6-28 22:26:50

最初由 2002zjp 发布
[B]可以安装ctt [/B]

ctt是什么东东?

coolzhb · 发表于 2004-6-29 10:56:45

你提的这个问题用我的文字修改大师目前还解决不了，请使用ddchtext，它可以支持通配符查找与替换。又空我将此功能加到我的修改大师中也可以！

xujin70088 · 发表于 2004-6-29 14:26:32

用Bonus附加工具不可以吗？

自由的鱼 · 发表于 2004-6-29 18:20:52

一次将栝号去掉，不容易做到！

lxw917 · 发表于 2004-6-29 19:53:59

最初由 coolzhb 发布
[B]你提的这个问题用我的文字修改大师目前还解决不了，请使用ddchtext，它可以支持通配符查找与替换。又空我将此功能加到我的修改大师中也可以！ [/B]

你这个"ddchtext"是哪个acad版本里的呀,在r14里没有此命令.

自由的鱼 · 发表于 2004-6-30 12:07:35

要不然就分两次处理也可以嘛，因为中间的字符不太好判断！

lxw917 · 发表于 2004-6-30 20:05:27

最初由自由的鱼发布
[B]要不然就分两次处理也可以嘛，因为中间的字符不太好判断！ [/B]

分两次能把中间的字符去掉?

自由的鱼 · 发表于 2004-6-30 21:59:43

最初由 lxw917 发布
[B]
分两次能把中间的字符去掉? [/B]

比如这个（），就需要两次来去掉，因为中间有字符，不好判断，但如果是替换文本的话就一定问题没有！

lxw917 · 发表于 2004-7-1 02:28:46

楼上,关键是()中间的字符也需去掉呀

自由的鱼 · 发表于 2004-7-1 12:02:17

最初由 lxw917 发布
[B]楼上,关键是()中间的字符也需去掉呀 [/B]

这段代码是针对只能你的一个要求，要实现别的栝号的通配，你在程序里改！
Option Explicit

Sub tt()
Dim ent As AcadText
Dim s1 As Integer
Dim s2 As Integer
Dim t As String
For Each ent In ThisDrawing.ModelSpace
s1 = InStr(1, ent.TextString, "(")
s2 = InStr(1, ent.TextString, ")")
t = Mid(ent.TextString, s1, s2 - s1 + 1)
Debug.Print t
ent.TextString = Replace(ent.TextString, t, "")

Next

End Sub

账号		自动登录	找回密码
密码			立即注册

[求助]：求能在进行文字修改时用通配符的小程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子