[LISP程序]：求助几个数连乘积

and2008

求助几个数连乘积的lsp.......

tjchkys

什么呀?能不能说的详细一点儿!
大家也好帮你呀!
你这说的题目也太简单了吧,无从下手!

and2008

举个例子来说：

1*2*3*4*5*6*7*8*9*10=3628800
我想这样来实现：选中数字1 2 3 4 5 6 7 8 9 10 ，然后选中任意一个数字x ， 那么x就变成了前面选中数字的连乘积。

xyp1964

1*2*3*4*5*6*7*8*9*10=4485600 ？！

小学题正确答案：1*2*3*4*5*6*7*8*9*10=3628800

and2008

谢谢楼上提醒，按错了

tjchkys

只是个简单的阶乘问题程序如下:
(defun c:jc()
  (setq numb (getreal "请输入阶乘数:"))
  (setq jc 2)   ;;;;循环控制变量
  (setq xj 1)　;;;乘积数统计变量
(WHILE (<= jc numb)
        (setq xj (* jc xj))
    (setq jc (+ jc 1) )
        )
  (prompt (strcat "1到" (rtos numb) "的乘积为:" (rtos xj)))
  (princ)
)

and2008

不一定是阶乘噢，那个我只是随便举的一个例子。同样感谢楼上的

狂刀

(* 1 5 3 8 4 6 32 45 8)
或(apply '* '(2 5 6 3 8 9))

LADESIGNER

这么简单楼上几位估计都没兴趣：
(defun c:test()
(setq en(entsel"\n选择要连乘的数字:"))
(setq xx(rtos(getdxf en 1)))
(while (setq next(entsel"\n选择下一个数字:"))
(setq xx(* xx  (rtos(getdxf next 1))))
)
(princ "\n乘积：")
(princ xx)
)
(defun getdxf (en dxf)
(cdr(assoc code (entget (car en))))
)

and2008

楼上的你的程序有点问题吧，根本选不得数字的。

LADESIGNER

SORRY,太马虎了:

(defun c:test(/ en xx next )
(setq en(entsel"\n选择要连乘的数字:"))
(setq xx(atof(getdxf en 1)))
(while (setq next(entsel"\n选择下一个数字:"))
(setq xx(* xx (atof(getdxf next 1))))
)
(princ "\n乘积：")
(princ xx)
(princ)
)
(defun getdxf (en dxf)
(cdr(assoc dxf (entget (car en))))
)

and2008

感谢楼上的。可是你的结果只能在命令行出来，我想在CAD绘图窗口直接出来结果，这样就不用再编辑了，（就是在一个原有数字的基础上点击之后就出来连乘积结果了）。出来这个结果是实型的，有很多小数，有时候用起来不是很方便，能否在连乘积结果上再来个提示让选择小数位位数呢（通过四舍五入）？再次不胜感激

LADESIGNER

(defun c:test(/ en xx next th jd pt )
(setq en(entsel"\n选择要连乘的数字:"))
(setq xx(atof(getdxf en 1)))
(while (setq next(entsel"\n选择下一个数字:"))
(setq xx(* xx (atof(getdxf next 1))))
)
(setq pt(getpoint "\n文字插入点:"))
(setq th(getdist (strcat "\n字高<" (if oldth (rtos oldth 2 2) "300") ">:")))
(if (null th)
(setq th oldth)
)
(if (null th)
(setq th 300)
)
(setq oldth th)
(if (null(setq jd(getint "\n精确度<2>:")))
(setq jd 2)
)
(setvar "dimzin" 0)
(command "text" "s" "standard" pt  th 0 (rtos xx 2 jd))
(princ)
)
(defun getdxf (en dxf)
(cdr(assoc dxf (entget (car en))))
)
字体"standard"可换成自己常用的.