框选删除Pline顶点

xdzcp · 发表于 2019-5-25 13:51:08

学习学习谢谢分享

azyg125 · 发表于 2019-6-1 01:20:45

看图，猜下思路，1框选多线段得左下右上两点2历遍数据，节点xy判断，在范围内的路过。其它加入新表，3make新表，重生。明天试试，
来自: 微社区

jshailinqq · 发表于 2019-6-1 09:40:47

厉害的楼主，赞一个

ymcui2005 · 发表于 2019-6-1 15:50:38

学习学习good

azyg125 · 发表于 2019-6-2 22:31:09

;;;纯autolisp版本
;;:框选多线段去除指定点
(defun c:tt()
  (setq endata (entget (setq en (car (entsel "\n选择多线段"))))) ;选择多线段
  (prompt "框选需要剔除的点")
  (setq p1 (getpoint) p2 (getcorner p1)) ;选择框
  (setq x_lst (list (min (car p1)(car p2))(max (car p1)(car p2))))
  (setq y_lst (list (min (cadr p1)(cadr p2))(max (cadr p1)(cadr p2)))) ;求出x y范围
  (setq endat1 nil)
  (foreach x endata
(if (or (and (= (car x) 10)(> (cadr x)(car x_lst))(< (cadr x)(cadr x_lst))
      (> (caddr x)(car y_lst))(< (caddr x)(cadr y_lst)))
      (member (car x)(list -1 330 5)))
   nil
   (setq endat1 (cons x endat1)))) ;建立新数据
  (setq en1 (entmake (reverse endat1)))
  (entmod en1)(entdel en)(prin1)
  )

xmlk · 发表于 2019-6-3 10:47:42

谢谢分享！

pxr201419 · 发表于 2019-6-3 11:25:18

多谢分享，学习下

taoyi0727 · 发表于 2019-6-3 12:27:46

学习下看下源码

yangchao2005090 · 发表于 2019-6-7 19:06:36

这个很实用，向楼主学习

holyabc · 发表于 2019-6-13 18:14:20

看看程序是不是很复杂
来自: 微社区

brainstorm · 发表于 2019-8-28 22:31:57

学习看看思路感谢分享
来自: 微社区

xyz002 · 发表于 2019-10-11 08:06:17

看看先

tsingtao · 发表于 2019-11-1 14:21:07

框选删除Pline顶点 [修改]

zhouzhiy · 发表于 2019-11-1 14:28:56

谢谢楼主分享！

fanxiqing · 发表于 2019-11-2 17:32:46

感谢分享学习了!!!!

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

[每日一码] 框选删除Pline顶点