帮忙看一下为啥（fix 6.0）返回5

xiayuxue213 · 发表于 2017-6-28 12:55:28

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

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

×

(if (setq n_ns(getint "->输入数量<>:"))
(progn
(if (setq xEntPicks (entsel "\n->选择尺寸<>:"))
(progn
(setq entNames (car xEntPicks))
(setq entDatas (entget entNames))
(if (= (cdr(assoc 0 entDatas)) "DIMENSION")
(progn
(setq dim_ns1(cdr(assoc 42 entDatas)))
(setq dim_ns2(fix dim_ns1));如果直径是6.0 dim_ns2有时候是6有时候是5.如果直径是5.0 dim_ns2有时是5有时是4
;就是dim_ns2的值不确定。
)
)
)
)
)
）

/db_自贡黄明儒_ · 发表于 2017-6-28 12:58:30

会不会这个数字是在中文状态下输入的？？？？

xiayuxue213 · 发表于 2017-6-28 13:00:30

/db_自贡黄明儒_ 发表于 2017-6-28 12:58

((-1 . <图元名: -5ae788>) (0 . "DIMENSION") (5 . "5FF") (102 .
"{ACAD_XDICTIONARY") (360 . <图元名: -5ae728>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <图元名: -5ae6e0>) (102 . "}") (330 . <图元名: -12c308>)
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "dim") (48 . 2.0) (100 .
"AcDbDimension") (2 . "*D37") (10 1330.99 1076.46 0.0) (11 1347.14 1096.62 0.0)
(12 0.0 0.0 0.0) (70 . 35) (1 . "M5") (71 . 5) (72 . 1) (41 . 1.0) (42 . 6.0)
(73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0
0.0 1.0) (3 . "TH_GBDIM") (100 . "AcDbDiametricDimension") (13 0.0 0.0 0.0) (14
0.0 0.0 0.0) (15 1334.74 1081.14 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))

这个数字不是手动输入的。是读取的(42 . 6.0)

炫翔 · 发表于 2017-6-28 13:05:22

误差问题，看上去是6.0 实际可能是 5.999999....

炫翔 · 发表于 2017-6-28 13:06:28

(fix (+ 0.00000001 5.99999999.....)) 一般这样处理比较安全

xiayuxue213 · 发表于 2017-6-28 13:31:10

炫翔发表于 2017-6-28 13:06

谢谢按你的方法解决了‘’

Lisphk · 发表于 2017-6-28 14:54:10

xiayuxue213 发表于 2017-6-28 13:00

一般加1e-14,后，在FIX

(defun _fix (num)
(fix (+ num 1e-14))
)

cooolseee · 发表于 2017-6-29 09:08:57

学习了，真是高手

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

[求助] 帮忙看一下为啥（fix 6.0）返回5

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