多段线打断并删除

foolishzy · 发表于 2023-6-5 11:05

wanhongron 发表于 2023-6-5 09:59
谢谢foolishzy大侠，老是从一个方向删除，如果能从开始捕捉的位置删除就更好了

没明白要实现什么功能

wanhongron · 发表于 2023-6-5 16:31

如果想删除左边就从左边开始往前找打断点，想删除右边从右边开始往前找打断点

foolishzy · 发表于 2023-6-6 09:51

本帖最后由 foolishzy 于 2023-6-6 09:53 编辑

wanhongron 发表于 2023-6-5 16:31
如果想删除左边就从左边开始往前找打断点，想删除右边从右边开始往前找打断点

(defun c:tt (/ a getaverpt e1 e2 n1 n2 avpt1 avpt2)
(defun getaverpt (ename num / n lst sum_aver_pt)
(setq n 0
lst (list)
)
(while (< n num)
(setq lst (append lst (list (vlax-curve-getPointAtParam ename n)))
n (1+ n)
)
)
(setq sum_aver_pt (list 0 0 0))
(mapcar (function (lambda (x)
(princ x)
(setq sum_aver_pt
(list
(+ (car sum_aver_pt) (car x))
(+ (cadr sum_aver_pt) (cadr x))
0
)
)
)
)
lst
)
(setq sum_aver_pt
(list
(/ (car sum_aver_pt) num)
(/ (cadr sum_aver_pt) num)
0
)
)
)
(vl-cmdf "BREAK" (setq p1 (getpoint)) (setq p2 (getpoint)))
(setq e1 (entlast))
(entdel (entlast))
(setq e2 (entlast))
(entdel e1)
(setq n1 (cdr (assoc 90 (entget e1)))
n2 (cdr (assoc 90 (entget e2)))
)
(setq avpt1 (getaverpt e1 n1)
avpt2 (getaverpt e2 n2)
)
(if (and
(< (distance avpt1 p1) (distance avpt1 p2))
(> (distance avpt2 p1) (distance avpt2 p2))
)
(entdel e1)
(if
(and
(> (distance avpt1 p1) (distance avpt1 p2))
(< (distance avpt2 p1) (distance avpt2 p2))
)
(entdel e2)
(princ "\n 手动删除")
)
)
)

(defun c:tt (/ a getaverpt e1 e2 n1 n2 avpt1 avpt2) 
  (defun getaverpt (ename num / n lst sum_aver_pt) 
    (setq n   0 
    lst (list) 
    ) 
    (while (< n num) 
      (setq lst  (append lst (list (vlax-curve-getPointAtParam ename n))) 
      n  (1+ n) 
      ) 
    ) 
    (setq sum_aver_pt (list 0 0 0)) 
    (mapcar (function (lambda (x) 
      (princ x) 
      (setq sum_aver_pt 
             (list 
         (+ (car sum_aver_pt) (car x)) 
         (+ (cadr sum_aver_pt) (cadr x)) 
         0 
             ) 
      ) 
          ) 
      ) 
      lst 
    ) 
    (setq sum_aver_pt 
     (list 
       (/ (car sum_aver_pt) num) 
       (/ (cadr sum_aver_pt) num) 
       0 
     ) 
    ) 
  ) 
  (vl-cmdf "BREAK" (setq p1 (getpoint)) (setq p2 (getpoint))) 
  (setq e1 (entlast)) 
  (entdel (entlast)) 
  (setq e2 (entlast)) 
  (entdel e1) 
  (setq  n1 (cdr (assoc 90 (entget e1))) 
  n2 (cdr (assoc 90 (entget e2))) 
  ) 
  (setq  avpt1 (getaverpt e1 n1) 
  avpt2 (getaverpt e2 n2) 
  ) 
  (if (and 
  (< (distance avpt1 p1) (distance avpt1 p2)) 
  (> (distance avpt2 p1) (distance avpt2 p2)) 
      ) 
    (entdel e1) 
    (if 
      (and 
  (> (distance avpt1 p1) (distance avpt1 p2)) 
  (< (distance avpt2 p1) (distance avpt2 p2)) 
      ) 
       (entdel e2) 
       (princ "\n 手动删除") 
    ) 
  ) 
)

wanhongron · 发表于 2023-6-6 11:54

非常感谢foolishzy大侠，要的就是这个效果

sandyvs · 发表于 2023-6-14 23:58

foolishzy 发表于 2023-6-6 09:51
wanhongron 发表于 2023-6-5 16:31
如果想删除左边就从左边开始往前找打断点，想删除右边从右边开始往前找 ...

会报错呢？numberp：nil

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

[提问] 多段线打断并删除