如何实现：逆时针输出CAD线段的坐标？

liu_gvip

按照逆时针顺序，如何输出CAD图中线段的坐标（如果是多段线，则依次按照逆时针输出各点的x和y坐标。）
请问，该如何实现？关键是逆时针是如何设置的？谢谢！盼复！

十二月

这是一个数学问题，先不管如何取得一系列的点序列，假设你已经有依序排好的点串列，只剩如何判断这串列的顺序是逆时钟还是顺时钟。
6 e0 N9 x1 {5 _6 }  J8 `+ z$ e基本原理是，从这些点串列所围成的封闭区域中找任意点，或是边上的一点(点a)，再由边上的其它连续两点(点b丶点c)对这个点所形成的角度，依序取其角度之正弦值(sin(点b-点a-点c))，相加後大於零则表示此序列为逆时钟方向，反之小於零，则为顺时钟方向。
, H7 Q" h6 t  t底下为示范例子：
7 I4 e3 h* m( I6 ~. E* a" ]( s& u4 {* \ttt为子程序名，p123n(举例：((0.0 0.0 0.0) (1.0 0.0 0.0) (0.5 1.0 0.0))为点串列，
. r) k! D0 v( z# ~则执行 (ttt '((0.0 0.0 0.0) (1.0 0.0 0.0) (0.5 1.0 0.0))) 後得到 1.98... > 0
" j# n/ R5 @# r) f" T) C- M7 ]表示此序列为逆时钟方向。

! r- S+ \$ ?; e# [* M原程序：
. S! t# r+ M# B! [# v5 h* ](defun ttt (p123n / pt p23n1 r s)
, s# |) x% ^- k  (setq pt (mapcar '(lambda(a b) (/ (+ a b) 2.0)) (car p123n) (cadr p123n))
+ k7 }  |; U* T4 _7 X p23n1 (append (cdr p123n) (list (car p123n)))
r     0.0
  )
4 S; G* \9 \- @. |. A" K) W  (mapcar '(lambda (a b / s)
      (setq s (sin (- (angle pt a) (angle pt b)))
     r (+ r s)
      )
- Z+ J0 P; [: N' ?  C    )
   p123n
, q8 L% f6 S" D3 g  d( K' i" z   p23n1
( ^( T- Y- t3 _1 W3 j  )
+ e, F$ R8 N0 r- W( e. I  r
# a: k* ^) G  t: f$ N; X9 ~)
- O0 _% i" J6 x
附加叙述，上述原理所提的任意点(点a)，最好是确定在区域中的一点，边上点的选择不是最理想的，若是顶角点，那更糟糕，有时会得出等於零的结果，一样无法辨别方向。

SunVei

...关键是逆时针是如何设置的...

; v! P0 Z2 N  N2 ]7 Z
# j& o9 c, z% x: m! Bhttp://www.4d-technologies.com/techcenter/index.htm
==>
GE_WhatPoly [ Find the direction of the polygon (if Cw or CCw) ]
# f0 {: |4 ~7 o' A: T) T(http://www.4d-technologies.com/techcenter/geom/ge_whatpoly.lsp)
9 Y* s, A2 M2 R7 F' cif CW ==> http://discussion.autodesk.com/forums/thread.jspa?threadID=292585

[ 本帖最后由 SunVei 于 2009-10-16 21:50 编辑 ]