（XD::Curve:OverLaps）获取两曲线重叠部分的数据

Lispboy · 发表于 2018-3-31 20:52:59

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

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

×

本帖最后由 newer 于 2018-3-31 22:30 编辑

(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 
)

命令: (xd::curve:overlaps e1 e2)
(((278.332 6.0 7.0) (244.4 2.0 3.0)) ((278.332 4.43307 4.93934) (244.4 3.44686 3.89141)))

longer1000 · 发表于 2018-4-1 00:37:00

太感谢了。。。。。。。。

scnjlwb · 发表于 2018-4-1 11:21:33

多谢分享！

wzjck01 · 发表于 2021-5-11 10:03:47

多谢分享！

wzjck01 · 发表于 2021-6-9 09:36:46

多谢分享！

Le9988 · 发表于 2021-6-17 09:51:21

太感谢了。。。。。。。。

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

[曲线] （XD::Curve:OverLaps）获取两曲线重叠部分的数据

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