如何在AutoCad中查看已经加载的LISP程序

dinosaurhxe

被别人问到这么一个问题，不知如何作答，请教各位高手。

如何在AutoCAD中查看已经加载的LISP程序，并且把某些LISP程序从加载中去掉呢？

lead009

國語不通關

dinosaurhxe

晕，他居然继续问我能否看到加载了哪些函数
要是函数都被看到了，大家就不用编译，不用加密了。

snddd2000

命令: _appload

cjjh8301

ap -> 内容

chpmould

不知查看注册表是否可以...

dinosaurhxe2

cjjh8301 发表于 2011-5-28 14:47
ap -> 内容

还真能卸啊！感谢，又学一招！

仲文玉

cjjh8301 发表于 2011-5-28 14:47
ap -> 内容

有些不是用ap方式加载的，内容框内还是看不到的

xiaxiang

2. 
   
3. (defun C:GetCmdl (/ cmdl fid)
   
4.   (setq cmdl (acad_strlsort (atoms-family 1)))
   
5.   (setq fid (open "c:\\cadfuns.txt" "w"))
   
6.   (foreach n cmdl
   
7.     (princ n fid)
   
8.     (princ "\t\t=" fid)
   
9.     (prin1 (eval(read n)) fid)
   
10.     (princ "\n" fid)
    
11.   ) ;_ 结束foreach
    
12.   (close fid)
    
13.   (startapp "notepad.exe" "c:\\cadfuns.txt")
    
14. ) ;_ 结束defun
    
15. (C:GetCmdl)

<br /> (defun C:GetCmdl (/ cmdl fid)<br />   (setq cmdl (acad_strlsort (atoms-family 1)))<br />   (setq fid (open "c:\\cadfuns.txt" "w"))<br />   (foreach n cmdl<br />     (princ n fid)<br />     (princ "\t\t=" fid)<br />     (prin1 (eval(read n)) fid)<br />     (princ "\n" fid)<br />   ) ;_ 结束foreach<br />   (close fid)<br />   (startapp "notepad.exe" "c:\\cadfuns.txt")<br /> ) ;_ 结束defun<br /> (C:GetCmdl)

变量，函数，可执行命令。。。出来一大堆。慢慢找吧。

egos

编译过的函数是都能看到的 8楼的可以查看所有函数和命令