(XD::Curve:SelfIntersBreak)曲线自交点断开

st788796 · 发表于 2014-9-27 18:17:24

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

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

×

本帖最后由 st788796 于 2014-9-28 07:24 编辑

(defun XD::Curve:SelfIntersBreak (e / el gcc gel mods tf)
(cond
((eq (type e) 'ENAME)
(setq el (list e))
)
((eq (type e) 'PICKSET)
(setq el (xdrx_pickset->ents e))
)
((eq (type e) 'LIST)
(setq el e)
)
(t (setq el nil))
)
(if el
(progn
(setq mods (mapcar
'(lambda (x / typ)
(setq typ (xdrx_getpropertyvalue x "IsA"))
(cond
((= typ "AcDbSpline")
(list typ '(0.0 0.0 1.0))
)
((= typ "AcDbPolyline")
(list typ (xdrx_getpropertyvalue x "normal"))
)
(t nil)
)
)
el
)
)
(if (setq el (vl-remove nil el))
(progn
(setq gcc (xdge::constructor "kCurveCurveInt3d")
gel (xdge::constructor el)
)
(mapcar
'(lambda (x ent mod / i n lst pams)
(if
(and (xdge::setpropertyvalue gcc "set" x x (cadr mod))
(> (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
)
)
)
(if (= (car mod) "AcDbSpline")
(setq pams (vl-sort (apply 'append lst) '<))
(setq pams
(vl-sort
(apply
'append
(mapcar
'(lambda (a)
(list (apply '+
(xdge::getpropertyvalue
x
"globalToLocalParam"
(car a)
)
)
(apply '+
(xdge::getpropertyvalue
x
"globalToLocalParam"
(cadr a)
)
)
)
)
lst
)
)
'<
)
)
)
(apply 'xdrx_curve_getsplitcurves (cons ent pams))
)
)
)
gel
el
mods
)
(xdge::free)
)
)
)
)
t
)

(defun XD::Curve:SelfIntersBreak (e / el gcc gel mods tf) 
  (cond 
    ((eq (type e) 'ENAME) 
     (setq el (list e)) 
    ) 
    ((eq (type e) 'PICKSET) 
     (setq el (xdrx_pickset->ents e)) 
    ) 
    ((eq (type e) 'LIST) 
     (setq el e) 
    ) 
    (t (setq el nil)) 
  ) 
  (if el 
    (progn 
      (setq mods (mapcar 
                   '(lambda (x / typ) 
                      (setq typ (xdrx_getpropertyvalue x "IsA")) 
                      (cond 
                        ((= typ "AcDbSpline") 
                         (list typ '(0.0 0.0 1.0)) 
                        ) 
                        ((= typ "AcDbPolyline") 
                         (list typ (xdrx_getpropertyvalue x "normal")) 
                        ) 
                        (t nil) 
                      ) 
                    ) 
                   el 
                 ) 
      ) 
      (if (setq el (vl-remove nil el)) 
        (progn 
          (setq        gcc (xdge::constructor "kCurveCurveInt3d") 
                gel (xdge::constructor el) 
          ) 
          (mapcar 
            '(lambda (x ent mod / i n lst pams) 
               (if 
                 (and (xdge::setpropertyvalue gcc "set" x x (cadr mod)) 
                      (> (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 
                                ) 
                      ) 
                    ) 
                    (if        (= (car mod) "AcDbSpline") 
                      (setq pams (vl-sort (apply 'append lst) '<)) 
                      (setq pams 
                             (vl-sort 
                               (apply 
                                 'append 
                                 (mapcar 
                                   '(lambda (a) 
                                      (list (apply '+ 
                                                   (xdge::getpropertyvalue 
                                                     x 
                                                     "globalToLocalParam" 
                                                     (car a) 
                                                   ) 
                                            ) 
                                            (apply '+ 
                                                   (xdge::getpropertyvalue 
                                                     x 
                                                     "globalToLocalParam" 
                                                     (cadr a) 
                                                   ) 
                                            ) 
                                      ) 
                                    ) 
                                   lst 
                                 ) 
                               ) 
                               '< 
                             ) 
                      ) 
                    ) 
                    (apply 'xdrx_curve_getsplitcurves (cons ent pams)) 
                  ) 
               ) 
             ) 
            gel 
            el 
            mods 
          ) 
          (xdge::free) 
        ) 
      ) 
    ) 
  ) 
  t 
)

st788796 · 发表于 2014-9-27 18:20:20

本帖最后由 st788796 于 2014-9-28 07:15 编辑

测试

(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "lwpolyline,spline"))))
(XD::Curve:SelfIntersBreak ss)
)
(princ)
)

