试试呢
- ;;;找出指定fas程序文件中的所有命令(C:开头的函数)。
- ;;;提示:fas可能已加载。测试文件见附件test.fas。
- ;;;xshrimp
- (defun c:Compare( / #newatoms #oldatoms file n ret str x)
- (vl-load-com)
- (defun atoms(str)
- (vl-remove-if-not
- (function(lambda(n)(wcmatch n str)))
- (atoms-family 1)
- )
- )
- (setq #oldatoms (mapcar '(lambda(x)(list x(eval(read x))))(atoms "C:*")))
- (if (setq file (getfiled "选择加载文件" "" "fas;lsp;vlx;arx" 2 ))
- (progn
- (load file "")
- (setq #newatoms(mapcar '(lambda(x)(list x(eval(read x))))(atoms "C:*")))
- (setq ret(vl-remove 'nil (mapcar '(lambda(x)(if(equal(assoc(car x)#oldatoms)x)nil (car x)))#newatoms)))
- (princ ret)
- )
- )
- (princ)
- )
|