[求助]：主程序如何写

c3a139 · 发表于 2006-7-31 19:02:00

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

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

×

我有些小程序想把它们集合起来，但不知如何实现输入哪个子程序的命令就执行该子程序，是不是要用条件句？

apollone · 发表于 2006-7-31 19:12:20

合并成一个文件即可，啥都不用管

c3a139 · 发表于 2006-7-31 19:17:15

请问如何合？

winabcd · 发表于 2006-8-1 08:08:15

如果你的程序是工a1.slp、a2.lsp、a3.lsp、a4.lsp等，可以这样
(defun aa(n)
(cond
((= n 1)
(load a1)
(a1)
)
((= n 2)
(load a2)
(a2)
)
...
)
)

c3a139 · 发表于 2006-8-1 18:22:18

有错误，哪位给看一下，谢谢
(defun c:lisp_slb ()
  (setq str (getstring "请输入命令:"))
  (cond ((= str "dtor")
(load dtor)(dtor))

      ((= str "tan")
(load tan)(tan))
  )
  (prin1)
)
(defun tan ()
  (setq ang (getangle "请输入角度:"))
  (setq tan (/ (sin ang) (cos ang)))
  (princ tan)
  (prin1)
)
(defun dtor ()
  (setq ang (getangle "请输入角度(度):"))
  (setq dtor (* ang (/ pi 180)))
  (princ dtor)
  (prin1)
)

Underway · 发表于 2006-8-1 21:36:06

(defun c:lisp_slb ()
(setq str (getstring "请输入命令:"))
(cond
((= str "dtor") (dtor))
((= str "tan") (tan))
)
(prin1)
)

(defun tan ()
(setq ang (getangle "请输入角度:"))
(setq tmp (/ (sin ang) (cos ang)))
(princ tmp)
(prin1)
)

(defun dtor ()
(setq ang (getangle "请输入角度(度):"))
(princ ang)
;(setq tmp (* ang (/ pi 180)))
;(princ tmp)
(prin1)
)

c3a139 · 发表于 2006-8-2 10:27:25

不行啊，参数类型错误

Dream.Fei · 发表于 2006-8-2 12:29:28

prin1 是什么？应该是princ 吧~

另：楼上的参数错误是哪一步啊~

dwg001 · 发表于 2006-8-2 13:09:29

Underway楼主的修改程序能通过。R2004下结果：
ÃüÁî: lisp_slb
ÇëÊäÈëÃüÁî:dtor
ÇëÊäÈë½Ç¶È(¶È):45
0.785398
ÃüÁî:
ÃüÁî: lisp_slb
ÇëÊäÈëÃüÁî:tan
ÇëÊäÈë½Ç¶È:45
1.0

c3a139 · 发表于 2006-8-2 16:30:37

不好意思，我用2002，不知怎么回事上午就是没通过，但有一问题，当运行
(defun dtor ()
(setq ang (getangle "请输入角度(度):"))
(princ ang)
(prin1)
)
结果为0.785398
当运行
(defun dtor ()
(setq ang (getangle "请输入角度(度):"))
(princ ang)
(setq tmp (* ang (/ pi 180)))
(princ tmp)
(prin1)
)
结果为0.7853980.0137078
当运行
(defun dtor ()
(setq ang (getangle "请输入角度(度):"))
(setq tmp (* ang (/ pi 180)))
(princ tmp)
(prin1)
)
结果为0.0137078。角度均为45，这是为什么？

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

[求助] [求助]：主程序如何写

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

相关帖子