st788796 · 发表于 2014-9-27 22:56:03

更新, 支持选择集

dwg001 · 发表于 2014-9-28 07:58:18

赞！要是有一个非XD-API版本更好。

st788796 · 发表于 2014-9-28 08:54:22

dwg001 发表于 2014-9-28 07:58
赞！要是有一个非XD-API版本更好。

Ge库和 DB 的 GetSplitCurves 具有先天优势，指望 Autodesk 提供标准方法不知要码多少代码，费多少脑细胞

Free-Lancer · 发表于 2014-9-28 14:10:49

dwg001 发表于 2014-9-28 07:58
赞！要是有一个非XD-API版本更好。

AutoCAD 自从引入 Lisp 概念以来有过多少变化？期间 AutoCAD 经历了多少升级！

可见 AutoLisp 地位如何，在有新的免费 API 时使用既可以省出时间专注于专业，也可以秀一秀未尝不是好事，反正也不是专业编程，靠这个挣钱，方便省时为首选

newer · 发表于 2014-11-23 18:17:38

封闭的SPLINE，起点出也给断了，是不是应该排除？

st788796 · 发表于 2014-11-23 18:37:02

newer 发表于 2014-11-23 18:17
封闭的SPLINE，起点出也给断了，是不是应该排除？

这个是 Ge 问题，没办法，只能 Join 一次，Db 的 getSplitCurves 好像就没问题

newer · 发表于 2014-11-23 22:57:17

st788796 发表于 2014-11-23 18:37
这个是 Ge 问题，没办法，只能 Join 一次，Db 的 getSplitCurves 好像就没问题

最后不是通过：

(apply 'xdrx_curve_getsplitcurves (cons ent pams))

打断的吗，把起点参数给排除不就应该行了？

st788796 · 发表于 2014-11-23 23:38:46

newer 发表于 2014-11-23 22:57
最后不是通过：

(apply 'xdrx_curve_getsplitcurves (cons ent pams))

不对吧，我这测试没有断开起点！

newer · 发表于 2014-11-23 23:42:49

st788796 发表于 2014-11-23 23:38
不对吧，我这测试没有断开起点！

刚用一楼的代码测试下，确实起点断开了，2015版本下。你的代码和一楼的一样吗？还是有修改？

st788796 · 发表于 2014-11-23 23:45:10

newer 发表于 2014-11-23 23:42
刚用一楼的代码测试下，确实起点断开了，2015版本下。你的代码和一楼的一样吗？还是有修改？

刚在 2008 下试的，起点没有断开，我再试试 2015

st788796 · 发表于 2014-11-23 23:54:01

newer 发表于 2014-11-23 23:42
刚用一楼的代码测试下，确实起点断开了，2015版本下。你的代码和一楼的一样吗？还是有修改？

还是没有断开，不过 1109 号的 xdge::constructor 在对实体表构造时如果只有一个实体的表，构造出来不是 Ge 实体表，需要 List 一次

君是我的泪 · 发表于 2017-12-30 16:11:13

这怎么运行的？两个都保存为.lsp，拖进CAD，输入tt?那前面那个是什么

开水瓶游泳 · 发表于 2018-2-5 10:11:46

这怎么运行的？两个都保存为.lsp，拖进CAD，输入tt?那前面那个是什么

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

[曲线] (XD::Curve:SelfIntersBreak)曲线自交点断开

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

点评