求一个lsp源码，可以一键选择某个图层内所有对象并删除，求cadlsp源码，并说明。

zzhjxyx

试试咋样？appload加载，运行stc命令。看看效果。

lang851

zzhjxyx 发表于 2020-8-31 17:52
试试咋样？appload加载，运行stc命令。看看效果。

(defun C:8 (/ GOP)
(SETQ GOP (SSGET "X" '((-4 . "<OR") (8 . "图层名") (-4 . "OR>"))))
(command "chprop" GOP "" "c" "10" "")
(progn (sssetfirst nil GOP))
(command "ERASE")
(princ)
)

，我找到一个，这样也可以

lang851

zzhjxyx 发表于 2020-8-31 17:49
试试咋样？appload加载，运行stc命令。看看效果。

我想要源码

lang851

(defun C:8 (/ GOP)
(SETQ GOP (SSGET "X" '((-4 . "<OR") (8 . "图层名") (-4 . "OR>"))))
(command "chprop" GOP "" "c" "10" "")
(progn (sssetfirst nil GOP))
(command "ERASE")
(princ)
)
找了半天找的

lang851

找了半天找到的

勘测-黄

lang851 发表于 2020-8-29 02:16
一键删除指定图层内所有对象吗？

可以的

1. (defun c:de()       
   
2. (setq lay_name (cdr(assoc 8 (entget (car (entsel"\n请选择要删除图层内的任何一个实体"))))));得到需要删除的图元所在图层名
   
3. (setq ss (ssget "X"(list(cons 8 lay_name)))) ;构造选择集 图层名
   
4. (COMMAND "-layer" "u" lay_name "")           ;图层解锁
   
5. (COMMAND "ERASE" ss "")                      ;清除所有实体
   
6. (princ "\n清除完毕!")
   
7. (princ)
   
8. )

复制代码

Alex00701

看不懂啊

627517054

学习学习

376394482

学习学习