【已解决】求大师帮忙写一个框选区域图层删除的lsp

了liao · 发表于 2017-7-19 14:19:38

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

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

×

本帖最后由了liao 于 2017-7-19 21:47 编辑

内网通截图20170719141035.png

白色的这些数据是我不需要打印的（假设在“图层1”上，与其他数据不在同一图层），其他数据需要实时跟着白色数据校对编辑，所以不能锁定。
希望大师帮写一个lsp，步骤大概如下：
1、输入快捷键后框选一组数据
2、空格或者回车后删除框选范围内”图层1“的数据，其他不动，一定要是框选范围内的
小弟在此表示感谢

q3_2006 · 发表于 2017-7-19 14:25:02

(command "erase" (ssget '((8 . "图层1"))) "")

marting · 发表于 2017-7-19 14:33:00

楼主，这个，其实把ACAD的一些构建选择集的功能熟悉了，会很快，也不同程序的。
去熟悉下 qselect 命令，看看怎么快速把你要的东西选上。

选上后，输入ERASE就删除掉了。

newer · 发表于 2017-7-19 14:38:56

用 qselect 搜索论坛。

yangjian001 · 发表于 2017-7-19 14:46:52

框选区域图层删除

yangjian001 · 发表于 2017-7-19 14:48:58

框选区域图层删除

了liao · 发表于 2017-7-19 18:32:52

marting 发表于 2017-7-19 14:33

快速选择用不上，我不是批量删除，而是校对数据，校对完一个删除一个

Lisphk · 发表于 2017-7-19 18:56:05

了liao 发表于 2017-7-19 18:32

晓东工具箱 --- 系统菜单 --- 快速选择 --- 选择集 ---- 区域内集

QQ截图20170719185415.png

iLisp · 发表于 2017-7-19 19:14:45

(defun c:tt (/ e ss)
  (if (and (setq e (car (entsel "\npick entity on layer: ")))
         (princ "\nselect entities to erase ....")
         (setq ss (ssget (list (assoc 8 (entget e)))))
   )
(vl-cmdf ".erase" ss "')
  )
  (princ)
）

了liao · 发表于 2017-7-19 21:37:36

iLisp 发表于 2017-7-19 19:14

你这个也不错，多了一个选择

了liao · 发表于 2017-7-19 21:40:09

Lisphk 发表于 2017-7-19 18:56

有两位大师的代码已经搞定了，我不是很喜欢一堆功能的工具箱，大部分都用不上

kqqt6236 · 发表于 2017-7-20 00:05:55

不错，挺方便的。

了liao · 发表于 2017-7-20 11:45:46

本帖最后由了liao 于 2017-7-20 14:13 编辑

q3_2006 发表于 2017-7-19 14:25

已经解决了

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

[已解决] 【已解决】求大师帮忙写一个框选区域图层删除的lsp

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

回帖奖励 +5 D豆

点评