查询自己写的所有程序名

菜卷鱼

时间久了，程序多了，有些自己写的程序都忘记是什么命令了

1. (vl-remove-if-not  '(lambda(x)  (wcmatch x "C:*"  ) )  (car (list(atoms-family 1))))

(vl-remove-if-not  '(lambda(x)  (wcmatch x "C:*"  ) )  (car (list(atoms-family 1))))

菜卷鱼

尘缘一生 发表于 2023-6-27 20:36
有查询函数的吗？

atoms-family 这个函数就能查

(atoms-family format [symlist])
参数

format

值为 0 或 1 的整数，它用于指定 atoms-family 函数返回符号名的格式：

0 以表的形式返回符号名

1 以字符串表的形式返回符号名

symlist

用于指定用户想搜索的符号名的字符串表。

返回值

下列代码检验符号 CAR、CDR 和 XYZ 是否已被定义并将其以字符串表形式返回：

命令： (atoms-family 1 '("CAR" "CDR" "XYZ"))

("CAR" "CDR" nil)

这个返回的字符串表表明符号 XYZ 没有被定义。

yxl88168

有没有知道命令，查找他是那个程序的啊，比如命令是 TT，查找到他在那一个VLX文件里面

taoyi0727

楼主好东西，有些用的别人的程序，不知道命令，用这个可以解决了

panliang9

有用，谢谢楼主！

洪少(刀模)

谢谢！省好多查看

liwen888888

好东西，谢谢分享

yoyoho

有用，谢谢菜卷鱼！

张大锤

发现自己写了那么多没人用的命令。。。

monsterWu

好東西，感謝樓主分享

瀛州流水

不懂编程，请问怎么用啊？

evayleung

这个好，什么命令都逃不掉了。