[求助]求一函数,能返回刚刚加载的LISP程序所用到的所有变量及变量的类型?!

jaminth

如题,请高手解决!!!

caoyin

(mapcar '(lambda (v)(list v (type v)))(atoms-family 0))

返回所用变量及函数->((变量1 变量1的类型)(变量2 变量2的类型) ... (变量n 变量n的类型))

caoyin

(vl-remove-if '(lambda (x)
                 (= (substr (vl-princ-to-string (vl-symbol-value x))1 6) "#<SUBR")
               )
              (atoms-family 0)
)

返回所有变量

jaminth

ths,但是不能得到我想要的结果!

比如我刚加载了一个LISP程序,,,

程序中有一自定义变量...(setq pt (getpoint "\n指定第一点:"))

想得到的返回结果是这样的,不知能不能实现!!高手帮帮忙!

(pt LIST)-----------(格式不定,只要能返回两者就行了)

其中变量是pt,LIST是变量类型!

秋枫

只要用两次Atom-family 比较加载前与加载后的返回值有什么不同就可以知道。

用Type函数可以返回某个Symbol所代表的变量类型。