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

st788796 · 发表于 2014-9-27 09:24:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-11-1 08:07 编辑

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 实体

一个测试

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

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

st788796 · 发表于 2014-9-27 10:21:34

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

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

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

st788796 · 发表于 2014-9-27 16:48:07

本帖最后由 st788796 于 2014-9-27 17:09 编辑

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

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

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

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

csharp · 发表于 2014-10-1 15:34:36

本帖最后由 csharp 于 2014-10-1 15:37 编辑

试试 XdGe 几何库

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

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

账号		自动登录	找回密码
密码			立即注册

[教学] XDGE几何库应用(18)--AcGeCurveCurveInt3d简介

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐: