查找精确插入点

ripuz · 发表于 2022-7-6 07:54:26

你好

有人知道如何使用autolisp查找块的精确插入点吗？
“精确”是指所有小数。

如果使用snap插入块，然后向左移动0.0000001。然后可以用autolisp找到该块吗？

提前感谢
/托马斯

pBe · 发表于 2022-7-6 08:06:06

与其他人的想法相反，当检索块的插入点时，它将为您提供准确的坐标。你可能看不到，但我现在告诉你。它是。

尝试在0,0坐标处插入块。移动块0.0000001，然后使用

 (Cdr (assoc 10 (entget (Car (entsel)))))

您将得到类似（1.0e-007 0.0 0.0）的结果

MSasu · 发表于 2022-7-6 08:13:54

下面的代码将允许您查看可用的小数位数：

copy

(if (setq itemBlock (ssget ":S" '((0 . "INSERT"))))
(progn
 (setq pointIns (cdr (assoc 10 (entget (ssname itemBlock 0)))))
 (prompt (strcat "\Insertion point:"
                 "\n   X = " (rtos (car   pointIns) 2 18)
                 "\n   Y = " (rtos (cadr  pointIns) 2 18)
                 "\n   Z = " (rtos (caddr pointIns) 2 18)))
)
)

irneb · 发表于 2022-7-6 08:22:59

@pBe：虽然示例正确地显示了这一点，但我认为可能不清楚如何舍入错误。如果插入点远离0,0,0，并且与整数（整数）相差很小，则您可能会发现插入点的显示忽略了小数（这是由于LUPREC设置）。

@里普兹：即使你将精度设置得尽可能高，它也可能不会显示所有的小数。返回值（如pBe所示）仍然是“精确”点，但可能很难显示到绝对精度。在该点上的所有计算都使用entget返回的双精度浮点值，而不是在list命令的命令行上看到的值。它不是“完美”的精度，但它是最好的，因为acad本身只在内部使用双精度浮点。可能会出现一些小错误（称为浮点错误），但通常是16位或更少的十进制数字。http://en.wikipedia.org/wiki/Floating_point

ripuz · 发表于 2022-7-6 08:27:14

好的，我明白了。。。我照你说的做了，我得到了和你一样的答案，但只有当x接近零时。
如果区块位于99.9999999，100，则答案为（100.0 100.0 0.0）。

我明白你的意思了。。。坐标是正确的坐标，只是没有精确显示。
为了证明这一点：

copy

(rtos (Cadr (assoc 10 (entget (Car (entsel))))) 2

感谢您快速回复pBe！

ripuz · 发表于 2022-7-6 08:37:40

谢谢irneb，现在我明白了。

MSasu · 发表于 2022-7-6 08:43:09

还要记住，精度与数字的“大小”成反比：

copy

(rtos 12.345678901234567 2 18)
[color=magenta];Return> "12.34567890123457"[/color]
(rtos 1234567.8901234567 2 18)
[color=magenta];Return> "1234567.890123457"[/color]
(rtos 12345678901234.567 2 18)
[color=magenta];Return> "12345678901234.57"[/color]