关于用entdel函数编个简单的隐藏工具!!!
 

关于用entdel函数编个简单的隐藏工具!!!
www.dimcax.com
关于用entdel函数编个简单的隐藏工具!!!
请问各位大侠，如何用entdel函数编个简单的隐藏及恢复工具!!!
程序这样写为什么不行？本人刚刚开始研究lisp，还很菜，请大侠多多指教!
(defun c:hy()
(setq e1 (ssget))
(command "entdel" e1))
我的本意就是在命令下输入hy 就会提示选择对象，然后用entdel来删掉选择的对象，
如果再按下hy就又可以恢复刚才选择的对象!
d
呵呵，有新意。“双重否定等于肯定”
问题是如何记住被删除的东东。
建议使用全局变量。
好好学习cad，天天向上搞设计。
恢复上一次删除的对象,用cad的隐藏命令oops
该命令只能恢复一次.
d
有没搞错～
图元本来就有这么个隐藏的属性来着～
犯的着来个“新发明”哈～
而且这个“发明”的附加问题多的不能再多了～
比如带反应器的图元～
嘿嘿！有空去我博客去玩玩哦！
这个以前有玩过,我用一个盒子来作为形容装入取出的
执行命令udel之后
输入任意数字编号可以临时删除 如果该编号里面有删除过就进行还原
可以删除后执行任意操作在需要的时候还原(仅当前图使用过程中)
如果内存够大 可以放很多很多个.....不过你最好记得每个编号盒子临时删除的图元才行

通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
这样试下.
(defun c:hy()
(if (not el)(setq e1 (ssget)))
(command "entdel" e1))