点相对位置

BIGAL · 发表于 2022-7-5 16:34:07

我的0.05美元

重要的是，上面的答案是针对两点的，因此意味着一个方向。

点是直线的左边还是右边？这取决于线的绘制方向，因此，如果需要“线”答案，解决这一问题的简单方法是在末端选择一个隐含点，并在需要时交换两个点以获得正确的方向。此方法只需要1次拾取。

aloy · 发表于 2022-7-5 16:37:10

嗨Bigal

你的解决方案似乎使我能够使用李·麦克建议的方法。也就是说，如果在第一个过程中返回T，则第三个点位于左侧，如果在反转方向后返回T，则该点位于右侧。我不能使用nil值，因为我必须与另一个可能产生nil的测试（x2的值，如我之前的帖子中所示）相结合。我将使用Lee Mac方法测试此方法，并发布我将使用该解决方案执行的全部细节。
谢谢
芦荟

aloy · 发表于 2022-7-5 16:41:44

LM，
我将程序中存在的点p、q和r分配如下：

copy


(defun c:test ( / a b c )
   (if (and (setq a p)
            (setq b q)
            (setq c r)
       )
       (LM:clockwise-p a c b)
   )
)
;; Clockwise-p - Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented
(defun LM:clockwise-p ( a b c )
   (apply '> (mapcar '* (mapcar '- c a) (reverse (mapcar '- b a '(0 0)))))
)

它给了我T
当p和q被交换时，如何使其返回零？。
谢谢
芦荟

hanhphuc · 发表于 2022-7-5 16:45:44

copy

(not(LM:clockwise-p a c b))

？

Lee Mac · 发表于 2022-7-5 16:46:20

我不确定我是否理解你的问题-请注意以下几点：

copy

_$ (setq p '(0 0))
(0 0)
_$ (setq q '(0 2))
(0 2)
_$ (setq r '(1 1))
(1 1)
_$ (LM:clockwise-p p r q)
nil
_$ (LM:clockwise-p q r p)
T

aloy · 发表于 2022-7-5 16:50:16

嗨，LM，
我使用您的代码尝试了以下方法来获取顺时针和逆时针方向的T：

copy


(defun test1 ( / a b c )
   (if (and (setq a p)
            (setq b q)
            (setq c r)
       )
       (LM:clockwise-p a c b)
   )
)
;; Clockwise-p - Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented
(defun LM:clockwise-p ( a b c )
   (apply '> (mapcar '* (mapcar '- c a) (reverse (mapcar '- b a))))
)

逆时针时：

copy


(defun test2 ( / a b c )
   (if (and (setq a p)
            (setq b q)
            (setq c r)
       )
       (LM:anti-clockwise-p a b c)
   )
)
;;Anti- Clockwise-p 
;; Returns T if p1,p2,p3 are anti-clockwise oriented
(defun LM:anti-clockwise-p ( a b c )
   (apply '> (mapcar '* (mapcar '- c a) (reverse (mapcar '- b a))))
)

我使用以下代码得到了与使用上述sin公式相同的结果：
（if（和x（test2））（setq fill（+fill a）））
（if（和x（test1））（setq cut（+cut a）））

在这种情况下，x是交点（如果存在），“a”是autocad area命令返回的区域。
不需要'（0）

aloy · 发表于 2022-7-5 16:54:35

韩，你好，
即使点不存在，直线也不工作，因为它返回T。

谢谢
芦荟

aloy · 发表于 2022-7-5 16:56:36

嗨，Paulhein，
此代码在我的情况下不起作用。请按照李的建议代码和我的建议在我的最新帖子。

谢谢你的帮助。
芦荟

Lee Mac · 发表于 2022-7-5 16:58:32

你好，阿洛伊，

请原谅我的失望，但要么你误解了我的代码，要么你误解了我在之前的帖子中提供的示例。

我建议您停止修改函数，重新访问我在上面发布的示例。

是的。如果提供了3D点，如果没有此表达式，该函数将无法正确执行。

aloy · 发表于 2022-7-5 17:03:35

李，你好，
但出于我的目的，当点在另一边时，我需要一个T或一个非零的值。当返回值为零时，我无法与另一个值为T或零的变量组合。然而，我找到了一种使用代码的方法。对不起，“（0）点；我只处理2D，因为在以旧方式使用横截面计算土方工程时。检查该值是一个自动过程（地面标高也会自动沿水平对齐以及三角网曲面的横截面拾取）。我将使用“sin”方法，而不是修改您的代码，尽管在一次处理多个部分时，这两种方法似乎同样快。
当做
芦荟

[编程交流] 点相对位置

发表回复

精选推荐