查看单个帖子
旧 2009-04-26, 10:42 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 求一段小lsp让我设置好捕捉后,永不关掉!

求一段小lsp让我设置好捕捉后,永不关掉!
www.dimcax.com

我也是新来的,懂的不多,呵呵。
新手上路,请多指点。
d
我想知道反应器是如何用的
d
d
问题已解决,
d
(vl-load-com)
(vl-load-reactors)
(if (not (equal (type resetosmode_lisp_end) 'vlr-lisp-reactor))
(setq resetosmode_lisp_end (vlr-lisp-reactor nil '((:vlr-lispended . resetosmode))))
)
(if (not (equal (type resetosmode_lisp_cancel) 'vlr-lisp-reactor))
(setq resetosmode_lisp_cancel (vlr-lisp-reactor nil '((:vlr-lispcancelled . resetosmode))))
)
(defun resetosmode(rec_a rec_b)
(if (/= (getvar "osmode") 4327) (setvar "osmode" 4327)) (princ)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)