求助：修改单行文字的内容

紫罗兰 · 发表于 2010-12-13 15:52:00

看了“开发精彩实例”，自己也是试着编了一段程序，不过不知道怎么回事，没有作用啊。问题可能是出在"For ..next"循环那里，各位大虾能不能帮着看一下啊。
下面是我的部分代码：
Public Sub Text2()
   Dim TextSelect As AcadSelectionSet
   Dim filterType(0) As Integer
   Dim filterData(0)
   Dim adText As AcadText
   On Error Resume Next
   filterType(0) = 0: filterData(0) = "text"
   If Not IsNull(ThisDrawing.SelectionSets.Item("TextSelect")) Then
      Set TextSelect = ThisDrawing.SelectionSets.Item("TextSelect")
      TextSelect.Delete
   End If
   Set TextSelect = ThisDrawing.SelectionSets.Add("TextSelect")
   TextSelect.Select acSelectionSetAll, , , filterType, filterData
   For Each adText In TextSelect
         If InStr(adText.textString, "1.0") Then adText.textString = "1.6"
         If adText.textString = "350" Then adText.textString = "300"
   Next
End Sub

mccad · 发表于 2010-12-13 19:19:00

你想问什么问题，程序你可以设断点调试，也可以通过加入debug.print语句来调试。

紫罗兰 · 发表于 2010-12-14 08:08:00

惭愧，问题没有说完整。我的问题是：就是运行上面的程序后，1.0 没有改成1.6, 350也没有改成300。“开发精彩实例教程”中的源程序我运行后是可以的，很困惑。

紫罗兰 · 发表于 2010-12-14 11:23:00

If InStr(adText.textString, "1.0") Then adText.textString = "1.6"语句的问题弄清楚了，原来我要改的文字是Mtext，不是text。。不好意思。不过If adText.textString = "350" Then adText.textString = "300"怎么还是没作用呢，各位高手帮看一下呀~
Public Sub Text2()
   Dim TextSelect As AcadSelectionSet
   Dim filterType(0) As Integer
   Dim filterData(0)
   Dim adText As AcadMText
   On Error Resume Next
   filterType(0) = 0: filterData(0) = "Mtext"
   If Not IsNull(ThisDrawing.SelectionSets.Item("TextSelect")) Then
      Set TextSelect = ThisDrawing.SelectionSets.Item("TextSelect")
      TextSelect.Delete
   End If
   Set TextSelect = ThisDrawing.SelectionSets.Add("TextSelect")
   TextSelect.Select acSelectionSetAll, , , filterType, filterData
   For Each adText In TextSelect
         If InStr(adText.textString, "1.0") Then adText.textString = "1.6"
         If adText.textString = "350" Then adText.textString = "300"
   Next
End Sub

紫罗兰 · 发表于 2010-12-15 21:23:00

回复
多谢关注~调来调去，If adText.textString = "350" Then adText.textString = "300"确实还没有作用，为什么If InStr(adText.textString, "1.0") Then adText.textString = "1.6"这句就可以呢？