如何得到getdist的第二点坐标

xyp1964 · 发表于 2014-9-1 14:19:25

本帖最后由 xyp1964 于 2014-9-1 14:22 编辑

a4587332 发表于 2014-9-1 13:56
对第二点拾取坐标发现不一样

确实有错……
(defun c:tt ()
  (if (and (setq p1 (getpoint "\n第1点: "))
   (setq p2 (getpoint p1 "\n第2点: "))
   )
(setq dd  (distance p2 p1)
   rad (angle p1 p2)
)
  )
)

a4587332 · 发表于 2014-9-1 14:24:36

xyp1964 发表于 2014-9-1 14:19
确实有错……

院长都来了~~ 不知道是不是我测试有误
不懂grread函数

ysq101 · 发表于 2014-9-2 11:54:13

楼主直接一点吧。。。
你到底要做什么说出来。。
也许就不需要得到第二点了

ysq101 · 发表于 2014-9-2 11:57:49

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

我觉得这个方法能满足楼主的要求
第一点和第二点和距离都有了
再需要方向就加个函数就可以了

Andyhon · 发表于 2014-9-2 12:22:08

要回应问题,常得搬出猜想功夫

但往往搔不着痒处

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

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

浏览过的版块