社区 › VB › 想要利用objdbx技术实现文字的查找和替换，然后运行到这边的时候错了，求帮助啊，拜托

wspoikl 发表于 2015-8-11 15:28:00

想要利用objdbx技术实现文字的查找和替换，然后运行到这边的时候错了，求帮助啊，拜托

Private Sub ReplaceTextInDwg(ByVal strDwgName As String, ByVal strFind As String, ByVal strReplace As String)
'ReplaceTextInDwg函数用于打开指定的图形，用objdbx技术来完成文字的查找和替换
objDBX.Open strDwgName
Dim ent As AcadEntity
For Each ent In objDBX.ModelSpace
   If TypeOf ent Is AcadText Or TypeOf ent Is AcadMText Then
      With ent
         If InStr(.TextStrig, strFind) Then .TextString = ReplaceStr(.TextString, strFind, strReplace, False)
         End With
      End If
    Next ent
    objDBX.SaveAs strDwgName
End Sub
运行到 If InStr(.TextStrig, strFind) Then这里的时候报错，有哪个高手可以告诉我原因吗？

zzyong00 发表于 2015-8-13 11:55:00

断点调试，看此时ent是什么对象

查看完整版本: 想要利用objdbx技术实现文字的查找和替换，然后运行到这边的时候错了，求帮助啊，拜托