[求助]：LISP的问题？？？？？？？？？

pp1980cn · 发表于 2004-5-21 00:15:29

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

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

×

请问各位我的LISP有什么问题啊
(defun C:2 ()
(setq baspt (getpoint "输入基点："))
(setq rad (getdist baspt "\n 输入小圆的半径:"))
(setq mun (getint "\n 输相切小圆的半径:"))
(setq ang1 (/ (* pi 2) (* mum 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)
(command "array" (entlast) "" "p" cenpt num 360 "Y")
(prinl))

aeo · 发表于 2004-5-21 01:03:59

mun mum num

陌生人 · 发表于 2004-5-21 01:43:20

哈哈，真逗

lsjjm · 发表于 2004-5-21 04:52:37

其实这类问题运行或调试程序时看看提示不就知道了?

CADghost · 发表于 2004-5-21 18:29:36

一定又是从哪儿抄来的，看看符号和空格少了没有

陌生人 · 发表于 2004-5-21 20:25:36

昏倒，看来楼上没看懂第一贴，也没看懂第二贴

cy956 · 发表于 2004-5-21 22:54:22

最初由陌生人发布
[B]昏倒，看来楼上没看懂第一贴，也没看懂第二贴 [/B]

主要是怪aeo的回答太形声了。：）

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

[求助] [求助]：LISP的问题？？？？？？？？？

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

相关帖子

浏览过的版块