08、VBA和Vista

DinØsaur · 发表于 2007-11-10 15:36:44

有没有人让VBA和08在Vista上玩得很好&nbsp；我把一些工作中的代码带回家，不断地遇到灾难性的失败。（msgbox就是这么说的，但Autocad不会崩溃。）；本人&#039；我开始认为Vista在这一点上对Autocad来说真的是件坏事

王少爷 · 发表于 2007-11-10 15:40:07

尝试以管理员身份运行AutoCAD。右键单击快捷方式“；以管理员身份运行
试图以其他方式运行Visual BASIC 6是一场盛大的表演，尤其是在尝试编译DLL时（不断得到一个友好且有启发性的0x80004005错误）
您可以将快捷方式设置为始终按所述状态运行（按快捷方式逐个运行），这使它变得更容易。

流星 · 发表于 2007-11-10 15:46:19

我做了rigft click的事情，但没有#039；我帮不上忙

流星 · 发表于 2007-11-10 15:46:55

sub是非常基本的

copy

Public Sub VPLock()
      On Error GoTo Err_Control
      Dim vp As AcadPViewport
      Dim gpCode(0) As Integer
      Dim dataValue(0) As Variant
      Dim objSelSet As AcadSelectionSet
      gpCode(0) = 0
      dataValue(0) = "VIEWPORT"
      Set objSelSet = ThisDrawing.SelectionSets.Add("VPL")
      objSelSet.Select acSelectionSetAll, , , gpCode, dataValue
      For Each vp In objSelSet
            If vp.DisplayLocked = True Then
                  vp.DisplayLocked = False
            End If
      Next
Exit_Here:
      Exit Sub
Err_Control:
      Select Case Err.Number
      Case "-2145320851"
            ThisDrawing.SelectionSets.Item("VPL").Delete
            Err.Clear
            Resume
      Case Else
            MsgBox Err.Number & Err.Description
            Err.Clear
            Resume Exit_Here
      End Select
End Sub