如何编写代码判断两点之间是否存在一条实体的直线相连接呢?

hhaoma

如何编写代码判断两点之间是否存在一条实体的直线相连接呢？谢谢大神们！

(if (> (sslength (ssget "W" p1 p2 '((0 . "LINE")))) 0)
(princ "有直线")
(princ "无直线")
)
用高手弄得公式检查如图两个点 一直显示 "有直线"",但是现实却是没有直线连接的 请教下如何解决呢？

duotu007

思路：
1，(ssget "w" pt1 pt2 '((0 . "line")))
2，判断选择的直线 两端点，是否都在pt1 pt2对应的直线上，且没超过 pt1 pt2 范围。

ZZXXQQ

(if (> (sslength (ssget "W" p1 p2 '((0 . "LINE")))) 0)
(princ "有直线")
(princ "无直线")
)

hhaoma

ZZXXQQ 发表于 2014-9-6 18:47
(if (> (sslength (ssget "W" p1 p2 '((0 . "LINE")))) 0)
(princ "有直线")
(princ "无直线")

大神，再过来帮我看看 我试了不行啊

雪山飞狐_lzh

过滤器：
                    {0, "line"},
                    {-4, "<or"},
                    {-4, "<and"},
                    {10, pt1},
                    {11, pt2},
                    {-4, "and>"},
                    {-4, "<and"},
                    {10, pt2},
                    {11, pt1},
                    {-4, "and>"},
                    {-4, "or>"},

hhaoma

雪山飞狐_lzh 发表于 2014-9-6 20:49
过滤器：
                    {0, "line"},
                    {-4, ""},

能写一个吗？新手看不懂

ZZXXQQ

1. (if (> (sslength(ssget
   
2.        (list '(0 . "LINE")
   
3.         '(-4 . "<or")
   
4.         '(-4 . "<and") (cons 10 pt1) (cons 11 pt2) '(-4 . "and>")
   
5.         '(-4 . "<and") (cons 10 pt2) (cons 11 pt1) '(-4 . "and>")
   
6.         '(-4 . "or>")
   
7.        ))) 0)
   
8. (princ "有直线")
   
9. (princ "无直线")
   
10. )
    

复制代码