[求助]：请高手给予帮助！！！急！！

一生有你 · 发表于 2004-11-29 16:04:57

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

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

×

请问各位高手：以下程序错在哪？吾找不到啊！！
(defun sfcof(cdu kdu gdu / l1 l2)
(setq cofx(/ tkc (* (+ cdu kdu) 2.6)) cofy(/ tkk (* gdu 2.0)))
  (if (<= cofx cofy) (setq cof cofx) (setq cof cofy))
  (setq l1 '(10 5 4 2.5 2 1 0.667 0.5 0.4 0.333 0.25 0.2 0.1 0.667 0.05 0.01))
  (setq l2 '("10:1" "5:1" "4:1" "2.5:1" "2:1" "1:1" "1:1.5" "1:2" "1:2.5" "1:3" "1:4" "1:5" "1:10" "1:15" "1:20" "1:100"))
  (setq i 0)
  (while (< i 17)
(if (>= cof (nth i l1)) (setq sf1 (nth i l2) cof(nth i l1) i 100) (setq i (1+ i)))
);while
  );defun
这是用来确定图形的缩放比例的函数：我运行，它说参数太少！

aidraft · 发表于 2004-11-29 16:45:18

那就是运行时参数太少

一生有你 · 发表于 2004-11-29 17:04:52

我把有其他参数的函数和它连一块试试

ll_j · 发表于 2004-11-29 18:57:35

最初由一生有你发布
[B]请问各位高手：以下程序错在哪？吾找不到啊！！
(defun sfcof(cdu kdu gdu / l1 l2)
(setq cofx(/ tkc (* (+ cdu kdu) 2.6)) cofy(/ tkk (* gdu 2.0)))
(if (<= cofx cofy) (setq cof cofx) (setq cof cofy)... [/B]

这是一个内部函数，运行格式为： (sfcof cdu kdu gdu) ，程序中还涉及另外两个变量： tkc tkk 。

xxxyzxx · 发表于 2004-11-29 21:43:20

defun sfcof，说明是子程序，如需使用，可用其它函数调用，或直接定义为defun c:sfcof

urljit · 发表于 2004-11-29 22:41:24

楼上的，定义成命令以后怎样输入参数呢？我还真不知道，指点一下，其他人也欢迎。

hi71400 · 发表于 2004-12-1 17:56:13

(defun sfcof(cdu kdu gdu / l1 l2)
表示定义的函数需要传入三个参数

aidraft · 发表于 2004-12-1 18:52:23

最初由 urljit 发布
[B]楼上的，定义成命令以后怎样输入参数呢？我还真不知道，指点一下，其他人也欢迎。 [/B]

4楼不就是了吗？

zxq0220 · 发表于 2004-12-2 09:22:24

一楼楼主：
程序中判断(while (< i 17)是否有误？您的表“l1”中只有16项呀！而且变量i是从零开始的。

winabcd · 发表于 2004-12-3 13:48:27

运行它要给三个参数，如：
(sfcof 1 2 3)

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

[求助] [求助]：请高手给予帮助！！！急！！

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

相关帖子

Re: [求助]：请高手给予帮助！！！急！！