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

haibinpro · 发表于 2006-9-21 22:08:21

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

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

×

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

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

类似于amerasecl功能。

qjcpj · 发表于 2006-9-21 22:23:26

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

haibinpro · 发表于 2006-9-21 22:27:49

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

njshf · 发表于 2006-9-21 22:41:59

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

qjcpj · 发表于 2006-9-21 23:47:32

最初由 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 · 发表于 2006-9-22 12:27:15

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

brainstorm · 发表于 2006-9-22 17:49:53

(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 · 发表于 2006-9-22 19:22:11

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

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

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

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

相关帖子