社区 › VB › 08、VBA和Vista

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

08、VBA和Vista

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

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是非常基本的
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

joseguia 发表于 2007-11-10 15:49:21

哎呀<对不起，没有线索（比正常情况下更多）。

joseguia 发表于 2007-11-10 15:51:27

有趣的是，在本地窗口中，80%的条目说“没有数据库”，比如VBA突然失去了与dwg的连接。即使Im在Thisdrawing模块中。

joseguia 发表于 2007-11-10 15:58:45

我在计算机Cmdr上运行了您的代码，没有错误（Vista Ultimate + AutoCAD '08）。
？？
（它确实解锁了锁定的视口）。

joseguia 发表于 2007-11-10 16:30:33

我想我有Vista家庭高级版
编辑:已确认

joseguia 发表于 2007-11-10 16:51:39

MP，怎么会？我还没见过这个，但我承认我没有仔细看。我讨厌Vista，但我知道我必须尽快学会它

joseguia 发表于 2007-11-10 16:54:57

刚找到。我们将看看这是否修复了我的代码

查看完整版本: 08、VBA和Vista