字符与字符串的问题

gzhhongquan

Sub txt()

Dim returnObj As AcadObject
    Dim basePnt As Variant

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
   
    Dim holdStr As AcadText, Str As AcadText
  
        '获得图形中文字对象位于查找字符串之前的字符串
        holdStr = Left(returnObj, 3)
        '获得文字对象位于查找字符串之后的字符串
       Str = Mid(returnObj, 4)
      
    MsgBox "The left texts are: " & holdStr.TextString, , "GetEntity Example"
 
End Sub

为什么MsgBox最后不出来呢，是不是Left只截取字符，不是一个字符串，所以不能显示。

42272846

首先，你的目的是什么？

看你的意思，是找出所选文本左边三位与三位后边的文本。

但是acadtext不是这么用的，他是一个图元文件，不能直接给它值的。要实现你这个功能，你只要定义它为string就可以了。

还有语句你不能直接使用returnObj，因为它是一个对象，你应该用它的textstring属性。

你说的原因不对。字符操作函数left，mid，right等都返回了字符串，和以前的字符串是一样的对象。

Sub txt()
Dim returnObj As AcadObject
    Dim basePnt As Variant

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
   
    Dim holdStr As String, Str As String
  
        '获得图形中文字对象位于查找字符串之前的字符串
        holdStr = Left(returnObj.TextString, 3)
        '获得文字对象位于查找字符串之后的字符串
       Str = Mid(returnObj.TextString, 4)
    MsgBox "The left texts are:'" & holdStr & "'", , "GetEntity Example"
 
End Sub

gzhhongquan

你说的很对，我试了好几次也慢慢的有这个想法了，就是添加监视，然后看它的值，结果发现都是“”和空值，我就想是中间环节出了问题。看你给我的结果就是我没有弄清楚对象的类型和属性，还是要多看看书。谢谢了。