判断逆顺时针的方法

Lispboy

上面求BULGE方法的引申，主要介绍下ARX 几何库的使用

1. ;|
   
2. BULGE方法，引申
   
3. |;
   
4. (defun XD::Pnts:IsClockWise (p1 p2 p3 / bulge gearc gepoly)
   
5.   (if (and
   
6.         (setq gearc (xdge::constructor "kCircArc2d" p1 p2 p3))  ;;构建AcGeCircArc2d几何实体，上面看了起始有它就直接判断了。
   
7.         (setq gepoly (xdge::constructor "kCompositeCrv2d"))    ;;构建AcGeCompositeCrv2d
   
8.         (xdge::setpropertyvalue gepoly "setcurvelist" gearc)      ;;把圆弧几何实体放入AcGeCompositeCrv2d容器
   
9.         (xdge::entity:make gepoly)                                            ;;生成数据库LWPOLYLINE实体
   
10.       )
    
11.     (progn
    
12.       (setq bulge (xdrx_polyline_getbulgeAt (entlast) 0))           ;;求BULGE
    
13.       (entdel (entlast))                                                               ;;删除临时POLYLINE
    
14.       (xdge::free (list gearc gepoly))                                         ;;是否几何实体内存
    
15.       (< bulge 0.0)
    
16.     )
    
17.   )
    
18. )
    
19. 
    

;|<br /> BULGE方法，引申<br /> |;<br /> (defun XD::Pnts:IsClockWise (p1 p2 p3 / bulge gearc gepoly)<br />   (if (and<br />         (setq gearc (xdge::constructor "kCircArc2d" p1 p2 p3))  ;;构建AcGeCircArc2d几何实体，上面看了起始有它就直接判断了。<br />         (setq gepoly (xdge::constructor "kCompositeCrv2d"))    ;;构建AcGeCompositeCrv2d<br />         (xdge::setpropertyvalue gepoly "setcurvelist" gearc)      ;;把圆弧几何实体放入AcGeCompositeCrv2d容器<br />         (xdge::entity:make gepoly)                                            ;;生成数据库LWPOLYLINE实体<br />       )<br />     (progn<br />       (setq bulge (xdrx_polyline_getbulgeAt (entlast) 0))           ;;求BULGE<br />       (entdel (entlast))                                                               ;;删除临时POLYLINE<br />       (xdge::free (list gearc gepoly))                                         ;;是否几何实体内存<br />       (< bulge 0.0)<br />     )<br />   )<br /> )<br /> <br />

Lispboy

有找到一个方法，API的xdrx_geom_3p2arc



命令: (xdrx_geom_3p2Arc p1 p3 p2)
(nil (1981.25 630.073 0.0) 398.374 0.171547 3.91268)
命令: (xdrx_geom_3p2Arc p1 p2 p3)
(T (1981.25 630.073 0.0) 398.374 3.91268 1.9852)

1. (defun XD::Pnts:IsClockWise (p1 p2 p3 / bulge gearc gepoly)
   
2.   (not (car (xdrx_geom_3p2Arc p1 p2 p3)))
   
3. )
   
4. 
   

(defun XD::Pnts:IsClockWise (p1 p2 p3 / bulge gearc gepoly)<br />   (not (car (xdrx_geom_3p2Arc p1 p2 p3)))<br /> )<br /> <br />

命令: (XD::PNTS:ISCLOCKWISE p1 p2 p3)
T

st788796

Lispboy 发表于 2014-11-25 21:06
上面求BULGE方法的引申，主要介绍下ARX 几何库的使用

有Com3d了不可以直接判断顺逆？