lisp中怎样判断绘制的多段线是顺时针还是逆时针绘制的

南林浣风

lisp中怎样判断绘制的闭合多段线是顺时针还是逆时针绘制的


该贴已经同步到 南林浣风的微博

479274135

真是好多高手出手呀  此贴么白来学习不少

重慶崽兒

额  多段线好像没有顺时针和逆时针之分吧

434939575

http://bbs.mjtd.com/forum.php?mo ... =%C4%E6%CA%B1%D5%EB

434939575

答案在那里

南林浣风

434939575 发表于 2015-4-16 21:22
答案在那里

好的，谢谢哥们了

llsheng_73

1. (defun Pldir(pts)
   
2.   (<(apply'+(mapcar'(lambda(x y)(-(*(car x)(cadr y))(*(car y)(cadr x))))pts(append(cdr pts)(list(car pts)))))0))
   
3. (defun plinexy(e / p i)
   
4.   (setq i -1)
   
5.   (mapcar(function(lambda(x)(list(car x)(cadr x))))(reverse(repeat(fix(1+(vlax-curve-getEndParam e)))
   
6.     (setq i(1+ i)p(cons(vlax-curve-getPointAtParam e i)p)))))
   
7.   (if(equal(car p)(last p))(reverse(cdr(reverse p)))p)
   
8.   )
   

(defun Pldir(pts)<br />   (<(apply'+(mapcar'(lambda(x y)(-(*(car x)(cadr y))(*(car y)(cadr x))))pts(append(cdr pts)(list(car pts)))))0))<br /> (defun plinexy(e / p i)<br />   (setq i -1)<br />   (mapcar(function(lambda(x)(list(car x)(cadr x))))(reverse(repeat(fix(1+(vlax-curve-getEndParam e)))<br />     (setq i(1+ i)p(cons(vlax-curve-getPointAtParam e i)p)))))<br />   (if(equal(car p)(last p))(reverse(cdr(reverse p)))p)<br />   )<br />

(setq e(car(entsel"选择闭合多线段")))
(alert(if (Pldir(plinexy e))"逆时针""顺时针")

自贡黄明儒

1. ;;182 [功能] 曲线方向判断
   
2. (defun Curve:Direction (curve / box params)
   
3.   (setq        box    (_pnts:box (Entity:Box curve))
   
4.         params (mapcar
   
5.                  '(lambda (x)
   
6.                     (vlax-curve-getParamAtPoint
   
7.                       curve
   
8.                       (vlax-curve-getClosestPointTo curve x)
   
9.                     )
   
10.                   )
    
11.                  box
    
12.                )
    
13.   )
    
14.   (or
    
15.     (apply '<= params)
    
16.     (<= (cadr lst) (caddr params) (cadddr params) (car params))
    
17.     (<=        (caddr params)
    
18.         (cadddr params)
    
19.         (car params)
    
20.         (cadr params)
    
21.     )
    
22.     (<=        (cadddr params)
    
23.         (car params)
    
24.         (cadr params)
    
25.         (caddr params)
    
26.     )
    
27.   )
    
28. )

;;182 [功能] 曲线方向判断<br /> (defun Curve:Direction (curve / box params)<br />   (setq        box    (_pnts:box (Entity:Box curve))<br />         params (mapcar<br />                  '(lambda (x)<br />                     (vlax-curve-getParamAtPoint<br />                       curve<br />                       (vlax-curve-getClosestPointTo curve x)<br />                     )<br />                   )<br />                  box<br />                )<br />   )<br />   (or<br />     (apply '<= params)<br />     (<= (cadr lst) (caddr params) (cadddr params) (car params))<br />     (<=        (caddr params)<br />         (cadddr params)<br />         (car params)<br />         (cadr params)<br />     )<br />     (<=        (cadddr params)<br />         (car params)<br />         (cadr params)<br />         (caddr params)<br />     )<br />   )<br /> )

Gu_xl

(XLRX-ClockWiseP Curve)

AbnerXk

南林浣风

434939575 发表于 2015-4-16 21:21
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85286&highlight=%C4%E6%CA%B1%D5%EB

哥们，这个程序有问题啊，运行不了，能不能帮我改改