社区 › VB › SysVarChanged事件？

Jeff_M 发表于 2008-1-11 12:36:03

SysVarChanged事件？

有人编写过系统变量更改事件吗？
我似乎遗漏了什么
如果ACAD成功识别出我已经更改了工作区，我会尝试做些什么。
有什么想法吗？
谢谢！标记Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
Select Case SysvarName
Case Is = "wscurrent"
Case newVal = "Test"
MsgBox "Anything?"
End Select
End Sub

**** Hidden Message *****

Jeff_M 发表于 2008-1-11 13:40:53

SysvarName将总是大写，因此您的测试会失败。此外，您不能设置newValue，这是一个传递给处理程序的值，告诉您该值已被更改为什么。
试试这个(没有测试，因为我现在没有运行2008)

Private Sub ACADApp_SysVarChanged(ByVal SysvarName As String, ByVal newVal As Variant)
Select Case SysvarName
Case Is = "WSCURRENT"
       Msgbox "New value for WSCURRENT is " & newVal
End Select
End Sub

Jeff_M 发表于 2008-1-11 14:01:14

Ahhhhhh
说得好，或者只是再次运行正在访问acad对象的启动宏。
是的，先生！做到了！
酷！谢谢杰夫！标记

Jeff_M 发表于 2008-1-11 14:19:42

Jeff
这是我几年前为你写的一个有趣的故事
非常有趣！哈哈
把这个放在你的开始共享活动上
Mark
Select Case CommandName
Case Is = "LINE"
MsgBox "We apologize for the inconvenience but AutoCAD has temporarily ran out of lines" & vbCrLf & _
"Please try again", vbCritical
SendKeys "{ESC}"
End Select

Jeff_M 发表于 2008-1-11 14:29:48

啊啊啊，
我用这个东西吸吮哈哈
，这是我迄今为止所拥有的一切 CM
谢谢！
马克
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 15:25:52

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

查看完整版本: SysVarChanged事件？