SysVarChanged事件？

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

有人编程过系统变量变化事件吗
如果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

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

SysvarName将始终使用大写字母，因此测试失败。此外，您不能设置newValue，这是传递给处理程序的值，告诉您该值已更改为什么。请尝试此操作（未测试，因为我目前没有运行2008）

copy

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

嘿，杰夫，那也不行。嗯，还有其他想法吗
谢谢
标记

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

Mark，
我必须关闭Acad并重新启动它，以使事件开始工作。刚刚测试了我在C3D2008中发布的代码，结果如下：

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

好的，或者再次运行正在访问acad对象的启动宏
是的，先生！成功了
酷！谢谢杰夫
标记

Jeff_M · 发表于 2008-1-11 15:25:52

杰夫，这是我几年前写的一篇有趣的文章，非常有趣！LOL把这个放在你的Begin Commnad事件上

copy

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