(XD::Pickset:CurveIntersBaseOnEnt)基于的曲线分配的选择集交点

st788796 · 发表于 2013-11-8 08:35:30

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

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

×

本帖最后由 st788796 于 2013-11-8 09:57 编辑

(defun XD::Pickset:CurveIntersBaseEnt (ss mod / lst)
(setq el (xdrx_pickset->ents ss)
el (mapcar '(lambda (x)
(cons x (vl-remove x el))
)
el
)
)
(and (setq lst
(vl-remove
nil
(mapcar
'(lambda (x)
(setq e (car x))
(if (setq
pts (vl-remove
nil
(mapcar '(lambda (b)
(xdrx_curve_getinters e b mod)
)
(cdr x)
)
)
)
(cons e (apply 'append pts))
nil
)
)
el
)
)
)
(setq lst (mapcar '(lambda (x)
(cons (car x)
(XD::List:RemoveDup (cdr x))
)
)
lst
)
)
(setq
lst (mapcar '(lambda (x)
(cons (car x)
(xdrx_points_sortoncurve (car x) (cdr x) t)
)
)
lst
)
)
)
lst
)

(defun XD::Pickset:CurveIntersBaseEnt (ss mod / lst) 
  (setq        el (xdrx_pickset->ents ss) 
        el (mapcar '(lambda (x) 
                      (cons x (vl-remove x el)) 
                    ) 
                   el 
           ) 
  ) 
  (and (setq lst 
              (vl-remove 
                nil 
                (mapcar 
                  '(lambda (x) 
                     (setq e (car x)) 
                     (if (setq 
                           pts (vl-remove 
                                 nil 
                                 (mapcar '(lambda (b) 
                                            (xdrx_curve_getinters e b mod) 
                                          ) 
                                         (cdr x) 
                                 ) 
                               ) 
                         ) 
                       (cons e (apply 'append pts)) 
                       nil 
                     ) 
                   ) 
                  el 
                ) 
              ) 
       ) 
       (setq lst (mapcar '(lambda (x) 
                            (cons (car x) 
                                  (XD::List:RemoveDup (cdr x)) 
                            ) 
                          ) 
                         lst 
                 ) 
       ) 
       (setq 
         lst (mapcar '(lambda (x) 
                        (cons (car x) 
                              (xdrx_points_sortoncurve (car x) (cdr x) t) 
                        ) 
                      ) 
                     lst 
             ) 
       ) 
  ) 
  lst 
)

Lisphk · 发表于 2013-11-8 09:50:08

大师，参数MOD是什么意思？
这个函数什么时候用？

st788796 · 发表于 2013-11-8 09:55:24

本帖最后由 st788796 于 2013-11-8 09:58 编辑

Lisphk 发表于 2013-11-8 09:50
大师，参数MOD是什么意思？
这个函数什么时候用？

呵呵，忘了加上，和API中的一样
已添加

/db_自贡黄明儒_ · 发表于 2013-11-8 10:27:44

这个标题，听起来不容易理解，是不是曲线与选择集交点呀？

st788796 · 发表于 2013-11-8 10:30:10

本帖最后由 st788796 于 2013-11-8 10:31 编辑

/db_自贡黄明儒_ 发表于 2013-11-8 10:27
这个标题，听起来不容易理解，是不是曲线与选择集交点呀？

参数是曲线类选择集，求得的交点是分配到曲线实体
((curve1 p11 p12 p13 ...) (curve2 p21 p22 p23 ...) (curve3 p31 p32 p33 ...) ...)

可以用于延伸啊、修剪啊等等

范建威 · 发表于 2015-1-24 22:05:25

曲线与类选择集交点

wowan1314 · 发表于 2017-6-4 22:58:48

学习下。看到好多remove。很巧的思路。我写的是通过assoc。明天去公司比较下两个哪个好。

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

[选择集] (XD::Pickset:CurveIntersBaseOnEnt)基于的曲线分配的选择集交点

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

点评

点评