[求助]：[0114]怎样判断选取的两线段是顺时针还是逆时针方向呢?

xyz518mm

附上图面
问题:
01.怎样判断选取的两线段是顺时针还是逆时针方向呢?
02.想依据得到的方向
填入再环形阵列中再顺时针及逆时针角度值
即下面程序中的 "顺逆时针方向+角度值?"

以下是目前写出来的程式,但尚不完整
(setq en1 (car (entsel "\n 选取一线段:")))
(setq bj (entlast))
(setq p1n10 (cdr (assoc 10 (entget en1))))
(setq p1n11 (cdr (assoc 11 (entget en1))))
(setq en2 (car (entsel "\n 选取另一线段:")))
(setq p2n10 (cdr (assoc 10 (entget en2))))
(setq p2n11 (cdr (assoc 11 (entget en2))))
(setq pt0 (inters p1n10 p1n11 p2n10 p2n11 nil))
(setq ard (- (* pi 2) (- (angle pt0 p1n11) (angle pt0 p2n11)) ))
(setq angen1 (angle pt0 p1n11))
(setq angen2 (angle pt0 p2n11))

(command "-array" en1 "" "p" pt0  ard "顺逆时针方向+角度值?" "y")

烦请各位高手可以帮忙解答一下
谢谢

yshf

使用附件中的函数snsj[调用方式为：(snsj 直线段1 直线段2)]可以进行判断，
顺时针返回"T"；逆时针返回"nil";两直线段平行或重合返回"0"。

xyz518mm

谢谢楼主的程序
但小弟愚笨
想再请问一下
传回的 T = 顺时针
该怎样编写呢?
另外这个 T  又该怎样带入
阵列的角度中呢? " T 顺 NIL 逆时针方向+角度值?" "
(command "-array" en1 "" "p" pt0 ard "顺逆时针方向+角度值?" "y")

烦请可以再帮忙解答一下
谢谢~

WHGF

如果线的首尾点颠倒时，用以上方法计算结果可能不正确．而且用的种方法定义一条线是顺时针或逆时针也不准确．逆时针或顺时针是对封闭线而言．

yshf

2. ;请试用以下小程序
   
3. ;因两条直线段的顺、逆时针是相对的，故要求输入阵列方向
   
4. (defun c:cc()
   
5.    (setq cm (getvar "cmdecho"))(setvar "cmdecho" 0)
   
6.    (while (setq en1 (car (entsel "\n请选择直线段1:")))
   
7.       (setq en2 (car (entsel "\n请选择直线段2:"))
   
8.             num (getint "\n输入阵列中项目的数目<10>:")
   
9.             nbz (getint "\n请指定阵列方向(1.逆时针/2.顺时针)<1>:")
   
10.             db1 (entget en1)
    
11.             p11 (cdr (assoc 10 db1)) p12 (cdr (assoc 11 db1))
    
12.             db2 (entget en2)
    
13.             p21 (cdr (assoc 10 db2)) p22 (cdr (assoc 11 db2))
    
14.        )
    
15.        (if (= num nil)(setq num 10))
    
16.        (if (= nbz nil)(setq nbz 1))
    
17.        (if (setq po (inters p11 p12 p21 p22 nil))
    
18.           (progn
    
19.             (setq da (- (angle po p21) (angle po p11)))
    
20.             (if (< da 0)(setq da (+ da (* 2.0 pi))))
    
21.             (if (/= nbz 1)
    
22.                 (setq da (strcat "-" (angtos (- (* 2.0 pi) da) 1 6)))
    
23.                 (setq da (angtos da 1 6))
    
24.             )
    
25.             (command "_array" en1 "" "p" po num da "y")
    
26.           )
    
27.           (if (= (abs (- (angle p21 p22) (angle p11 p12))) pi)
    
28.               (alert "所选择的两条直线段共线！")
    
29.               (alert "所选择的两条直线段平行！")
    
30.           )
    
31.        )
    
32.    )
    
33.    (setvar "cmdecho" cm)(princ)
    
34. )

;请试用以下小程序<br /> ;因两条直线段的顺、逆时针是相对的，故要求输入阵列方向<br /> (defun c:cc()<br />    (setq cm (getvar "cmdecho"))(setvar "cmdecho" 0)<br />    (while (setq en1 (car (entsel "\n请选择直线段1:")))<br />       (setq en2 (car (entsel "\n请选择直线段2:"))<br />             num (getint "\n输入阵列中项目的数目<10>:")<br />             nbz (getint "\n请指定阵列方向(1.逆时针/2.顺时针)<1>:")<br />             db1 (entget en1)<br />             p11 (cdr (assoc 10 db1)) p12 (cdr (assoc 11 db1))<br />             db2 (entget en2)<br />             p21 (cdr (assoc 10 db2)) p22 (cdr (assoc 11 db2))<br />        )<br />        (if (= num nil)(setq num 10))<br />        (if (= nbz nil)(setq nbz 1))<br />        (if (setq po (inters p11 p12 p21 p22 nil))<br />           (progn<br />             (setq da (- (angle po p21) (angle po p11)))<br />             (if (< da 0)(setq da (+ da (* 2.0 pi))))<br />             (if (/= nbz 1)<br />                 (setq da (strcat "-" (angtos (- (* 2.0 pi) da) 1 6)))<br />                 (setq da (angtos da 1 6))<br />             )<br />             (command "_array" en1 "" "p" po num da "y")<br />           )<br />           (if (= (abs (- (angle p21 p22) (angle p11 p12))) pi)<br />               (alert "所选择的两条直线段共线！")<br />               (alert "所选择的两条直线段平行！")<br />           )<br />        )<br />    )<br />    (setvar "cmdecho" cm)(princ)<br /> )

tctabc

真是不错的解答

来去用看看吧

另外若是两线的端点有连在一起时

呈现类似 <  形状

是否也可以用这程序呢

yshf

不可以

yxljx

4楼说得对，逆时针或顺时针是对封闭线而言．