社区 › VB › 08、VBA和Vista

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

08、VBA和Vista

有没有人让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是非常基本的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

双河农场 发表于 2007-11-10 15:49:21

哎呀
对不起，没有线索（比通常情况下要多）。

北京顽主吧 发表于 2007-11-10 15:51:27

有趣的是，在本地窗口中，80%的条目都会说“是的”；“没有数据库”；像VBA突然失去了与dwg的连接&nbsp；即使我在Thisdrawing模块中。

人过三十 发表于 2007-11-10 15:58:45

我在机器Cmdr上运行了您的代码，没有出现错误（Vista Ultimate+AutoCAD#039；08）
是吗
（它确实解锁了锁定的视口）。

桥人 发表于 2007-11-10 16:30:33

我想我有Vista Home Premium编辑：已确认

火影灌水 发表于 2007-11-10 16:51:39

议员，怎么做&nbsp；我没有#039；我在任何地方都没见过，但我承认我没有#039；t努力地看着&nbsp；我讨厌Vista，但我知道我必须尽快学会

爱粽不粽 发表于 2007-11-10 16:54:57

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

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