用LISP跟踪命令的使用

newer

问题：
I'm programming in LISP and now would like to track how many commands are being used within an AutoCAD session. How could I do it?

解决：
You can find samples about reactors in the LISP Help file, but here is the exact code you would need.

In this case we'll only track commands that actually ended, not including commands that got started and then cancelled - i.e. editor reactor’s commandEnded

When the document is closed we pop up a dialog showing how many commands were used in it since it got opened.

You would need to set up acaddoc.lsp so that it runs the following code for each opened document:

(defun editor-beginClose (reactor-object parameter-list /)
; instead of an alert box write the data somewhere
(alert (strcat "Command count is " (itoa g-command-count)))
)

(defun editor-commandEnded (reactor-object parameter-list /)
(setq g-command-count (1+ g-command-count))
)

(defun StartWatching (/)
; we need the ActiveX system for this
(vl-load-com)
; set the counter
(setq g-command-count 0)
; start the event watcher
(vlr-editor-reactor nil '((:vlr-beginClose . editor-beginClose)(:vlr-commandEnded . editor-commandEnded)))
; don't print anything to the screen
(princ)
)

; this should be started for each opened drawing
(StartWatching)

/db_自贡黄明儒_

g-command-count这个数计来有什么用处？

newer

/db_自贡黄明儒_ 发表于 2016-5-17 10:42

全局变量，用来记录文档关闭前运行过的命令的个数。贴中例子，关闭文档的时候，弹出对话框告知。

yoyoho

谢谢 N版分享学习了!

xvjiex

感谢分享用LISP跟踪命令的使用