XDGE几何库应用(18)--AcGeCurveCurveInt3d简介

st788796

AcGe 类库中，除了 AcGeLinearEnt AcGeCircArc  AcGeEllipArc 有 intersectWith() 方法，其它曲线求交只能使用这个相交体

另外求 Pline 自相交点时可以将 CompositeCrv3d 构造自己和自己的相交体
参见 http://www.xdcad.net/forum/forum.php?mod=redirect&goto=findpost&ptid=675963&pid=3529921

构造方法

1 (setq gcc (xdge::constructro "kCurveCurveInt3d"))
默认构造，构造完成后可以使用 set 方法添加组成构造体的 GeCurve

2 (setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2 normal)

3 (setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2 interval1 interval2 normal)
构造曲线的一部分间相交体，interval 是 AcGeInterval  实体

一个测试

1. (defun c:tt (/ e1 e2 ge1 ge2 gcc n i ptl pl)
   
2.   (if
   
3.     (and (setq
   
4.            e1 (car (xdrx_entsel
   
5.                      "\nPick Curve1: "
   
6.                      '((0 . "*Polyline,Line,spline,circle,ellipse,arc"))
   
7.                    )
   
8.               )
   
9.          )
   
10.          (setq
    
11.            e2 (car (xdrx_entsel
    
12.                      "\nPick Curve1: "
    
13.                      '((0 . "*Polyline,Line,spline,circle,ellipse,arc"))
    
14.                    )
    
15.               )
    
16.          )
    
17.          (setq ge1 (xdge::constructor e1)) ;_构造曲线一的 GeCurve
    
18.          (setq ge2 (xdge::constructor e2)) ;_构造曲线一的 GeCurve
    
19.          (setq gcc (xdge::constructor "kCurveCurveInt3d")) ;_构造曲线相交体
    
20.          (xdge::setpropertyvalue
    
21.            gcc
    
22.            "set"
    
23.            ge1
    
24.            ge2
    
25.            (xdrx_getpropertyvalue e1 "Normal")
    
26.          )
    
27.          (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0) ;_判断交点数量
    
28.     )
    
29.      (progn
    
30.        (xdge::getpropertyvalue gcc "orderWrt2") ;_将交点按曲线一的参数排升序
    
31.        (setq i -1)
    
32.        (repeat n
    
33.          (setq ptl
    
34.                    (cons
    
35.                      (xdge::getpropertyvalue gcc "intPoint" (setq i (1+ i))) ;_索引处交点
    
36.                      ptl
    
37.                    )
    
38.                pl  (cons (xdge::getpropertyvalue gcc "getIntParams" i) pl) ;_交点索引处参数(位于两个曲线上的)
    
39.          )
    
40.        )
    
41.        (princ "\n第一条曲线交点参数为: ")
    
42.        (princ (mapcar 'car pl)) ;_曲线一上的交点参数
    
43.        (princ "\n第二条曲线交点参数为: ")
    
44.        (princ (mapcar 'cadr pl)) ;_曲线一上的交点参数
    
45.        (setq i 0)
    
46.        (mapcar
    
47.          '(lambda (x)
    
48.             (xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i)))
    
49.           )
    
50.          ptl
    
51.        )
    
52.      )
    
53.   )
    
54.   (xdge::free)
    
55.   (princ)
    
56. )

(defun c:tt (/ e1 e2 ge1 ge2 gcc n i ptl pl)<br />   (if<br />     (and (setq<br />            e1 (car (xdrx_entsel<br />                      "\nPick Curve1: "<br />                      '((0 . "*Polyline,Line,spline,circle,ellipse,arc"))<br />                    )<br />               )<br />          )<br />          (setq<br />            e2 (car (xdrx_entsel<br />                      "\nPick Curve1: "<br />                      '((0 . "*Polyline,Line,spline,circle,ellipse,arc"))<br />                    )<br />               )<br />          )<br />          (setq ge1 (xdge::constructor e1)) ;_构造曲线一的 GeCurve<br />          (setq ge2 (xdge::constructor e2)) ;_构造曲线一的 GeCurve<br />          (setq gcc (xdge::constructor "kCurveCurveInt3d")) ;_构造曲线相交体<br />          (xdge::setpropertyvalue<br />            gcc<br />            "set"<br />            ge1<br />            ge2<br />            (xdrx_getpropertyvalue e1 "Normal")<br />          )<br />          (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0) ;_判断交点数量<br />     )<br />      (progn<br />        (xdge::getpropertyvalue gcc "orderWrt2") ;_将交点按曲线一的参数排升序<br />        (setq i -1)<br />        (repeat n<br />          (setq ptl<br />                    (cons<br />                      (xdge::getpropertyvalue gcc "intPoint" (setq i (1+ i))) ;_索引处交点<br />                      ptl<br />                    )<br />                pl  (cons (xdge::getpropertyvalue gcc "getIntParams" i) pl) ;_交点索引处参数(位于两个曲线上的)<br />          )<br />        )<br />        (princ "\n第一条曲线交点参数为: ")<br />        (princ (mapcar 'car pl)) ;_曲线一上的交点参数<br />        (princ "\n第二条曲线交点参数为: ")<br />        (princ (mapcar 'cadr pl)) ;_曲线一上的交点参数<br />        (setq i 0)<br />        (mapcar<br />          '(lambda (x)<br />             (xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i)))<br />           )<br />          ptl<br />        )<br />      )<br />   )<br />   (xdge::free)<br />   (princ)<br /> )

st788796

XDAPI 中 xdrx_polyline_xtrim 自相交点断开的 Lisp 方式

1. (defun Polyline:XTrim (e / ge gcc n i lst rangs pams)
   
2.   (if (and (setq ge (xdge::constructor e))
   
3.            (setq gcc (xdge::constructor "kCurveCurveInt3d"));_最新版本直接构造方法无效
   
4.            (xdge::setpropertyvalue gcc "set" ge ge '(0. 0. 1.));_用 set 方法构造
   
5.            (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0)
   
6. 
   
7.       )
   
8.     (progn
   
9.       (setq i -1)
   
10.       (repeat n
    
11.         (setq lst (cons        (xdge::getpropertyvalue
    
12.                           gcc
    
13.                           "getIntParams"
    
14.                           (setq i (1+ i))
    
15.                         )
    
16.                         lst
    
17.                   ) ;_这里的参数是长度
    
18.         )
    
19.       )
    
20.       (setq pams
    
21.              (vl-sort
    
22.                (mapcar
    
23.                  '(lambda (x)
    
24.                     (apply '+
    
25.                            (xdge::getpropertyvalue ge "globalToLocalParam" x)
    
26.                     ) ;_转换为本地参数
    
27.                   )
    
28.                  (mapcar 'car lst)
    
29.                )
    
30.                '<
    
31.              )
    
32.       )
    
33.       (apply 'xdrx_curve_getsplitcurves (cons e pams));_目前API版本该方法无效了，期待下一版本改进
    
34.     )
    
35.   )
    
36.   (xdge::free)
    
37.   t
    
38. )
    
39. (defun c:tt (/ e)
    
40.   (if (setq e (car (xdrx_entsel "\npick pline: " '((0 . "lwpolyline")))))
    
41.     (polyline:xtrim e)
    
42.   )
    
43.   (princ)
    
44. )

(defun Polyline:XTrim (e / ge gcc n i lst rangs pams)<br />   (if (and (setq ge (xdge::constructor e))<br />            (setq gcc (xdge::constructor "kCurveCurveInt3d"));_最新版本直接构造方法无效<br />            (xdge::setpropertyvalue gcc "set" ge ge '(0. 0. 1.));_用 set 方法构造<br />            (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0)<br /> <br />       )<br />     (progn<br />       (setq i -1)<br />       (repeat n<br />         (setq lst (cons        (xdge::getpropertyvalue<br />                           gcc<br />                           "getIntParams"<br />                           (setq i (1+ i))<br />                         )<br />                         lst<br />                   ) ;_这里的参数是长度<br />         )<br />       )<br />       (setq pams<br />              (vl-sort<br />                (mapcar<br />                  '(lambda (x)<br />                     (apply '+<br />                            (xdge::getpropertyvalue ge "globalToLocalParam" x)<br />                     ) ;_转换为本地参数<br />                   )<br />                  (mapcar 'car lst)<br />                )<br />                '<<br />              )<br />       )<br />       (apply 'xdrx_curve_getsplitcurves (cons e pams));_目前API版本该方法无效了，期待下一版本改进<br />     )<br />   )<br />   (xdge::free)<br />   t<br /> )<br /> (defun c:tt (/ e)<br />   (if (setq e (car (xdrx_entsel "\npick pline: " '((0 . "lwpolyline")))))<br />     (polyline:xtrim e)<br />   )<br />   (princ)<br /> )

st788796

st788796 发表于 2014-9-27 10:21
XDAPI 中 xdrx_polyline_xtrim 自相交点断开的 Lisp 方式

更正一下
这里只能用参数断开，每个交点可能代表两个以上参数位置

1. (defun Polyline:XTrim (e / ge gcc n i lst rangs pams)
   
2.   (if (and (setq ge (xdge::constructor e))
   
3.            (setq gcc (xdge::constructor "kCurveCurveInt3d"))
   
4.            (xdge::setpropertyvalue gcc "set" ge ge '(0. 0. 1.))
   
5.            (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0)
   
6. 
   
7.       )
   
8.     (progn
   
9.       (setq i -1)
   
10.       (repeat n
    
11.         (setq lst (cons        (xdge::getpropertyvalue
    
12.                           gcc
    
13.                           "getIntParams"
    
14.                           (setq i (1+ i))
    
15.                         )
    
16.                         lst
    
17.                   ) ;_这里的参数是长度
    
18.         )
    
19.       )
    
20.       (setq pams
    
21.              (vl-sort
    
22.                (apply 'append
    
23.                       (mapcar
    
24.                         '(lambda (x)
    
25.                            (list (apply        '+
    
26.                                         (xdge::getpropertyvalue
    
27.                                           ge
    
28.                                           "globalToLocalParam"
    
29.                                           (car x)
    
30.                                         )
    
31.                                  ) ;_转换为
    
32.                                  (apply        '+
    
33.                                         (xdge::getpropertyvalue
    
34.                                           ge
    
35.                                           "globalToLocalParam"
    
36.                                           (cadr x)
    
37.                                         )
    
38.                                  )
    
39.                            )
    
40.                          )
    
41.                         lst
    
42.                       )
    
43.                )
    
44.                '<
    
45.              )
    
46.       )
    
47.       (apply 'xdrx_curve_getsplitcurves (cons e pams))
    
48.     )
    
49.   )
    
50.   (xdge::free)
    
51.   t
    
52. )
    
53. (defun c:tt (/ e)
    
54.   (if (setq e (car (xdrx_entsel "\npick pline: " '((0 . "lwpolyline")))))
    
55.     (polyline:xtrim e)
    
56.   )
    
57.   (princ)
    
58. )

(defun Polyline:XTrim (e / ge gcc n i lst rangs pams)<br />   (if (and (setq ge (xdge::constructor e))<br />            (setq gcc (xdge::constructor "kCurveCurveInt3d"))<br />            (xdge::setpropertyvalue gcc "set" ge ge '(0. 0. 1.))<br />            (> (setq n (xdge::getpropertyvalue gcc "numIntPoints")) 0)<br /> <br />       )<br />     (progn<br />       (setq i -1)<br />       (repeat n<br />         (setq lst (cons        (xdge::getpropertyvalue<br />                           gcc<br />                           "getIntParams"<br />                           (setq i (1+ i))<br />                         )<br />                         lst<br />                   ) ;_这里的参数是长度<br />         )<br />       )<br />       (setq pams<br />              (vl-sort<br />                (apply 'append<br />                       (mapcar<br />                         '(lambda (x)<br />                            (list (apply        '+<br />                                         (xdge::getpropertyvalue<br />                                           ge<br />                                           "globalToLocalParam"<br />                                           (car x)<br />                                         )<br />                                  ) ;_转换为<br />                                  (apply        '+<br />                                         (xdge::getpropertyvalue<br />                                           ge<br />                                           "globalToLocalParam"<br />                                           (cadr x)<br />                                         )<br />                                  )<br />                            )<br />                          )<br />                         lst<br />                       )<br />                )<br />                '<<br />              )<br />       )<br />       (apply 'xdrx_curve_getsplitcurves (cons e pams))<br />     )<br />   )<br />   (xdge::free)<br />   t<br /> )<br /> (defun c:tt (/ e)<br />   (if (setq e (car (xdrx_entsel "\npick pline: " '((0 . "lwpolyline")))))<br />     (polyline:xtrim e)<br />   )<br />   (princ)<br /> )

csharp

试试  XdGe 几何库

1. (defun getoverlap (ge1 ge2 / cc3d n index)
   
2.   (setq cc3d (xdge::constructor "kCurveCurveInt3d" ge1 ge2))
   
3.   (if (> (setq n (xdge::getpropertyvalue cc3d "overlapCount")) 0)
   
4.     (progn
   
5.       (setq index -1)
   
6.       (repeat n
   
7.         (setq lst (cons        (xdge::getpropertyvalue
   
8.                           cc3d
   
9.                           "getOverlapRanges"
   
10.                           (setq index (1+ index))
    
11.                         )
    
12.                         lst
    
13.                   )
    
14.         )
    
15.       )
    
16.       (setq lst
    
17.              (list
    
18.                (mapcar
    
19.                  '(lambda (x)
    
20.                     (xdge::getpropertyvalue x "lowerBound" "upperBound")
    
21.                   )
    
22.                  (mapcar 'car lst)
    
23.                )
    
24.                (mapcar
    
25.                  '(lambda (x)
    
26.                     (xdge::getpropertyvalue x "lowerBound" "upperBound")
    
27.                   )
    
28.                  (mapcar 'cadr lst)
    
29.                )
    
30.              )
    
31.       )
    
32.     )
    
33.   )
    
34.   (xdge::free)
    
35.   lst
    
36. )

(defun getoverlap (ge1 ge2 / cc3d n index)<br />   (setq cc3d (xdge::constructor "kCurveCurveInt3d" ge1 ge2))<br />   (if (> (setq n (xdge::getpropertyvalue cc3d "overlapCount")) 0)<br />     (progn<br />       (setq index -1)<br />       (repeat n<br />         (setq lst (cons        (xdge::getpropertyvalue<br />                           cc3d<br />                           "getOverlapRanges"<br />                           (setq index (1+ index))<br />                         )<br />                         lst<br />                   )<br />         )<br />       )<br />       (setq lst<br />              (list<br />                (mapcar<br />                  '(lambda (x)<br />                     (xdge::getpropertyvalue x "lowerBound" "upperBound")<br />                   )<br />                  (mapcar 'car lst)<br />                )<br />                (mapcar<br />                  '(lambda (x)<br />                     (xdge::getpropertyvalue x "lowerBound" "upperBound")<br />                   )<br />                  (mapcar 'cadr lst)<br />                )<br />              )<br />       )<br />     )<br />   )<br />   (xdge::free)<br />   lst<br /> )