（XD::Curve:OverLaps）计算两曲线的重叠的部分

newer · 发表于 2017-12-16 18:34:41

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

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

×

(defun XD::Curve:OverLaps (g1 g2 / #lowerbound #upperbound ent0 ent1 gint
g-lst i int1 int2 j len1 lst lst1 overlap
overlap-nums x
)
(if (and
(= (type g1) 'ENAME)
(= (type g2) 'ENAME)
(or
(xdge::type g1)
(setq ent0 g1
g1 (xdge::constructor g1)
)
)
(setq g-lst (cons g1 g-lst))
(or
(xdge::type g2)
(setq ent1 g2
g2 (xdge::constructor g2)
)
)
(setq g-lst (cons g2 g-lst))
)
(progn
(if (not (xdge::type g1))
(setq ent0 g1
g1 (xdge::constructor g1)
g-lst (cons g1 g-lst)
)
)
(if (not (xdge::type g2))
(setq ent1 g2
g2 (xdge::constructor g2)
g-lst (cons g2 g-lst)
)
)
(if (and
(setq gint (xdge::constructor "kCurveCurveInt3d" g1 g2))
(> (setq overlap-nums (xdge::getpropertyvalue gint
"overlapcount"
)
)
0
)
)
(progn
(setq g-lst (cons gint g-lst))
(setq i -1
lst nil
lst nil
)
(repeat overlap-nums
(if (setq overlap (xdge::getpropertyvalue gint
"getoverlapranges"
(setq i (1+ i))
)
)
(progn
(setq g-lst (cons overlap g-lst))
(setq j 0)
(setq int1 (xdge::getpropertyvalue (car overlap)
"lowerbound" "upperbound"
)
int2 (xdge::getpropertyvalue (cadr overlap)
"lowerbound" "upperbound"
)
len1 (xdge::getpropertyvalue g1 "length" #lowerbound
#upperbound
)
)
(if ent0
(setq int1 (mapcar
'(lambda (x)
(xdrx_curve_getparamatdist ent0 x)
)
int1
)
)
)
(if ent1
(setq int2 (mapcar
'(lambda (x)
(xdrx_curve_getparamatdist ent1 x)
)
int2
)
)
)
(setq lst1 (cons g1 (cons len1 int1))
lst (cons lst1 lst)
lst1 (cons g2 (cons len1 int2))
lst (cons lst1 lst)
)
)
)
)
(setq lst (xd::list:groupbyindex lst 0.1))
(setq lst (mapcar
'cdr
(list (assoc g1 lst) (assoc g2 lst))
)
)
)
)
)
)
(xdge::free g-lst)
lst
)

