tianyi1230 发表于 2015-8-16 19:34 static/image/common/back.gif
师兄写过一个,现在还在用,所有的命令都可以查出来!
发上来给大家共享一下嘛!
这种情况的确经常发生,学习了
看看 高手的解决办法,学习一下
看看怎么弄出来的
这个值得学习
看看、学学
看看
;查看C函数名称
(defun c:tt (/ l fn)
(setq l (mapcar 'eval (atoms-family 0)))
(if (setq fn (getfiled "" "" "lsp" 4))
(progn
(load fn)
(mapcar
'print
(vl-remove-if-not
'(lambda (x) (= "C:" (substr x 1 2)))
(mapcar
'VL-PRINC-TO-STRING
(vl-remove-if
'(lambda (x) (member (eval x) l))
(atoms-family 0)
)
)
)
)
)
)
(princ)
)
不知在哪看到过, 选择一个FAS或VLX,就可以知道命令名
好东西,记忆有时也会出错