监控系统变量的变化 -

程序代码：


<CommandMethod("VariableChanged")> _
        Public Sub VariableChanged()
            AddHandler Application.SystemVariableChanged, New Autodesk.AutoCAD.ApplicationServices.SystemVariableChangedEventHandler(AddressOf SystemVariableChanged)
        End Sub
        Private Sub SystemVariableChanged(ByVal sender As Object, ByVal e As Autodesk.AutoCAD.ApplicationServices.SystemVariableChangedEventArgs)
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            doc.Editor.WriteMessage("变量名称: {0}" & vbLf, e.Name)
            If e.Name = "WSCURRENT" Then
              ‘’
            End If
        End Sub

[本日志由 tiancao1001 于 2019-05-26 04:34 PM 编辑]

分享到： QQ空间新浪微博腾讯微博微信更多

暂时没有评论

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：注册？验证：