[求助]未找到主键

giswater

我的一些vba程序经常出现未找到主键错误，有谁遇到过，到底是什么原因！谢谢

songzhi

试举一例先

giswater

如下，更改特定文字的属性

Sub edittext()
  Dim txtmapgis As AcadText
  Dim valtextheight As Double
  Dim txtobject As AcadObject
 
  For Each txtobject In ThisDrawing.ModelSpace
    If txtobject.ObjectName = "AcDbText" Then
    Set txtmapgis = txtobject
    valtextheight = CDbl(txtmapgis.Height) * 0.5
    txtmapgis.Height = valtextheight
    'Debug.Print valtextheight
    If txtmapgis.TextString = "设计" Then
       txtmapgis.color = acRed
       txtmapgis.Rotation = -1.414
       txtmapgis.StyleName = "ddd"   ' ddd为自己新建的文字样式
       txtmapgis.Update

    End If
    End If
  Next
   
End Sub

songzhi

从这个程序上看好象是没有错误的，会不会文字样式在使用前没有创建呢？你不妨加入错误捕获的代码看看。