如何屏蔽vlx加载时候的提示文字？

ZZXXQQ · 发表于 2012-4-30 09:48:00

1、先保存原始输出函数的指针；(setq mprinc princ mprint print mprin1 prin1 mprompt prompt)
2、再定义新的函数代替；(defun princ (st) (list)) ... (defun prompt (st) (list))
3、加载指定vlx文件；(load "test.vlx")
4、恢复函数指针；(setq princ mprinc print mprint ptin1 mprin1 prompt mprompt)

tm20038175 · 发表于 2012-4-30 10:56:57

ZZXXQQ 发表于 2012-4-30 09:48
1、先保存原始输出函数的指针；(setq mprinc princ mprint print mprin1 prin1 mprompt prompt)
2、再定义 ...

好高深呀，似乎明白了一些，但具体不知如何实现，如果有个例子就好了………

tm20038175 · 发表于 2012-4-30 11:00:01

好像说的是定义子函数princ代替princ，是这样吗？
还可以这样啊，今天算是长见识了！…

tm20038175 · 发表于 2012-4-30 11:22:23

但是如何在一个图形打开时候获取指针，在函数加载后还原指针呢？这个又是新课题了！

xiaoyingzi · 发表于 2012-4-30 12:40:46

版主已经说得很清楚了！！太

tm20038175 · 发表于 2012-4-30 14:54:20

明白了，谢谢~~~~~~~~~~

ps122hb · 发表于 2012-5-2 08:31:03

厉害，楼主能否分享一下心得

dwg001 · 发表于 2012-5-3 23:52:14

ZZXXQQ 发表于 2012-4-30 09:48
1、先保存原始输出函数的指针；(setq mprinc princ mprint print mprin1 prin1 mprompt prompt)
2、再定义 ...

函数重定义，不错的招数．

artken · 发表于 2012-7-19 15:48:04

如果原程序中有（princ "aaaaaaaa"）和(princ)，好像就会出错

朽木大师 · 发表于 2013-8-27 23:17:21

这个相当要学习要学习啊

账号		自动登录	找回密码
密码			注册

如何屏蔽vlx加载时候的提示文字？

点评

浏览过的版块