lisp 除法精度

zhanghuohuo

问题1

输入：
（/ 10 10000000）
输出
0
如何进行高精度的输出。
问题2
输入：

• (defun c:mianji ()
•   (setq mj 0.001)
•   (setq pt1 (getpoint "输出点"))
•   (command "TEXT" pt1 5 0 mj)
•   (command "REGEN")
• )
  

输出： 0.0010000000
如何消除后面的0。

自贡黄明儒

整 除 整 =整

1291500406

(/ 10 10000000)   -> 0
(/ 10. 10000000)  ->  1.0e-006
(/ 10 10000000.)  -> 1.0e-006
(/ 10 10000000 1.) -> 1.0e-006


(defun c:bb ()
(command "DIMZIN" 8 "TEXT"  (getpoint "输出点") 5 0 (rtos 0.001)  "REGEN")
)

zhanghuohuo

1291500406 发表于 2020-8-7 11:15
(/ 10 10000000)   -> 0
(/ 10. 10000000)  ->  1.0e-006
(/ 10 10000000.)  -> 1.0e-006

非常感谢！！

muwind

整数int除整数int（应该说大部分编程语言都这样）结果是整数int，这个是最最最基本的常识了，只要修改任意一个数为实数real即可。消0是变量DIMZIN控制 ，楼主应该取查阅下帮助看看DIMZIN对应的值是什么意义。
类型: 整数
保存位置: 图形
初始值: 0（英制）或 8（公制）

控制针对主单位值的消零处理。

值为 0 到 3 时仅影响英尺-英寸标注：

0
消除零英尺和零英寸

1
包含零英尺和零英寸

2
包含零英尺，消除零英寸

3
包含零英寸，消除零英尺

4
消除十进制标注中的前导零（例如，0.5000 变为 .5000）

8
消除十进制标注中的后续零（例如，12.5000 变为 12.5）

12
消除前导零和后续零（例如，0.5000 变为 .5）