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

yzf_fs · 发表于 2013-11-3 10:43:59

您需要登录才可以下载或查看，没有账号？立即注册

×

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

(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 · 发表于 2013-11-3 10:44:39

newer · 发表于 2013-11-3 12:13:03

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

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

yzf_fs · 发表于 2013-11-3 14:44:59

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

具体怎么判断

st788796 · 发表于 2013-11-3 16:14:41

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

XDSoft · 发表于 2013-11-4 08:29:43

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

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

why1025 · 发表于 2015-3-25 10:04:04

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

ARX现成的代码在哪

账号		自动登录	找回密码
密码			立即注册

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