请教一下如何确定一个点相对于选定物件的方向

寒林清远

我能明白楼主的意思：

楼主是希望找到一个判断点的位置的参数，在一条直线的一侧还是另一侧，是不是？

如果是这样的话，我有个办法：

假设直线倾角为a，选取的点为p0，直线上任一点---假设就为起点p1吧，判断sin[(angle p1 p0)-a]是否大于0即可判断出p0是在直线的上侧还是下侧了。

aytxq

謝謝提供思路。回去好好學習一下.

aytxq

我想了好久。最重要的是要得到任意物件的幾何中心才能完成任意方向的選擇吧。

highflybir

如果楼主自己都不清楚判别法则，别人怎么能帮助你呢？

几何中心？可是质心？ 重心？或者boundingbox的中心？ 所以楼主对这个问题的描述不够详细。

wuzheng80425

从别人那里拷过来，希望对你有帮助

(defun c:ABCD()
  (setq        PA  (getpoint "\n 第一点：")
        PB  (getpoint PA "\n 第二点：")
        PC  (getpoint PB "\n 方向：")
        an1 (angle PA PB)
        an2 (angle PC PB)
        an3 (abs (- an1 an2))
  )
  (if (< an1 an2)
    (setq keyang (- (* pi 2) an3))
    (setq keyang an3)
  )
  (if (< keyang pi)
    (setq finalang (+ an1 (/ pi 2)))
    (setq finalang (- an1 (/ pi 2)))
  )
  (setq        pe (polar PA finalang 600)
        pf (polar PB finalang 600)
  )
  (command "pline" PA PB pf pe "C")
  (prin1)
)