【求助】如何判断一个闭合图形是顺时针还是逆时针

jackynine

例： 假设图上有个任意的闭合图形，在用entsel 选取图元时 如何让其自动判断这个图元是顺时针还是逆时针??
还请不吝赐教！先行谢过~~

ztj988

看不出这个顺时针和逆时针的结果有什么规律，也就是说，是以什么方法来定规则的

magicheno

很好用，感谢G版大佬分享

satan421

感谢分享 学习一下

Gu_xl

回复 jackynine 的帖子

1. (defun C:tt(/ ss fd ang offsetObj plineObj)
   
2.   (if (setq ss (ssget ":s" '((0 . "*POLYLINE"))))
   
3.    (progn
   
4.     (setq plineObj (vlax-ename->vla-object (ssname ss 0)))
   
5.     ;(setq fd (vlax-curve-getFirstDeriv plineObj 0.5))
   
6.     ;(setq ang (atan (/ (cadr fd) (car fd))))
   
7.     (setq offsetplineObj (car (vlax-safearray->list
   
8.       (vlax-variant-value
   
9.         (vla-OFFSET plineObj 0.0001)))))
   
10.     (if (> (vlax-curve-getdistatparam
    
11.            plineobj
    
12.            (vlax-curve-getEndParam plineobj)
    
13.          ) ;_ 结束vlax-curve-getdistatparam
    
14.          (vlax-curve-getdistatparam
    
15.            offsetplineObj
    
16.            (vlax-curve-getEndParam offsetplineObj)
    
17.          ) ;_ 结束vlax-curve-getdistatparam
    
18.       )
    
19.        (princ "\n顺时针.")
    
20.        (princ "\n反时针.")
    
21.     )
    
22.     (vla-delete offsetplineObj)
    
23.    );progn
    
24.    (princ "\n没有选择多段线.")
    
25. );end_if
    
26. (princ)
    
27. )
    

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

jackynine

版主很热心，刚发的贴子就回过来了。

jackynine

回复 Gu_xl 的帖子

你很热心，祝贺你成为版主，刚来社区 看到自己的帖子有回复感到很高兴。谢谢了

zhb236623

回复 Gu_xl 的帖子

当闭合线中有直角时提示错误要怎么解决呢。。; 错误: 除数为零，要怎么解决呢。这个直角是通过正交模式下画的，（按F8开正交下画的），如果不按正交画的直角则没有问题。

jackynine

忘记回复了，我的问题已解决。谢谢

Gu_xl

回复 zhb236623 的帖子

第5、第6行代码忘了注释掉了！

zhb236623

回复 Gu_xl 的帖子

多谢Gu_xl ，程序可用。

kob5891

  好贴子 正在找这方面的  谢谢