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

sicky111

G版的代码很好用，但有时候查不到命令，难道跟文件大小或者命令数量有关？

sachindkini

see the hidden text

yjycad

非常实用有东东，学学

hnsj2006

[em0一样的问题

xufulai

多谢分享了！

zhim0323

我就来看看

xyp1964

2. (defun c:tt (/ lst1 lst2)
   
3.   (if (setq fl (getfiled "请选择程序文件" "" "vlx;fas;*" 8))
   
4.     (progn
   
5.       (setq lst1 (vl-remove-if-not '(lambda (x) (= (substr x 1 2) "C:"))(atoms-family 1)))
   
6.       (load fl)
   
7.       (setq lst2 (vl-remove-if-not '(lambda (x) (= (substr x 1 2) "C:"))(atoms-family 1)))
   
8.       (princ "\n命令: ")
   
9.       (foreach a (vl-remove-if '(lambda (x) (member x lst1)) lst2)
   
10.         (princ "\n")
    
11.         (princ (substr a 3))
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt (/ lst1 lst2)<br />   (if (setq fl (getfiled "请选择程序文件" "" "vlx;fas;*" 8))<br />     (progn<br />       (setq lst1 (vl-remove-if-not '(lambda (x) (= (substr x 1 2) "C:"))(atoms-family 1)))<br />       (load fl)<br />       (setq lst2 (vl-remove-if-not '(lambda (x) (= (substr x 1 2) "C:"))(atoms-family 1)))<br />       (princ "\n命令: ")<br />       (foreach a (vl-remove-if '(lambda (x) (member x lst1)) lst2)<br />         (princ "\n")<br />         (princ (substr a 3))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lucas_3333

xyp1964 发表于 2015-8-28 13:30

院长,写个 判断程序加载前后, 获取程序的全局变量列表吧
(or *atoms* (setq *atoms* (atoms-family 1)))
(setq atoms2 (vl-remove-if '(lambda (x) (vl-position x *atoms*)) (atoms-family 1)))

llsheng_73

lucas_3333 发表于 2015-8-28 13:47
院长,写个 判断程序加载前后, 获取程序的全局变量列表吧
(or *atoms* (setq *atoms* (atoms-family 1))) ...

全局变量它不一定能在加载后都能表现出来
比如
(setq a 5)
(defun c:tt()
  (setq b(* 2 a))
)
这里有两个全局变量，可加载前后只有一个能被检测出来，另一个需要运行程序后才能被检测到吧？

lucas_3333

llsheng_73 发表于 2015-8-29 08:49
全局变量它不一定能在加载后都能表现出来
比如
(setq a 5)

当然是要运行程序后才能检测出全部的全局变量, 所以程序中要有加载程序与执行程序这两步