社区 › VB › SysVarChanged事件？

Jeff_M 发表于 2008-1-11 17:00:44

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim strUser As String
      Select Case UCase(CommandName)
      Case Is = "BEDIT"
            strUser = UCase(Environ("USERNAME"))
            Select Case strUser
            Case "UA02038"
            Case "UA03347"
            Case Else
                  MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical
                  SendKeys "{ESC}"
            End Select
      Case Is = "-BEDIT"
            strUser = UCase(Environ("USERNAME"))
            Select Case strUser
            Case "UA02038"
            Case "UA03347"
            Case Else
                  MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical
      'SendKeys "{ESC}"
                  ThisDrawing.SendCommand "bclose" & vbCr
            End Select
      Case Is = "COMMANDLINE"
            Set AutoCAD = ThisDrawing.Application
      End Select
End Sub

Jeff_M 发表于 2008-1-11 17:03:17

啊，我很喜欢这个东西，哈哈，这是我到目前为止所拥有的一切，谢谢
标记Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
Select Case SysvarName
Case Is = "WSCURRENT"
Case Is = "Map Classic"
   MsgBox "Do something!"
End Select
End Sub

Jeff_M 发表于 2008-1-11 17:05:37

你想做什么&nbsp；我需要更多的信息

Jeff_M 发表于 2008-1-11 17:05:42

酷！看起来不错
我敢打赌你的用户喜欢这个：
MsgBox "B-Edit has been removed," & vbCrLf & _
                         "Contact Ron Roach or David Hall", vbCritical

Jeff_M 发表于 2008-1-11 17:10:08

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
Select Case SysvarName
Case Is = "WSCURRENT"
Dim N As String
   N = GetVariable("WSCURRENT")
   If N = "Map Classic" Then
   MsgBox "Do something"
   End If
End Select
End Sub

查看完整版本: SysVarChanged事件？