已解决 修改判断顺时针逆时针的代码

cz7873559

大家好，以前找了个判断多线段顺时针还是逆时针的的代码，现在想用，发现有些功能可以再优化。麻烦高手能否帮我改改：
1、支持框选多线和二维多线段。
2、把逆时针的多线段或二维多线段变成绿色。
代码如下：

2. (defun C:tt (/ ss fd ang offsetObj plineObj)
   
3. 
   
4.   (if (setq ss (ssget ":s" '((0 . "*POLYLINE"))))
   
5. 
   
6.     (progn
   
7. 
   
8.       (setq plineObj (vlax-ename->vla-object (ssname ss 0)))
   
9. 
   
10.           ;(setq fd (vlax-curve-getFirstDeriv plineObj 0.5))
    
11. 
    
12.           ;(setq ang (atan (/ (cadr fd) (car fd))))
    
13. 
    
14.       (setq offsetplineObj
    
15.        (car (vlax-safearray->list
    
16. 
    
17.         (vlax-variant-value
    
18. 
    
19.           (vla-OFFSET plineObj 0.0001)
    
20.         )
    
21.       )
    
22.        )
    
23.       )
    
24. 
    
25.       (if (> (vlax-curve-getdistatparam
    
26. 
    
27.          plineobj
    
28. 
    
29.          (vlax-curve-getEndParam plineobj)
    
30. 
    
31.        ) ;_ 结束vlax-curve-getdistatparam
    
32. 
    
33.        (vlax-curve-getdistatparam
    
34. 
    
35.          offsetplineObj
    
36. 
    
37.          (vlax-curve-getEndParam offsetplineObj)
    
38. 
    
39.        ) ;_ 结束vlax-curve-getdistatparam
    
40.     )
    
41. 
    
42.   (princ "\n顺时针.")
    
43.   (princ "\n逆时针.")
    
44. 
    
45.       )
    
46. 
    
47.       (vla-delete offsetplineObj)
    
48. 
    
49.     )          ;progn
    
50. 
    
51.     (princ "\n没有选择多段线.")
    
52. 
    
53.   )          ;end_if
    
54. 
    
55.   (princ)
    
56. 
    
57. )

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

zxq0220

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

;判断顺逆时针<br /> (defun C:tt (/ ss fd ang offsetObj plineObj)<br /> (if (setq ss (ssget '((0 . "*POLYLINE")))) (progn<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq plineObj (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))<br />           ;(setq fd (vlax-curve-getFirstDeriv plineObj 0.5))<br />           ;(setq ang (atan (/ (cadr fd) (car fd))))<br />    (setq offsetplineObj<br />     (car (vlax-safearray->list<br />      (vlax-variant-value (vla-OFFSET plineObj 0.0001))<br />      )<br />     )<br />    )<br />    (if (> (vlax-curve-getdistatparam plineobj (vlax-curve-getEndParam plineobj))<br />      (vlax-curve-getdistatparam offsetplineObj<br />       (vlax-curve-getEndParam offsetplineObj)<br />      )<br />     )<br />    (princ); (princ "\n顺时针.")<br />    (vla-put-color plineobj 3) ;(princ "\n逆时针.")<br />   )<br />   (vla-delete offsetplineObj)<br /> )          ;progn<br />   (princ "\n没有选择多段线.")<br /> )          ;if<br /> (princ)<br /> )<br />

Free-Lancer

XDRXAPI + XD-Lisp-Lib

1. (defun c:tt (/ ss pts)
   
2.   (if (setq ss (ssget '((0 . "*polyline"))))
   
3.     (progn
   
4.       (xdrx_setsstodb ss 0)
   
5.       (while (setq e (xdrx_getentdata 0))
   
6.     (setq pts (xdrx_getsamplept e))
   
7.     (if (not (XD::Pnts:isClockWise pts))
   
8.       (xdrx_setpropertyvalue e "color" 3)
   
9.     )
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ ss pts)<br />   (if (setq ss (ssget '((0 . "*polyline"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />     (setq pts (xdrx_getsamplept e))<br />     (if (not (XD::Pnts:isClockWise pts))<br />       (xdrx_setpropertyvalue e "color" 3)<br />     )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

cz7873559

很好的代码！！！真不愧是高手。非常感谢~

cz7873559

也非常感谢zxq0220，非常不好意思，刚才我点快了点到反对去了。。。
你的代码一样能达到检查逆时针多线段的效果。
但是在遇到多线段有回头线的时候 就会报错：; 错误: Automation 错误。未提供说明。
我附上了样图。
麻烦你看看，能否判别出来含有回头线的多线段，并且也把颜色变了么？

cz7873559

也非常感谢zxq0220，非常不好意思，刚才我点快了点到反对去了。。。
你的代码一样能达到检查的效果。
但是在遇到多线段有回头线的时候 就会报错：; 错误: Automation 错误。未提供说明。
我附上了样图。
麻烦你看看，能否判别出来含有回头线的多线段，并且也把颜色变了么？