VLX或者fas文件的命令忘了，怎么办？

panliang9

tianyi1230 发表于 2015-8-16 19:34
师兄写过一个，现在还在用，所有的命令都可以查出来！

发上来给大家共享一下嘛！

海盗曹

这种情况的确经常发生，学习了

么子道

看看 高手的解决办法，学习一下

bookish

看看怎么弄出来的

clinber

这个值得学习

wzg356

看看、学学

123523058

看看      

Gu_xl

1. ;查看C函数名称
   
2. (defun c:tt (/ l fn)
   
3.   (setq l (mapcar 'eval (atoms-family 0)))
   
4.   (if (setq fn (getfiled "" "" "lsp" 4))
   
5.     (progn
   
6.       (load fn)
   
7.       (mapcar
   
8.         'print
   
9.         (vl-remove-if-not
   
10.           '(lambda (x) (= "C:" (substr x 1 2)))
    
11.           (mapcar
    
12.             'VL-PRINC-TO-STRING
    
13.             (vl-remove-if
    
14.               '(lambda (x) (member (eval x) l))
    
15.               (atoms-family 0)
    
16.             )
    
17.           )
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

;查看C函数名称<br /> (defun c:tt (/ l fn)<br />   (setq l (mapcar 'eval (atoms-family 0)))<br />   (if (setq fn (getfiled "" "" "lsp" 4))<br />     (progn<br />       (load fn)<br />       (mapcar<br />         'print<br />         (vl-remove-if-not<br />           '(lambda (x) (= "C:" (substr x 1 2)))<br />           (mapcar<br />             'VL-PRINC-TO-STRING<br />             (vl-remove-if<br />               '(lambda (x) (member (eval x) l))<br />               (atoms-family 0)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lucas_3333

不知在哪看到过, 选择一个FAS或VLX,就可以知道命令名

longer1000

好东西，记忆有时也会出错