导致 VB 错误的 RText

DaveW · 发表于 2006-4-18 08:47:24

大家好，
我有一个例程，它运行带有裁剪平面的dview，然后还运行section命令。然后，由sectionsolid命令创建的区域图元被移动到一个单独的动态命名并按顺序编号的图层中。我已尝试为该绘图、图纸空间和其他几个要素中的每个要素创建一个选择集。

copy

Dim sHandle As String
Dim itm As AcadObject
Dim SkipPortHandle As String
Dim testvp As AcadViewports
Dim ActLayout As AcadLayout
Dim DOC As AcadDocument
    
    Set ActLayout = thisdrawing.ActiveLayout
    
    thisdrawing.ActiveSpace = acPaperSpace
    thisdrawing.MSpace = True
    Dim pviewportObj2 As AcadPViewport
    Dim testvp2 As AcadPViewport
    Dim currView As AcadPViewport
    Dim testvp3 As AcadPViewport
    
   'gets the viewport handle
    On Error Resume Next
    Set ssetObj = thisdrawing.SelectionSets.Add("prev")
    On Error GoTo 0
    ssetObj.Select acSelectionSetPrevious
 
    thisdrawing.ActivePViewport = thisdrawing.ActivePViewport
 
    SkipPortHandle = thisdrawing.ActivePViewport.Handle
  
    'gets all the layout names
    Dim Layouts As AcadLayouts, Layout As AcadLayout
    Dim LayoutName2 As AcadLayout
    Set Layouts = thisdrawing.Layouts
    
    thisdrawing.MSpace = False
    
    For Each Layout In Layouts
      If Layout.Name  "Model" Then
        ZoomAll
        thisdrawing.ActiveLayout = Layout
        ZoomAll
        
        'ssetObj.Clear
        'ssetObj.Select acSelectionSetAll
        
            'For Each Ent In ssetObj
            
            For Each Ent In thisdrawing.PaperSpace
              If LCase(Ent.ObjectName) = "acdbviewport" Then
                 If Ent.Handle  SkipPortHandle Then
                 
                 ZoomAll
                   If LCase(Ent.Layer) = "vports" Then
                    sHandle = Ent.Handle
                    Set itm = thisdrawing.HandleToObject(sHandle)
                    
                    
                    ZoomAll
                    Set currView = itm
                    thisdrawing.MSpace = True
                    thisdrawing.ActivePViewport = currView
                    thisdrawing.SendCommand "vplayer" & " " & "f" & " " & layername2 _ 
                    & vbCr & "current" & vbCr & vbCr
                    currView.Update
                   
                   End If
                 End If
              End If
            Next
     
      End If
    Next
On Error GoTo 0
thisdrawing.ActiveLayout = ActLayout
thisdrawing.MSpace = True
thisdrawing.ActivePViewport = thisdrawing.HandleToObject(SkipPortHandle)
thisdrawing.SendCommand "vplayer" & " " & "t" & " " & layername2 _
& vbCr & "current" & vbCr & vbCr
thisdrawing.SendCommand "pspace" & vbCr
thisdrawing.Regen acAllViewports

在上面的代码中，每当它遇到paperspace中的任何RText时，都会给出一个类错误。这是Autodesk的一个已知问题。
关于如何解决这个问题，有什么建议吗？我喜欢使用RText，不希望以后不得不添加它或者要求我的客户也这样做。
谢谢您，
David wishen grad
mill lister，Inc.
PS。亚历克斯在Woodweb上发布了这个网站，所以我想我应该去看看。我仍然不明白为什么他还不是顾客。我真的不知道他到底是做什么的，而且许多细节设计人员没有选择他们使用什么软件的权利。如果你看到这封信，亚历克斯，有机会给我打个电话。你是个相当聪明的家伙。我想了解你的需求是什么。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Arizona · 发表于 2006-4-18 11:19:40

copy

Sub RTextErrContol()
    Dim ent As AcadEntity
        On Error GoTo Err_Control
    
    For Each ent In ThisDrawing.PaperSpace
        Debug.Print ent.ObjectName
    Next
    
Exit_Here:
    Exit Sub
Err_Control:
    Select Case Err.Number
        Case -2147221231   'Automation error
            Resume Next
        Case Else
            MsgBox Err.Description
            Err.Clear
            Resume Exit_Here
    End Select
End Sub

Bryco · 发表于 2006-4-18 12:39:27

是的，我知道。我从来没有考虑过所有的选择和问题，但是我知道这个可以很好地处理所有事情。下一个onerror简历是由on error goto 0处理的。我之前已经把那些东西拉回来放回去了。总有一天我会正确地编码它，但是它不会因为我知道当它还不存在并且删除了on错误时如何干净地开始。对我来说，用正确的方式来做会更容易一点，你的方式，我只是现在没有时间去理解。我知道的足够多，它最终会与我合得来。
谢谢你的回复，
戴夫