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

vken7az2p

求助：[0114]怎样判断选取的两线段是顺时针还是逆时针方向呢?
附上图面
问题:
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")

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

vken7az2p

小弟想到可以这样判断:

(cond
((< angen1 angen2) (setq cworccw - ))
((> angen1 angen2) (setq cworccw + ))
;;;((= angen1 angen2) (PRINC "zero"))
;;;该怎样判断两线同样角度时?
)
;;判断顺时针或逆时针

但阵列这里就不知道了~"顺逆时针方向+角度值?"

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

yshf

用角度判断还必须考虑直线段起点、止点谁距交点最近，另外还必须考虑选择两直线段的先后顺序。

yshf

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

vken7az2p

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

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

vken7az2p

请问是这样下达命令吗?

(setq ob (snsj en1 en2))
(cond
((= ob t) (PRINC "顺时针"))
((= ob nil) (PRINC "逆时针"))
)

vken7az2p

函数snsj的内容可以提供一下吗

想了解一下是怎样过程.

另外关於array 指令中

,如角度相同,该怎样判断是顺向或逆向呢?

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

ljpnb

这个程序有几点不明白：

1.选择两条线为何目的,是不是作阵列方向参考用?

2.这句(setq ard (- (* pi 2) (- (angle pt0 p1n11) (angle pt0 p2n11)) ))结果肯定不是整数,而阵列数目需要输入一个整数的变量,所以这个"ard"的变量肯定用的不对

vken7az2p

感谢  ljpnb  您的解答
其实我做程序的问题
是要在我选的两线段中间做旋转阵列
但目前的问题
在于选取两线时的顺序位置上
会造成旋转阵列不在我要的位置上
另外若是两线段平行
该怎样检查以阻止程序中断进行

附图说明:
01.选取线段A与线段B为平行该怎样进行检查及中断
02.当选取的线段A,与另一线段为"逆时针"或是"顺时针"
该怎样再旋转阵列中判断呢?

以上就是我的程序问题

yshf

其实不别搞得那么复杂，用下程序即解决问题

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

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