英雄无敌能向你请教个问题吗？

bios8086 · 发表于 2008-5-14 18:57:00

英雄无敌
函数“TextString”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。
Dim textObj As AcadText
textObj = ThisDrawing.ModelSpace.Item(0)
         text = textObj.TextString
         MsgBox("The TextString property equals: " & text, vbInformation, "TextString 示例")
取不到  好像取不到对象！

azjmjsj · 发表于 2008-5-14 21:07:00

Dim textObj As AcadEntity
Dim text1 As AcadText
Dim str As String
set textObj = ThisDrawing.ModelSpace.Item(0)
If textObj.ObjectName = "AcDbText" Then
Set text1 = textObj
str = text1.TextString
MsgBox("The TextString property equals: " & str, vbInformation, "TextString 示例")
End If

英雄无敌 · 发表于 2008-5-15 08:19:00

就像2楼说的一样，你模型空间中的第0个图元不一定是一个文字。

bios8086 · 发表于 2008-5-15 17:08:00

      Dim i As Integer
      Dim textObj As AcadEntity
      Dim text1 As AcadText
      Dim str As String
      Dim count As Integer
      count = ThisDrawing.ModelSpace.Count
      Try
         For i = 0 To i = count - 1
            textObj = ThisDrawing.ModelSpace.Item(i)
            If textObj.ObjectName = "AcDbText" Then
                  text1 = textObj
                  str = text1.TextString
                  MsgBox("The TextString property equals: " & str, vbInformation, "TextString 示例")
            End If
         Next
      Catch
         MsgBox("出错")
      End Try
我都改成这样了，可是还是抛出异常！

英雄无敌 · 发表于 2008-5-15 22:41:00

我不知道你的代码是怎么来的，try是什么？cathc又是什么？
把你的代码改了一下：
Sub test()
Dim i As Integer
Dim textObj As AcadEntity
Dim text1 As AcadText
Dim str As String
Dim count As Integer
count = ThisDrawing.ModelSpace.count

      For i = 0 To count - 1
         Set textObj = ThisDrawing.ModelSpace.Item(i)
         If textObj.ObjectName = "AcDbText" Then
            Set text1 = textObj
            str = text1.TextString
            MsgBox "The TextString property equals: " & str, vbInformation, "TextString 示例"
         End If
      Next
End Sub

bios8086 · 发表于 2008-5-20 19:12:00

try是什么？cathch又是什么？是捕捉异常

bios8086 · 发表于 2008-5-20 19:42:00

我运行会抛出异常！Catch
MsgBox("出错")

bios8086 · 发表于 2008-5-21 06:51:00

      Dim entry As AcadEntity
      Dim entObjectID As Long
For Each entry In ThisDrawing.ModelSpace
            MsgBox(entry.ObjectName.ToString())
            entObjectID = entry.ObjectID
            entry.Highlight(True)
            MsgBox("The ObjectID of this object is " & entObjectID, vbInformation, "ObjectID 示例")
            entry.Highlight(False)
         Next
根本无法运行到FOR循环里面！

bios8086 · 发表于 2008-5-21 07:30:00

我刚测试后发现，我根本无法得到模型空间的图元对象。运行这段代码得到的结果是There are no objects in model space。
      If ThisDrawing.ModelSpace.Count  0 Then
         entry = ThisDrawing.ModelSpace.Item(0)
         MsgBox(entry.ObjectName + _
            " is the first entity in model space.")
      Else
         MsgBox("There are no objects in model space.")
      End If
后来我发现了问题的所在，ThisDrawing = acadapp.ActiveDocument 得到的是当前被打开的活动文档，如果文档没有被打开，是无法得到的，现在请问有什么办法在不用CAD打开这个DWG文件的情况下，得到这个DWG文件的文档吗？

sailorcwx · 发表于 2008-5-21 11:02:00

搞清楚VBA、VB、VB.net
try cath end try是VB.net中的错误处理

英雄无敌能向你请教个问题吗？

发表回复

精选推荐