乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 130|回复： 7

怎样判断一个命令是Lisp命令还是ARX命令

[复制链接]
guohq

75

主题

306

帖子

10

银币

中流砥柱

Rank: 25

铜币
606
发表于 2021-4-10 07:12:00 | 显示全部楼层 |阅读模式
使用  (defun c:xxx())    或  commandmethod("xxx")  都可以定义一个新的命令并在命令行中运行，但使用Lisp调用时，却不同。
使用defun 定义的命令，在lisp中的调用方法为 (c:xxx)
使用 commandmethod 定义的命令，在lisp中的调用方法为  (command "xxx")
问题：怎样通过代码去判断，一个命令是由Lisp定义的，还是由commandmethod 定义的？
回复

使用道具 举报

vitalgg

31

主题

207

帖子

15

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
327
发表于 2021-4-10 11:30:00 | 显示全部楼层
(= 'subr (type c:xxx))
回复

使用道具 举报

guohq

75

主题

306

帖子

10

银币

中流砥柱

Rank: 25

铜币
606
发表于 2021-4-10 17:51:00 | 显示全部楼层
测试通过，谢谢！
回复

使用道具 举报

satan421

2

主题

157

帖子

10

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
166
发表于 2021-4-11 00:18:00 | 显示全部楼层
SUBR, EXRXSUBR, and USUBR
The name of the function (the name that was specified in defun or at load time). SUBR refers to internal and compiled functions, EXRXSUBR refers to external ARX functions, and USUBR identifies user-defined functions.
回复

使用道具 举报

guohq

75

主题

306

帖子

10

银币

中流砥柱

Rank: 25

铜币
606
发表于 2021-4-11 10:42:00 | 显示全部楼层
使用Lisp定义的命令可以使用 (= 'subr (type c:xxx)) ，使用ARX定义的命令，只能返回nil，不知道怎么判断。
回复

使用道具 举报

vitalgg

31

主题

207

帖子

15

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
327
发表于 2021-4-14 10:16:00 | 显示全部楼层
(if (= 'subr (type c:xxx))
   "LISP 命令"
   "非LISP命令")
回复

使用道具 举报

guohq

75

主题

306

帖子

10

银币

中流砥柱

Rank: 25

铜币
606
发表于 2021-4-16 09:11:00 | 显示全部楼层

此判断有点欠妥，对于没有定义的命令，也会返回 非LISP命令
回复

使用道具 举报

sieben

32

主题

651

帖子

8

银币

中流砥柱

Rank: 25

铜币
779
发表于 2021-4-16 09:12:00 | 显示全部楼层
学习了 ！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 00:34 , Processed in 0.278521 second(s), 79 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表