明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1175|回复: 5

[求助]如何判断一个命令是否内部命令

[复制链接]
发表于 2008-9-2 22:51:00 | 显示全部楼层 |阅读模式

本人写一段加载第三方PGP文件的程序用到这样的功能

读入一个字符串str

如果str是内部命令则用(command "str")方式调用

如果str是外部命令则用(c:str)方式调用

所以这里就需要判断str是内部命令还是外部命令

请教如何实现

发表于 2008-9-3 11:26:00 | 显示全部楼层

(vl-symbol-value 'c:str)

 楼主| 发表于 2008-9-3 15:16:00 | 显示全部楼层

仍然未能解决问题
(setq FullFun "str")

(if (vl-symbolp (eval (strcat "c:" FullFun)))
...
)

这个写法是否有问题?

发表于 2008-9-3 15:41:00 | 显示全部楼层

(vl-symbol-value (read (strcat "c:" FullFun)))

 楼主| 发表于 2008-9-3 18:37:00 | 显示全部楼层

问题解决

多谢

一直弄不太清read和eval的用法,呵呵~

发表于 2008-9-4 09:16:00 | 显示全部楼层

其实没有必要这样复杂,只要

(if c:str

   ...

   ...

)

就行了

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-12-26 04:37 , Processed in 0.152339 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表