如何得到getdist的第二点坐标

a4587332 · 发表于 2014-9-1 12:38:50

想得到第二点坐标来判断方向

file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\252418567\QQ\WinTemp\RichOle\FUTF5I69YJ9KZ{8M}`RGXCU.png

自贡黄明儒 · 发表于 2014-9-1 12:47:16

(getvar "lastpoint")

a4587332 · 发表于 2014-9-1 12:49:44

自贡黄明儒发表于 2014-9-1 12:47
(getvar "lastpoint")

在命令实验过似乎不能得到 getdist的第二点坐标

自贡黄明儒 · 发表于 2014-9-1 12:56:41

本帖最后由自贡黄明儒于 2014-9-1 12:59 编辑

a4587332 发表于 2014-9-1 12:49
在命令实验过似乎不能得到 getdist的第二点坐标

换一种方法得到p2
(defun C:w1 ()
  (setq p1 (getpoint))
  (setq p2 (getpoint p1))
  (setq d (distance p2 p1))
)

a4587332 · 发表于 2014-9-1 13:01:16

自贡黄明儒发表于 2014-9-1 12:56
换一种方法得到p2
(defun C:w1 ()
(setq p1 (getpoint))

多谢耐心解答
我希望可以得到getdist的捕捉过程

a4587332 · 发表于 2014-9-1 13:09:45

a4587332 发表于 2014-9-1 13:01
多谢耐心解答
我希望可以得到getdist的捕捉过程

我是在想有什么办法可以模拟getdist
既能捕捉
又能得到第二点的坐标的方法

a4587332 · 发表于 2014-9-1 13:19:40

a4587332 发表于 2014-9-1 13:09
我是在想有什么办法可以模拟getdist
既能捕捉
又能得到第二点的坐标的方法

4楼的方法是提前把两个点设置好了
但是指定的过程中
不能参照第一点来给出第二点的位置
不能得到一个关系
getdist 是可以捕捉到这个关系的

xyp1964 · 发表于 2014-9-1 13:24:23

(defun c:tt () (setq dist (getdist)pt(cadr (grread t 15 0)))pt)

a4587332 · 发表于 2014-9-1 13:47:23

xyp1964 发表于 2014-9-1 13:24
(defun c:tt () (setq dist (getdist)pt(cadr (grread t 15 0)))pt)

似乎还是不能实现
点飘到其他位置了

a4587332 · 发表于 2014-9-1 13:56:10

本帖最后由 a4587332 于 2014-9-1 14:02 编辑

xyp1964 发表于 2014-9-1 13:24
(defun c:tt () (setq dist (getdist)pt(cadr (grread t 15 0)))pt)

对第二点拾取坐标发现不一样

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

[提问] 如何得到getdist的第二点坐标