【已解决】lisp调用cal函数超过5位数计算的结果不正确是怎么回事？

wdmzslw

lisp调用cal函数超过5位数计算的结果不正确是怎么回事？

newer

大概率上讲，是你的代码有问题，所以，你要把你的代码贴上来，才行。

你怎么写的，应该得到什么结果，实际得到什么结果，都说清楚。

dnbcgrass

(defun c:test()
    (vl-load-com)
    (if (not c:cal) (arxload "geomcal"))
    (setq a 350634.1 b 653666.5)
    (setq jgz (cal "a*b"))
    (princ (strcat "\n"  (rtos a) "*" (rtos b) "=" (rtos jgz 2 15)))
    (princ)
)
;命令: TEST
;350634.10000*653666.50000=229197764927.6500

marting

dnbcgrass 发表于 2018-5-25 14:21
(defun c:test()
    (vl-load-com)
    (if (not c:cal) (arxload "geomcal"))

arxload 最好用这个

（XD::GEOM:LoadGeomCal ）自动加载几何计算函数CAL

3 个回复 - 55 次查看

2018-5-1 00:31 - marting - 开源函数库

否则有些CAD版本是加载不成的。

marting

你是不是弄两个5位数整数相乘了，超出整数范围了

命令: TEST
错误:
整数必须介于 2147483647 和 -2147483648 之间

错误: 参数类型错误: numberp: nil

王子

我也遇到过这问题

wdmzslw

newer 发表于 2018-5-25 00:06
大概率上讲，是你的代码有问题，所以，你要把你的代码贴上来，才行。

你怎么写的，应该得到什么结果，实 ...

我就是在命令行输入: CAL >> 表达式: 1+111111结果就不正确，不知道是什么原因

wdmzslw

marting 发表于 2018-5-25 15:09
你是不是弄两个5位数整数相乘了，超出整数范围了

命令: TEST

在命令行输入：(cal "1+2+3+45666")，结果为-19864

dnbcgrass

都没看清楚，那是两实数相乘。
(cal "1+2+3+45666")难道不可以改成
(cal "1+2+3+45666.0")，用整数运算就是那样的结果！！！

marting

wdmzslw 发表于 2018-5-27 21:46
在命令行输入：(cal "1+2+3+45666")，结果为-19864

你要知道整数都是受存储限制，有上限的

命令: (cal "32766+1")
32767
命令: (cal "32766+2")
-32768


CAL函数，整数是32位有符号数，最高位时符号，15位存储整数，范围是-32768---- 32767
命令: (^ 2 15)
32768
命令: (^ 2 16)
65536


正整数超过32767，你都要用浮点数去计算。

wdmzslw

marting 发表于 2018-5-28 00:23
你要知道整数都是受存储限制，有上限的

命令: (cal "32766+1")

哦，原来是这样，多年前学过，忘接了这个了，谢谢marting老师

kqqt6236

学习一下。