在论坛上看到一段判断多线段顺时针还是逆时针的的LISP代码，可是没学lisp

yzf_fs

在论坛上看到一段判断多线段顺时针还是逆时针的的LISP代码，可是没学lisp看不懂，哪位高手能解释一下原理啊

1. (defun C:tt (/ ss fd ang offsetObj plineObj)  (if (setq ss (ssget ":s" '((0 . "*POLYLINE"))))    (progn      (setq plineObj (vlax-ename->vla-object (ssname ss 0)))          ;(setq fd (vlax-curve-getFirstDeriv plineObj 0.5))          ;(setq ang (atan (/ (cadr fd) (car fd))))      (setq offsetplineObj       (car (vlax-safearray->list        (vlax-variant-value          (vla-OFFSET plineObj 0.0001)        )      )       )      )      (if (> (vlax-curve-getdistatparam         plineobj         (vlax-curve-getEndParam plineobj)       ) ;_ 结束vlax-curve-getdistatparam       (vlax-curve-getdistatparam         offsetplineObj         (vlax-curve-getEndParam offsetplineObj)       ) ;_ 结束vlax-curve-getdistatparam    )  (princ "\n顺时针.")  (princ "\n逆时针.")      )      (vla-delete offsetplineObj)    )          ;progn    (princ "\n没有选择多段线.")  )          ;end_if  (princ))

(defun C:tt (/ ss fd ang offsetObj plineObj)  (if (setq ss (ssget ":s" '((0 . "*POLYLINE"))))    (progn      (setq plineObj (vlax-ename->vla-object (ssname ss 0)))          ;(setq fd (vlax-curve-getFirstDeriv plineObj 0.5))          ;(setq ang (atan (/ (cadr fd) (car fd))))      (setq offsetplineObj       (car (vlax-safearray->list        (vlax-variant-value          (vla-OFFSET plineObj 0.0001)        )      )       )      )      (if (> (vlax-curve-getdistatparam         plineobj         (vlax-curve-getEndParam plineobj)       ) ;_ 结束vlax-curve-getdistatparam       (vlax-curve-getdistatparam         offsetplineObj         (vlax-curve-getEndParam offsetplineObj)       ) ;_ 结束vlax-curve-getdistatparam    )  (princ "\n顺时针.")  (princ "\n逆时针.")      )      (vla-delete offsetplineObj)    )          ;progn    (princ "\n没有选择多段线.")  )          ;end_if  (princ))

yzf_fs

原帖在这里http://bbs.xdcad.net/forum.php?m ... p;page=1#pid3487336

newer

yzf_fs 发表于 2013-11-3 10:44
原帖在这里http://bbs.xdcad.net/forum.php?mod=viewthread&tid=670718&page=1#pid3487336

没测试过，看代码，是偏移曲线，然后判断起始参数、终止参数的关系。

yzf_fs

newer 发表于 2013-11-3 12:13
没测试过，看代码，是偏移曲线，然后判断起始参数、终止参数的关系。

具体怎么判断

st788796

用原pline总长度与offset后一个正值0.5后的pline总长度比较，原来的长就是顺时针，新的长就是逆时针

XDSoft

yzf_fs 发表于 2013-11-3 14:44
具体怎么判断

你用ARX，就没必要用上面的LISP的算法了，ARX有现成的。

why1025

XDSoft 发表于 2013-11-4 08:29
你用ARX，就没必要用上面的LISP的算法了，ARX有现成的。

ARX现成的代码在哪