(defun XD::Curve:OverLaps (g1 g2 / #lowerbound #upperbound ent0 ent1 gint 
                              g-lst i int1 int2 j len1 lst lst1 overlap 
                              overlap-nums x 
                          ) 
  (if (and 
        (= (type g1) 'ENAME) 
        (= (type g2) 'ENAME) 
        (or 
          (xdge::type g1) 
          (setq ent0 g1 
                g1 (xdge::constructor g1) 
          ) 
        ) 
        (setq g-lst (cons g1 g-lst)) 
        (or 
          (xdge::type g2) 
          (setq ent1 g2 
                g2 (xdge::constructor g2) 
          ) 
        ) 
        (setq g-lst (cons g2 g-lst)) 
      ) 
    (progn 
      (if (not (xdge::type g1)) 
        (setq ent0 g1 
              g1 (xdge::constructor g1) 
              g-lst (cons g1 g-lst) 
        ) 
      ) 
      (if (not (xdge::type g2)) 
        (setq ent1 g2 
              g2 (xdge::constructor g2) 
              g-lst (cons g2 g-lst) 
        ) 
      ) 
      (if (and 
            (setq gint (xdge::constructor "kCurveCurveInt3d" g1 g2)) 
            (> (setq overlap-nums (xdge::getpropertyvalue gint 
                                                          "overlapcount" 
                                  ) 
               ) 
               0 
            ) 
          ) 
        (progn 
          (setq g-lst (cons gint g-lst)) 
          (setq i -1 
                lst nil 
                lst nil 
          ) 
          (repeat overlap-nums 
            (if (setq overlap (xdge::getpropertyvalue gint 
                                                      "getoverlapranges" 
                                                      (setq i (1+ i)) 
                              ) 
                ) 
              (progn 
                (setq g-lst (cons overlap g-lst)) 
                (setq j 0) 
                (setq int1 (xdge::getpropertyvalue (car overlap) 
                                                   "lowerbound" "upperbound" 
                           ) 
                      int2 (xdge::getpropertyvalue (cadr overlap) 
                                                   "lowerbound" "upperbound" 
                           ) 
                      len1 (xdge::getpropertyvalue g1 "length" #lowerbound 
                                                   #upperbound 
                           ) 
                ) 
                (if ent0 
                  (setq int1 (mapcar 
                               '(lambda (x) 
                                  (xdrx_curve_getparamatdist ent0 x) 
                                ) 
                               int1 
                             ) 
                  ) 
                ) 
                (if ent1 
                  (setq int2 (mapcar 
                               '(lambda (x) 
                                  (xdrx_curve_getparamatdist ent1 x) 
                                ) 
                               int2 
                             ) 
                  ) 
                ) 
                (setq lst1 (cons g1 (cons len1 int1)) 
                      lst (cons lst1 lst) 
                      lst1 (cons g2 (cons len1 int2)) 
                      lst (cons lst1 lst) 
                ) 
              ) 
            ) 
          ) 
          (setq lst (xd::list:groupbyindex lst 0.1)) 
          (setq lst (mapcar 
                      'cdr 
                      (list (assoc g1 lst) (assoc g2 lst)) 
                    ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdge::free g-lst) 
  lst 
)

演示例子：

(defun c:tt ()
(if (and (setq e1 (car (xdrx_entsel
"\n拾取曲线1<退出>:"
'((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE"))
)
)
)
(setq e2 (car (xdrx_entsel
"\n拾取曲线2<退出>:"
'((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE"))
)
)
)
(setq info (xd::curve:overlaps e1 e2))
)
(progn (setq d1 (nth 0 info))
(mapcar '(lambda (x)
(setq pa1 (cadr x)
pa2 (caddr x)
pamid (/ (+ pa1 pa2) 2.0)
)
(setq p (xdrx_curve_getpointatparam e1 pamid))
(xdrx_grdraw 2 0 p 3 3)
)
d1
)
(xdrx_prompt
"\n两曲线有 "
(length info)
" 个重叠段，重叠长度分别是 "
(caar (nth 0 info))
" 和"
(caadr (nth 0 info))
"."
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq e1 (car (xdrx_entsel 
                           "\n拾取曲线1<退出>:" 
                           '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE")) 
                         ) 
                    ) 
           ) 
           (setq e2 (car (xdrx_entsel 
                           "\n拾取曲线2<退出>:" 
                           '((0 . "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE")) 
                         ) 
                    ) 
           ) 
           (setq info (xd::curve:overlaps e1 e2)) 
      ) 
    (progn (setq d1 (nth 0 info)) 
           (mapcar '(lambda (x) 
                      (setq pa1          (cadr x) 
                            pa2          (caddr x) 
                            pamid (/ (+ pa1 pa2) 2.0) 
                      ) 
                      (setq p (xdrx_curve_getpointatparam e1 pamid)) 
                      (xdrx_grdraw 2 0 p 3 3) 
                    ) 
                   d1 
           ) 
           (xdrx_prompt 
             "\n两曲线有 " 
             (length info) 
             " 个重叠段，重叠长度分别是 " 
             (caar (nth 0 info)) 
             " 和" 
             (caadr (nth 0 info)) 
             "." 
           ) 
    ) 
  ) 
  (princ) 
)

开心68602 · 发表于 2018-1-14 14:43:44

老师：希望能批量标示曲线重叠部位并变色提示重叠段

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

[曲线] （XD::Curve:OverLaps）计算两曲线的重叠的部分

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