[求助]：如何删除某图层上的所有图元？

haibinpro

如何删除某图层上的所有图元？

有谁能够提供一个程序参考下。

类似于amerasecl功能。

qjcpj

以图层构造选集ss，之后(command "erase" ss "")即可。

haibinpro

是否需要遍历检测dxf数据，看图元是否属于某图层加入选集，还是有更简便的方法将该图层所有图元加入选集。

njshf

可用快速选择，也可用ET工具将整个层删除。

qjcpj

最初由 haibinpro 发布
[B]是否需要遍历检测dxf数据，看图元是否属于某图层加入选集，还是有更简便的方法将该图层所有图元加入选集。 [/B]

看看以下链接，也许你用得上：
http://discussion.autodesk.com/s ... .x=9&search.y=6

http://discussion.autodesk.com/thread.jspa?messageID=4200726

http://discussion.autodesk.com/thread.jspa?messageID=5156432

phoenixdjq

(setq ss (ssget "x" '((8 . "你所想删除的图层名"))))
(command "erase" ss "")

brainstorm

(defun zgx-get-dxf (code entname kk)
(if (= kk 2)
(assoc code (entget entname))
(cdr (assoc code (entget entname)))
)
)
(defun c:ert (/ sssource lay entype sserase color dimsty blkname sslist)
;(sys0)
(setvar "cmdecho" 0)
(setq sssource (car (entsel "\n点取欲删除的样板图元(匹配项为:图层、图元类别、图元颜色):")))
(redraw sssource 3)
(setq lay (zgx-get-dxf 8 sssource 1))
(setq entype (zgx-get-dxf 0 sssource 1))
(setq color (zgx-get-dxf 62 sssource 1))
(setq dimsty (zgx-get-dxf 3 sssource 1))
(setq blkname (zgx-get-dxf 2 sssource 1))
(prompt "\n请选择删除的图元:")
(if color
(setq sslist (list (cons 0 entype) (cons 8 lay) (cons 62 color)))
(setq sslist (list (cons 0 entype) (cons 8 lay) (cons 62 256) ))
)
(if blkname
(setq sslist (list (cons 0 entype) (cons 8 lay) (cons 2 blkname)))
)
(if dimsty
(setq sslist (list (cons 0 entype) (cons 8 lay) (cons 3 dimsty)))
)
(setq sserase (ssget sslist))
(command "erase" sserase "")
;(sys1)
(princ "\n已经成功删除!")
(princ)
)

haibinpro

谢谢qjcpj、phoenixdjq。
brainstorm的程序有点复杂，我试试看看有何功能。
谢谢各位帮忙。