[求助]哪位高手帮忙写个宏，非常感谢

sumuhu80

有很多的“A/B”形式的多行文字，想把“A/B”替换成“B”，其中A、B都是普通数字

jkbanana

这个也用不着编个宏,在ACAD中用编辑菜单中的查找功能就能办到.查找功能里就能替换.

sumuhu80

用替换功能只能一个一个替换啊，我是说A、B代表很多不同的数值，比如我要把“64/34”“32/21”“44/25”“78/9”“649/53”这5个多行文字都改为“34”“21”“25”“9”“53”

StartMe

看看这样行不行，不过MeStr该是你所说的几个数字，可以反复赋给MeStr进行搜索。

Dim MyPos As Long
Dim EntObj As AcadEntity
Dim ss As AcadSelectionSet

'ss已获得
For Each EntObj In ss
    MyPos = 1
    Do Until MyPos = 0
        If Len(EntObj.TextString) < Len(MeStr) Then Exit Do
        MyPos = 0
        MyPos = InStr(1, EntObj.TextString, MeStr, 1)

        If MyPos <> 0 Then
            EntObj.TextString = Left(EntObj.TextString, MyPos - 1) & Right(EntObj.TextString, Len(EntObj.TextString) - MyPos - Len(MeStr) + 1)
        End If
    Loop
Next

StartMe

StartMe发表于2007-5-23 23:13:00看看这样行不行，不过MeStr该是你所说的几个数字，可以反复赋给MeStr进行搜索。Dim MyPos As LongDim EntObj As AcadEntityDim ss As AcadSelectionSet'ss已获得For Each EntObj In ss &n

还可以用Replace函数替换字符串形式。自己写吧。