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

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

a4587332 发表于 2014-9-1 13:56 static/image/common/back.gif
对第二点 拾取坐标 发现不一样
确实有错……
(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 static/image/common/back.gif
确实有错……

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

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

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

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

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


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

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

要回应问题,常得搬出猜想功夫
但往往搔不着痒处
页: 1 [2]
查看完整版本: 如何得到getdist的第二点坐标