沿多段线打断其他的曲线

Lispboy · 发表于 2018-9-28 23:25:33

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

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

×

(defun c:XDTB_CONTBREAK (/ e spf tf ss i ints)
(if (and (setq e
(car
(xdrx_entsel "\n选择一条多段线<退出>:" '((0 . "*polyline")))
)
)
(setq sps (xdrx_getsamplept e))
(setq tf (xd::doc:safezoom sps))
(setq ss (ssget "f" sps '((0 . "*line,arc,circle,ellipse"))))
(ssdel e ss)
(> (sslength ss) 0)
)
(progn (xdrx_begin)
(setq i 0)
(mapcar '(lambda (x)
(if (setq ints (xdrx_get_inters e x))
(progn (setq i (+ i (length ints)))
(xdrx_curve_getsplitcurves x ints)
)
)
)
(xdrx_pickset->ents ss)
)
(and tf (xdrx_document_zoomprevious))
(xdrx_prompt
"\n穿过了"
(sslength ss)
"个对象，打断了"
i
"个交点."
)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_CONTBREAK (/ e spf tf ss i ints) 
  (if (and (setq e 
                  (car 
                    (xdrx_entsel "\n选择一条多段线<退出>:" '((0 . "*polyline"))) 
                  ) 
           ) 
           (setq sps (xdrx_getsamplept e)) 
           (setq tf (xd::doc:safezoom sps)) 
           (setq ss (ssget "f" sps '((0 . "*line,arc,circle,ellipse")))) 
           (ssdel e ss) 
           (> (sslength ss) 0) 
      ) 
    (progn (xdrx_begin) 
           (setq i 0) 
           (mapcar '(lambda (x) 
                      (if (setq ints (xdrx_get_inters e x)) 
                        (progn (setq i (+ i (length ints))) 
                               (xdrx_curve_getsplitcurves x ints) 
                        ) 
                      ) 
                    ) 
                   (xdrx_pickset->ents ss) 
           ) 
           (and tf (xdrx_document_zoomprevious)) 
           (xdrx_prompt 
             "\n穿过了" 
             (sslength ss) 
             "个对象，打断了" 
             i 
             "个交点." 
           ) 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

coverne · 发表于 2018-9-29 00:02:43

这个示例可以

gdfyhao · 发表于 2019-3-18 13:12:06

不知能否增加，沿选定的多段线把多条与其相交的线打断

大香蕉 · 发表于 2019-3-19 00:47:27

好东西

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

[多段线] 沿多段线打断其他的曲线

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