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

CAD文字倒序

本帖最后由 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


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

这不是镜像吗？:lol

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

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

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

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

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

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

不知怎么用

tanxindong 发表于 2025-1-22 16:31:15

这是VBA编写的，要加载VBA模块

gzxl 发表于 2025-1-22 16:49:57

vb.net vb vba 这三种貌似有点像，但也不是看到就说是vba吧
页: [1]
查看完整版本: CAD文字倒序