[寻找]：如何强行删除一个图层？

烨006 · 发表于 2004-10-4 21:19:37

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

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

×

如题。有没有这么一个程序？

lsjjm · 发表于 2004-10-5 06:51:35

1. ET-Layers-Layer Delete or LAYDEL.
2 REFER TO:
强制删除
http://www.xdcad.net/forum/showthre...threadid=179250

gajwww · 发表于 2004-10-7 22:01:56

连接不上

maijinghua1001 · 发表于 2004-10-8 12:02:07

白金长老，连不上，能否说具体一点？

lsjjm · 发表于 2004-10-8 16:18:04

其实本论坛有许多此方面的帖子, 搜索一下即得.
这是其中一个:
[PHP]
(defun c:test ()
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ent (entsel "\nSelect object on layer to copy from: "))
  (setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
  (setq s (ssget "X" (list (cons 8 lay))))
  (command "erase" s "")
  (setq layers (vla-get-layers doc))
  (vlax-for item layers
(if (= (strcase lay)(strcase (vla-get-Name item)))
   (vla-delete item)
)
  )
)
[/PHP]

cad2007 · 发表于 2004-10-8 18:12:05

连接不上
偶是个新手,代码看不明白

tel5560018 · 发表于 2004-10-8 19:33:28

看不明的代码,有谁能转贴一下吗.那多直截.多谢.

xyp1964 · 发表于 2004-10-8 22:05:58

最初由 tel5560018 发布
[B]看不明的代码,有谁能转贴一下吗.那多直截.多谢. [/B]

加载tcsc.lsp，运行tcsc，删除指定层实体。
;;;tcsc.lsp
;;;*图层删除 c:tcsc
(defun c:tcsc (/ s1 la)
(WHILE (NOT (setq s1 (entsel "\n\t选择删除层物体: "))))
(setq la (dxf 8 (entget (CAR s1))))
(setq ss (ssget "X" (list (cons 8 la))))
(command "erase" "ss" "")
)
(defun dxf (code elist) (cdr (assoc code elist)))

zh_6531394 · 发表于 2004-10-10 13:08:39

*-*a 我有一个LISP程序,只要图层明就行
(defun C:Cy (/ olderr ocmd L S)
  (setq olderr *error*
*error* dellerr)
  (setq ocmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq L (strcase (getstring "\nLayer(s) to delete: ")))
  ;; Get all entities on layer(s)
  (setq S (ssget "X" (list (cons 8 L))))
  (if S
(command "ERASE" S "")          ; Delete 'em!
(princ "Layer empty or not a valid layer name.")
  )
  (setq S nil)                      ; Free selection-set
  (setvar "CMDECHO" ocmd)          ; Restore saved mode
  (setq *error* olderr)             ; Restore old *error* handler
  (princ)
)

yyzhan · 发表于 2004-10-10 15:44:55

还是看不明白

梦断江南 · 发表于 2004-10-10 21:21:25

原理是该图层上必须没有实体.包括块内引用的
而且不能是depoint,和0 层
所以,把该图层上的实体移走或删除.再purge,或如lsjjm的程序那样(vla-delete 图层)

lmt112233 · 发表于 2004-10-13 00:11:39

正如2樓樓主所說

zh_6531394 · 发表于 2004-10-13 09:12:17

*-*a 我的程序步骤是
1.加载lisp程序
2..输入 "cy"
3.输入图层名
4.图层上的内容全部删除

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

[寻找]：如何强行删除一个图层？

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

相关帖子