ZZXXQQ 发表于 2012-6-3 09:57:39

(defun c:df()
(initget 128 "F ")
(setq s0 (getkword "\n子程序df1 【子程序df2(F)】:"))
(if (= s0 "F")
(df2) ;转子程序df2
(df1);转子程序df1
)
(princ)
)

lht 发表于 2012-6-3 10:05:53

((= s0 "F") (df2)) ;输入"F"执行子程序df2
((= s0 "nil") (df1));右键执行子程序df1
页: 1 [2]
查看完整版本: 【求助】本人编写的四行代码程序，无法满足要求，求高手帮忙改一下