API应用检查区域非闭合处

st788796 · 发表于 2014-9-23 23:35:22

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

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

×

eachy 帖子见 http://bbs.xdcad.net/forum.php?m ... &extra=page%3D1

(defun c:tt (/ testpnt ss lst clst pts)
(defun testpnt (p e el)
(not (vl-some
'(lambda (a)
(equal (vlax-curve-getclosestpointto a p)
p
1e-6
)
)
(vl-remove e el)
)
)
)
(if (setq ss (ssget '((0 . "*line,arc,ellipse,circle,ray"))))
(progn
(setq lst (xdrx_pickset->ents ss)
clst (vl-remove-if '(lambda (x) (xdrx_curve_isclosed x)) lst)
)
(mapcar
'(lambda (x / sp ep)
(setq sp (xdrx_curve_getstartpoint x)
ep (xdrx_curve_getendpoint x)
)
(if (testpnt sp x lst)
(setq pts (cons sp pts))
)
(if (testpnt ep x lst)
(setq pts (cons ep pts))
)
)
clst
)
(if pts
(mapcar 'xdrx_point_make pts)
)
)
)
(princ)
)

(defun c:tt (/ testpnt ss lst clst pts) 
  (defun testpnt (p e el) 
    (not (vl-some 
           '(lambda (a) 
              (equal (vlax-curve-getclosestpointto a p) 
                     p 
                     1e-6 
              ) 
            ) 
           (vl-remove e el) 
         ) 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "*line,arc,ellipse,circle,ray")))) 
    (progn 
      (setq lst         (xdrx_pickset->ents ss) 
            clst (vl-remove-if '(lambda (x) (xdrx_curve_isclosed x)) lst) 
      ) 
      (mapcar 
        '(lambda (x / sp ep) 
           (setq sp (xdrx_curve_getstartpoint x) 
                 ep (xdrx_curve_getendpoint x) 
           ) 
           (if (testpnt sp x lst) 
             (setq pts (cons sp pts)) 
           ) 
           (if (testpnt ep x lst) 
             (setq pts (cons ep pts)) 
           ) 
         ) 
        clst 
      ) 
      (if pts 
        (mapcar 'xdrx_point_make pts) 
      ) 
    ) 
  ) 
  (princ) 
)

csharp · 发表于 2014-9-24 13:56:26

排除闭合线，非闭合的端点只要不在其它线上时就是开放处

14702470 · 发表于 2016-4-3 14:59:52

谢谢分享，c4fg

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

[教学] API应用 检查区域非闭合处

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

[教学] API应用检查区域非闭合处