dtucad 发表于 2023-8-24 23:35:46

判断点在直线左右或在直线线上

本帖最后由 dtucad 于 2023-8-24 23:40 编辑


问的GPT，居然是对的，虽然对高手没啥技术含量，但是对新手还是有用的，所以分享一下，如果违规就请版主删了吧


;判断点在直线的左右或线上
(defun c:tt (/ p1 p2 p3 v1 v2 cross_product)
(if (and
      (setq p1 (getpoint "\n选择起点"))
      (setq p2 (getpoint p1 "\n选择终点"))
      (setq p3 (getpoint "\n选择点"))
      )
    (progn
      (setq v1 (mapcar '- p2 p1)) ; 计算直线的向量
      (setq v2 (mapcar '- p3 p1)) ; 计算从直线起点到点的向量
      (setq cross_product (- (* (nth 0 v1) (nth 1 v2)) (* (nth 1 v1) (nth 0 v2)))) ; 计算叉积
      
      (cond
      ((> cross_product 1e-6) (princ "\n点在直线左侧"))
      ((< cross_product -1e-6) (princ "\n点在直线右侧"))
      (t (princ "\n点在线上"))
      )
    )
)
(princ)
)


塔门说 发表于 2023-8-25 17:33:13

这个问题应该用三点顺时针还是逆时针来表述，用点在线的左右这种表述不准确，因为看到的一个方向的直线有其实0和180度两个方向可能。

vitalgg 发表于 2023-8-25 20:16:56

bonny 发表于 2023-8-25 20:07
你说的C艹吧，C#编译环境简单，C的更简单，

不同版本的 .net SDK 向前向后兼容吗？

bonny 发表于 2023-8-25 20:07:53

vitalgg 发表于 2023-8-25 11:37
C#太麻烦，光编译环境就得搞半天。

你说的C艹吧，C#编译环境简单，C的更简单，

zxh92 发表于 2023-8-25 07:12:29

6666666666666666666666666666

mokson 发表于 2023-8-25 08:11:30

还不理解叉积是什么东东.

loveu515 发表于 2023-8-25 08:13:18

感谢分享

dbvbd 发表于 2023-8-25 08:22:11

太强了！！！

hubeiwdlue 发表于 2023-8-25 08:22:45

线性代数忘得差不多了。

ynhh 发表于 2023-8-25 08:27:20

问的GPT，居然是对的

老师教教我们

怎么去问 GPT ?

maccht 发表于 2023-8-25 08:48:29

牛皮。。。

vitalgg 发表于 2023-8-25 08:48:50


4551986 发表于 2023-8-25 10:22:33

vitalgg 发表于 2023-8-25 08:48


大神能加入C#版的吗，LISP看不懂
页: [1] 2
查看完整版本: 判断点在直线左右或在直线线上