如何使用VBScript计算已知大小的物体与相机之间的距离？

Question

我知道物体的尺寸和相机的一切。

Answer 1

d =（FL * RHO * IH）/（OH * SH）

d =距离，以对象（毫米）
FL =焦距（mm）
RHO =物体的真实高度（mm）
IH =图像高度（像素）
OH =物体高度（像素）
SH =传感器高度（mm）