关于用其它名字代替command-s出错

xinxirong · 发表于 2017-6-1 11:01:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

替换其它函数是可以的。
(setq aa fix
   b 3.3564
   )
((eval aa) b)
但替换command-s就会出错

(if command-s
   (setq BY-command command-s )
   (setq BY-command vl-cmdf)
   )
((eval BY-command) (ssget) "");出错

错误: 未知(command-s)失败。

ll_j · 发表于 2017-6-1 11:06:27

你想要command-s函数做什么事情？

marting · 发表于 2017-6-1 11:23:39

没高版本CAD，试试定义一个自己的COMMAND函数

(defun my-cmd (lst)
(if command-s
(apply 'command-s lst))
(apply 'vl-cmdf lst)
)
t
)

xinxirong · 发表于 2017-6-1 12:44:53

怎么没想到还有apply这个函数呢，谢谢啦

ll_j · 发表于 2017-6-1 12:50:29

xinxirong 发表于 2017-6-1 12:44

你的代码不是apply的问题，而是command后面列表的问题，就是你想让command做什么的问题，列表不对，自然出错。
(command (ssget) "")能干什么？只能出错。
顺便说一句，eval在这里是可以省略的。

newer · 发表于 2017-6-1 14:11:04

ll_j 发表于 2017-6-1 12:50

直接赋值换个名是不行的
(setq a command)
(a "line" p1 p2 "") 是报错的，即使参数对。

ll_j · 发表于 2017-6-1 14:50:05

newer 发表于 2017-6-1 14:11

哈哈，试了一下，就是command这个函数特殊，其它函数都可以。

命令: (setq aa vl-cmdf)
#<SUBR @184f4c30 VL-CMDF>

命令: (aa "line" "0,0" "1000,1000" "")
T

sicky111 · 发表于 2017-6-2 07:53:43

又学习了新知识。

账号		自动登录	找回密码
密码			立即注册

[求助] 关于用其它名字代替command-s出错

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。