图像：像素到毫米

fuccaro · 发表于 2022-7-5 19:55:02

你好！
我试着写一个lisp来处理我附加到绘图上的图像。该程序使用多边形轮廓对其进行剪辑。接下来，它旋转图像，并移动它们以匹配-就像一个谜。我的问题是尺寸是以像素（dxf 13）为单位的，为了将图像移动到正确的位置，我需要它们以图形单位。那么，有人能帮我用绘图单位转换像素吗？

谢谢

Stefan BMR · 发表于 2022-7-5 20:11:31

嗨fuccaro
好久不见！！

您正在查找11和12个dxf代码：

copy

_$ e
<Entity name: 7ffffb05d10>
_$ (cadr (assoc 11 (entget e)))
0.859725
_$ (caddr (assoc 12 (entget e)))
0.859725

或者，如果您更喜欢Visual Lisp：
该值以绘图单位表示1个像素的长度。

编辑：嗯。。关于旋转的图像：

copy

(distance '(0 0 0) (cdr (assoc 11 (entget e))))
(distance '(0 0 0) (cdr (assoc 12 (entget e))))

fuccaro · 发表于 2022-7-5 20:30:42

你好，Fane！
非常感谢您的回答！
几年后，我试图回到Lisp世界。
我插入了一个图像，entget返回了这个：
如您所见，12的assoc返回一个双分量向量-但它应该类似于（12 0 y 0）。图像只是插入，根本没有旋转/移动。你知道发生了什么事吗？我试着编写一个通用程序，而不仅仅是针对一个特定的图像。
再次感谢您的时间！