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

dtucad

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

1. ;判断点在直线的左右或线上
   
2. (defun c:tt (/ p1 p2 p3 v1 v2 cross_product)
   
3.   (if (and
   
4.         (setq p1 (getpoint "\n选择起点"))
   
5.         (setq p2 (getpoint p1 "\n选择终点"))
   
6.         (setq p3 (getpoint "\n选择点"))
   
7.       )
   
8.     (progn
   
9.       (setq v1 (mapcar '- p2 p1)) ; 计算直线的向量
   
10.       (setq v2 (mapcar '- p3 p1)) ; 计算从直线起点到点的向量
    
11.       (setq cross_product (- (* (nth 0 v1) (nth 1 v2)) (* (nth 1 v1) (nth 0 v2)))) ; 计算叉积
    
12.       
    
13.       (cond
    
14.         ((> cross_product 1e-6) (princ "\n点在直线左侧"))
    
15.         ((< cross_product -1e-6) (princ "\n点在直线右侧"))
    
16.         (t (princ "\n点在线上"))
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

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

塔门说

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

vitalgg

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

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

bonny

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

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

zxh92

6666666666666666666666666666

mokson

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

loveu515

感谢分享

dbvbd

太强了！！！

hubeiwdlue

线性代数忘得差不多了。

ynhh

问的GPT，居然是对的

老师教教我们

怎么去问 GPT ?

maccht

牛皮。。。

vitalgg

4551986

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

大神能加入C#版的吗，LISP看不懂