条件执行子程序，该如何写？谢谢！

freeok · 发表于 2013-12-1 22:25:12

(defun C:DE(/ )
(tt);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序1
(setvar "osmode" 0)
(initget "M D")
(setq a0 (getkword "\n[面 M/底 D]<M>:"))
(if (= M a0)
(progn (get_ent1));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序2
(progn (get_ent2));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序3
)
(prin1)
)

Andyhon · 发表于 2013-12-1 22:58:23

猜是
(= M a0) ==> (= "M" a0)

ZZXXQQ · 发表于 2013-12-2 08:18:21

getkword的返回值是字串。

edata · 发表于 2013-12-2 08:36:45

lisp语言都叫函数，自定义函数和主函数一样定义，(defun tt(/ a b c d)
(setq a 19 b 78 c 65)
(setq d (- a b c))
(princ d)
)

菜卷鱼 · 发表于 2013-12-2 14:18:07

(defun C:DE(/ )
(setvar "osmode" 0)
(tt)
(initget "M D")
(setq a0 (getkword "\n[面 M/底 D]<M>:"))
(if (= a0 nil )(setq a0 "M"))
(if (= a0 "M")
      (progn (get_ent1));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序2
      (progn (get_ent2));;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序3
)
(prin1)
)

(defun tt ( );
(prinC  "子程序1" )
)
(defun get_ent1 ( )
(prinC  "子程序2" )
)
(defun get_ent2 ( )
(prinC  "子程序3" )
)

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

[提问] 条件执行子程序，该如何写？谢谢！

相关帖子