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

freeok2013 · 发表于 2013-12-1 22:25:48

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

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

×

(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)
)

19622928 · 发表于 2013-12-1 22:43:33

着实看不懂了！

newer · 发表于 2013-12-1 23:07:16

不知道你想问什么。

Underway · 发表于 2013-12-2 08:42:29

(if (= M a0)
(if (or (= "M" a0) (= nil a0))

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

[求助] 条件子程序，该如何写？谢谢！

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

相关帖子