08、VBA和Vista

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

有人让VBA和08在Vista上玩得很好吗？我把我的一些代码从工作的地方带回家，并不断得到灾难性的失败。(msgbox是这么说的，然而Autocad并没有崩溃。)在这一点上，我开始认为Vista对Autocad来说是一件非常糟糕的事情

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

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

joseguia · 发表于 2007-11-10 15:40:07

尝试以管理员身份运行AutoCAD。右键单击快捷方式“以管理员身份运行”。
尝试以其他方式运行Visual BASIC 6是一场铜锣秀，尤其是在尝试编译dlls时（一直收到友好且有启发性的0x80004005错误）。
您可以将快捷方式设置为始终按所述状态运行（在快捷方式的基础上），这让它变得更容易。

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

我做了rigft点击的事情，但这没有帮助。

joseguia · 发表于 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