[LISP]一个实用的LISP程序

kerrywm

以下程序用来判断多义线的时针方向

(DEFUN GE_WHATPOLY (OBJ / NVERTS CNT TMP X1 Y1);;;
  (SETQ PT_LIST(VLA-GET-COORDINATES OBJ))
  (SETQ CNT 0)
  (SETQ NVERTS(/ (+(VLAX-SAFEARRAY-GET-U-BOUND (VLAX-VARIANT-VALUE PT_LIST ) 1)1) 2))
  (SETQ AREA 0.0)
  (WHILE (< CNT (1- NVERTS))
    (SETQ Y1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) (+(* CNT 2)1)))
    (SETQ X1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) (* (+ CNT 1) 2)))
    (SETQ AREA(+ AREA (* Y1 X1)))
    (SETQ CNT(1+ CNT))
    )
  (SETQ Y1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) (+(* CNT 2)1)))
  (SETQ X1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) 0))
  (SETQ AREA(+ AREA(* Y1 X1)))
  (SETQ CNT 0)
  (SETQ TMP 0.0)
  (WHILE (< CNT (1- NVERTS))
    (SETQ Y1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) (+(* (+ CNT 1) 2)1)))
    (SETQ X1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST ) (* CNT 2)))
    (SETQ TMP(+ TMP (* Y1 X1)))
    (SETQ CNT(+ CNT 1))
    )
  (SETQ Y1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST )1))
  (SETQ X1(VLAX-SAFEARRAY-GET-ELEMENT (VLAX-VARIANT-VALUE PT_LIST)(* CNT 2)))
  (SETQ TMP(+ TMP (* Y1 X1)))
  (SETQ AREA(- AREA TMP))
  (COND
    ((< AREA 0.0) (SETQ AREA -1))
    ((> AREA 0.0) (SETQ AREA 1))
    (T (SETQ AREA 0))
    )
  AREA
  )

对不住大家，程序没有注解，如果返回值为正，则曲线为顺时针方向。

mccad

多谢共享，为大家提供一种新的方法。

另外一种方法是偏移法，利用AX中的偏移法，几行代码就可完成。可查看源码共享版块。

wxa123wl

mccad 发表于 2006-11-30 08:24
多谢共享，为大家提供一种新的方法。
另外一种方法是偏移法，利用AX中的偏移法，几行代码就可完成。可查看 ...

哪里呢，给个链接