变量代替命令

millermin · 发表于 2012-7-4 00:55:46

程序大部分都一样，只有一个命令在几处需要根据不同情况分别使用不同命令。能否使用一个变量代替命令，根据不同情况给变量不同命令，省略大段重复程序代码？

raimo · 发表于 2012-7-4 07:45:40

为什么不可以呢？你要拿出具体的东西来吧

millermin · 发表于 2012-7-4 08:58:53

本帖最后由 millermin 于 2012-7-4 09:02 编辑

raimo 发表于 2012-7-4 07:45
为什么不可以呢？你要拿出具体的东西来吧

具体东西也可以，我做了个简单例子如下：不过我还是觉得回答这个问题不需要结合具体东西。
(defun c:pp()
(setq po(getpoint "\nCHOOSE A POINT:"))
(initget "x y")
(setq opt(getkword "\nENTER A OPTION, X OR Y:"))
  (if (= "x" opt)
   (setq a 'car)
   (setq a 'cadr)
)
(setq p(a po))
(print P)
(princ)
)

VBALISPER · 发表于 2012-7-4 09:06:48

再把你不同的几个命令一起放上来瞧瞧.有共用部分,可以做成函数.

Andyhon · 发表于 2012-7-4 09:16:03

依本例
(setq p(a po))
===>
(setq p ((eval a) po))

millermin · 发表于 2012-7-4 09:28:09

Andyhon 发表于 2012-7-4 09:16
依本例
(setq p(a po))
===>

万分感谢。我想eval就我要的东西。要的就是将变量值的字符“翻译”成命令格式。也许概念上表达锝不规范。

hao3ren · 发表于 2012-7-4 09:43:09

记得zml84有个批量定义命令的程序，风版主好像也有一个

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