CAD文字倒序

tiancao100 · 发表于 2024-5-26 13:55

本帖最后由 tiancao100 于 2024-5-26 14:03 编辑

https://www.bilibili.com/video/B ... 145ded3c6f58c7e8d37

<CommandMethod("TcTxtDaoXu")>
Public Sub TcTxtDaoXu()
On Error Resume Next
Dim acDc As Document = Application.DocumentManager.MdiActiveDocument
Dim acDb As Database = acDc.Database
Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TEXT"), 0)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
Dim acSSPrompt As PromptSelectionResult = acDc.Editor.GetSelection(acSelFtr)
If acSSPrompt.Status = PromptStatus.OK Then '选择成功
Dim acSS As SelectionSet = acSSPrompt.Value
For Each id As ObjectId In acSS.GetObjectIds
Using acTrans As Transaction = acDb.TransactionManager.StartTransaction()
Dim acTxt As DBText = acTrans.GetObject(id, OpenMode.ForWrite)
Dim str As String = acTxt.TextString
Dim strArr As Char() = str.ToCharArray
Array.Reverse(strArr)
Dim NewStr As New String(strArr)
acTxt.TextString = NewStr
acTrans.Commit()
End Using
Next
End If
End Sub

<CommandMethod("TcTxtDaoXu")> 
    Public Sub TcTxtDaoXu() 
        On Error Resume Next 
        Dim acDc As Document = Application.DocumentManager.MdiActiveDocument 
        Dim acDb As Database = acDc.Database 
        Dim acTypValAr(0) As TypedValue 
        acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TEXT"), 0) 
        Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr) 
        Dim acSSPrompt As PromptSelectionResult = acDc.Editor.GetSelection(acSelFtr) 
        If acSSPrompt.Status = PromptStatus.OK Then '选择成功 
            Dim acSS As SelectionSet = acSSPrompt.Value 
            For Each id As ObjectId In acSS.GetObjectIds 
                Using acTrans As Transaction = acDb.TransactionManager.StartTransaction() 
                    Dim acTxt As DBText = acTrans.GetObject(id, OpenMode.ForWrite) 
                    Dim str As String = acTxt.TextString 
                    Dim strArr As Char() = str.ToCharArray 
                    Array.Reverse(strArr) 
                    Dim NewStr As New String(strArr) 
                    acTxt.TextString = NewStr 
                    acTrans.Commit() 
                End Using 
            Next 
        End If 
    End Sub

迷失1786 · 发表于 2024-5-26 14:44

这不是镜像吗？

tiancao100 · 发表于 2024-5-26 15:10

不是，镜像要能从右往左，每个字就又反了

moranyuyan · 发表于 2024-5-27 06:43

tiancao100 发表于 2024-5-26 15:10
不是，镜像要能从右往左，每个字就又反了

什么情况下能用到这种功能

萧萧生 · 发表于 2024-5-27 07:22

不知怎么用

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

[基础] CAD文字倒序

评分