[求助]：坐标间距计算！！！

panzhongw · 发表于 2003-2-6 21:18:51

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

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

×

我在屏幕上用DIST测量两点PT1和PT2的间距
DIST Specify first point:  Specify second point:
Distance = 12.3911,  Angle in XY Plane = 359,  Angle from XY Plane = 0
Delta X = 12.3906,  Delta Y = -0.1087, Delta Z = 0.0000
用LISP计算两点的高差和平差如下
(setq pt1 (getpoint "\nselect pt1"))
(setq pt2 (getpoint "\nselect pt2"))
(setq yh (abs (- (cadr pt1) (cadr pt2)))
      xh (abs (- (car pt1) (car pt2)))
)
LISP返回yh=12.3886 , xh=0.0989532
以上数据和DIST返回的12.3911和 0.1087明显有出入！
请教！

cy956 · 发表于 2003-2-6 23:32:40

变量的回显和你设定的精度有关。

Victorwu · 发表于 2003-2-6 23:58:47

应该是Dist的更精确，Lisp的精度较差。

cy956 · 发表于 2003-2-7 03:24:32

??
何以见得？你看看这个：
(rtos (distance '(0 0) '(1 1)) 2 16)
_$

"1.414213562373095"

panzhongw · 发表于 2003-2-7 09:04:58

以精度而言，两者误差是否也过大了，请大家自己试一下
告诉我你们设置精度的结果，好吗！谢谢！

Victorwu · 发表于 2003-2-7 11:22:57

命令: di DIST 指定第一点: 指定第二点:
距离 = 5.60161133，XY 平面中的倾角 = 31，与 XY 平面的夹角 = 0
X 增量 = 4.79503668， Y 增量 = 2.89580262， Z 增量 = 0.00000000
命令: (setq pt1 (getpoint "\nselect pt1"))
select pt1(537.378 165.005 0.0)
命令: (setq pt2 (getpoint "\nselect pt2"))
select pt2(542.173 167.901 0.0)
命令: (setq yh (abs (- (cadr pt1) (cadr pt2)))
(_> xh (abs (- (car pt1) (car pt2)))
(_> )
4.79504
命令: !yh
2.8958
我试了一试，精度还不错啊，有效位数内都相同，你取点时捕捉打开了没？[/COLOR]

lt_zzy · 发表于 2003-2-13 11:31:05

我也试了，结果和Victorwu 一样。

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

[求助] [求助]：坐标间距计算！！！

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

相关帖子