mapcar '+小数变成整数？

xinxirong · 发表于 2015-6-8 16:46:43

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

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

×

cad命令行执行这句：(mapcar '+ '(498772.0 616700.0 ) '(0.5 0.5))

结果为 (498773.0 616701.0)
如果是减，则不变，很明显是四舍五入，但查了一下精度的变量是4位。
如果只是(+ 498772.0 0.5)则结果返回正确。

HLCAD · 发表于 2015-6-8 17:14:40

(mapcar '(lambda(x) (fix (+ x 0.5))) '(498772.0 616700.0))

xinxirong · 发表于 2015-6-8 17:24:26

HLCAD 发表于 2015-6-8 17:14
(mapcar '(lambda(x) (fix (+ x 0.5))) '(498772.0 616700.0))

我不是要int，而是要real

iLisp · 发表于 2015-6-8 21:33:01

用rtos就可看到**

HLCAD · 发表于 2015-6-9 07:57:13

(mapcar '(lambda(x) (float (fix (+ x 0.5)))) '(498772.4 616700.4))

xinxirong · 发表于 2015-6-9 09:04:41

iLisp 发表于 2015-6-8 21:33
用rtos就可看到**

比如坐标相加，这个rtos要放在哪里呢？
(defun pt_sub(pt_temp1 pt_temp2 / x1 x2 y1 y2 z1 z2 x y z )
(mapcar '- (rtos pt_temp1 2 2) (rtos pt_temp2 2 2))
)

xinxirong · 发表于 2015-6-9 10:06:24

搞定
(defun pt_sub(pt_temp1 pt_temp2 / x1 x2 y1 y2 z1 z2 x y z )
  (mapcar '(lambda(x y) (- (atof (rtos x 2 2)) (atof (rtos y 2 2))) )
   pt_temp1
   pt_temp2
  )
)

xinxirong · 发表于 2015-6-9 11:12:57

本帖最后由 xinxirong 于 2018-1-12 14:41 编辑

VisualLisp显示的数是经过四舍五入的，实际上还是有八位的精度，用line命令画线就知道了命令: (prin1-real (mapcar '+ '(498772.0 616700.0 ) '(0.5 0.5)))
"( 498772.5 616700.5 )"

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

[求助] mapcar '+小数变成整数？

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

点评

点评