计算两曲线的重叠部分

newer · 发表于 2017-12-16 18:53:49

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

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

×

求曲线重叠段函数见开源函数库：http://bbs.xdcad.net/thread-713844-1-1.html

曲线重叠段-2.gif

(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 (car info))
" 个重叠段，重叠长度分别是 "
(xdrx_string_join
(mapcar '(lambda (x) (rtos (car x) 2 2)) (car 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 (car info)) 
             " 个重叠段，重叠长度分别是 " 
             (xdrx_string_join 
               (mapcar '(lambda (x) (rtos (car x) 2 2)) (car info)) 
               "," 
             ) 
             "." 
           ) 
    ) 
  ) 
  (princ) 
)

yangjian001 · 发表于 2017-12-17 08:50:32

有图有操作不错不错

longer1000 · 发表于 2017-12-17 09:27:43

很好很好。。

开心68602 · 发表于 2018-1-14 14:40:36

老师：能批量查找并标示多个曲线重叠部位和长度吗

newer · 发表于 2018-1-14 14:57:09

开心68602 发表于 2018-1-14 14:40

基本的两个的重叠能算出了，批量也就不是什么难事了，只是找出两两比较的曲线就行了。
你可以到编程申请，详细说下怎么个批量法和怎么出结果，配上清晰的截图和DWG文件。

liuyj · 发表于 2019-12-1 21:52:41

试了，没有效果。用两个贴在一块的矩形（一大一小），在(xd::curve:overlaps e1 e2)这一步总是返回（nil nil）

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

[每日一码] 计算两曲线的重叠部分

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