[试用]：新写“图层删除”工具...

XDSoft · 发表于 2002-10-11 01:49:18

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

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

×

[FONT=courier new]
;|
命令：XDTB_LayerDel
功能：删除一个层（包括层上的所有实体）
|;
(defun c:XDTB_LayerDel (/ el lyrl lyr e1 tf e sLyrl n clayer)
(xdrx_begin)
(setq clayer (getvar "clayer"))
(while (setq e (xdrx_entsel "\r拾取要删除图层上的实体<结束>:"))
(setq lyr (xdrx_getentdxf 8)
e1 (xdrx_object_get "layer" lyr)
tf (xdrx_getentdxf 70)
)
(cond
((= lyr "0")
(prompt "\n不能删除"0"层!\n")
)
((= clayer lyr)
(prompt "\n不能删除当前层!\n")
)
((= "DEFPOINTS" (strcase lyr))
(prompt "\n不能删除尺寸定义点图层!\n")
)
((= 16 (logand 16 tf))
(prompt "\n不能删除外部引用图层!\n")
)
(t
(setq lyrl (cons lyr lyrl))
(setq el (cons e1 el))
(xdrx_modent 62 (- (xdrx_getentdxf 62)))
)
)
)
(if (and
lyrl
(= 1 (xdrx_yesorno "\n确定是否执行删除图层操作" 0))
)
(progn
(setq sLyrl (xdrx_String_Join lyrl ","))
(command "._erase" (ssget "x" (list (cons 8 sLyrl))) "")
(setq lxd el)
(foreach n el
(if (not (xdrx_object_hasreferences n))
(xdrx_object_delete n)
)
)
(prompt (strcat "\n成功删除了"" sLyrl ""图层!"))
)
(progn
(foreach n el
(xdrx_setenttodb n)
(xdrx_modent 62 (- (xdrx_getentdxf 62)))
)
)
)
(xdrx_end)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
  命令：XDTB_LayerDel 
  功能：删除一个层（包括层上的所有实体） 
|; 
(defun c:XDTB_LayerDel (/ el lyrl lyr e1 tf e sLyrl n clayer) 
  (xdrx_begin) 
  (setq clayer (getvar "clayer")) 
  (while (setq e (xdrx_entsel "\r拾取要删除图层上的实体<结束>:")) 
    (setq lyr (xdrx_getentdxf 8) 
          e1 (xdrx_object_get "layer" lyr) 
          tf (xdrx_getentdxf 70) 
    ) 
    (cond 
      ((= lyr "0") 
        (prompt "\n不能删除"0"层!\n") 
      ) 
      ((= clayer lyr) 
        (prompt "\n不能删除当前层!\n") 
      ) 
      ((= "DEFPOINTS" (strcase lyr)) 
        (prompt "\n不能删除尺寸定义点图层!\n") 
      ) 
      ((= 16 (logand 16 tf)) 
        (prompt "\n不能删除外部引用图层!\n") 
      ) 
      (t 
        (setq lyrl (cons lyr lyrl)) 
        (setq el (cons e1 el)) 
        (xdrx_modent 62 (- (xdrx_getentdxf 62))) 
      ) 
    ) 
  ) 
  (if (and 
        lyrl 
        (= 1 (xdrx_yesorno "\n确定是否执行删除图层操作" 0)) 
      ) 
    (progn 
      (setq sLyrl (xdrx_String_Join lyrl ",")) 
      (command "._erase" (ssget "x" (list (cons 8 sLyrl))) "") 
      (setq lxd el) 
      (foreach n el 
        (if (not (xdrx_object_hasreferences n)) 
          (xdrx_object_delete n) 
        ) 
      ) 
      (prompt (strcat "\n成功删除了"" sLyrl ""图层!")) 
    ) 
    (progn 
      (foreach n el 
        (xdrx_setenttodb n) 
        (xdrx_modent 62 (- (xdrx_getentdxf 62))) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)[/FONT]

table-fu · 发表于 2003-8-20 14:36:00

我把您的程序copy下来，paste到我的lisp上，但是输入XDTB_LayerDel命令后无效，不知是我那里错了，请指教。

lsjjm · 发表于 2003-8-20 15:52:09

那是因为你还需要加载xdrx-类函数..._

chenhang1203 · 发表于 2003-8-20 15:56:30

我试了，可以，很方便，谢谢

table-fu · 发表于 2003-8-20 17:03:39

多谢回复，但是我的问题还没解决，可否教我加载这些函数，我的cad图画的不错，但是电脑知识极差，或者告诉我那里有这些方法的介绍。谢谢

chenhang1203 · 发表于 2003-8-20 17:11:55

CAD图画的不错，就应该知道vlide和appload命令，就是它了，编辑并加载你需要的LISP吧

table-fu · 发表于 2003-8-21 10:04:14

可是这个vlide又是什么东东？我敲入这个命令电脑不认识，渴望高手明示。再次感谢

lt_zzy · 发表于 2003-8-21 10:14:53

连同图层上的所有实体一起删除，很难确定呀？

chenhang1203 · 发表于 2003-8-21 11:05:28

最初由 table-fu 发布
[B]可是这个vlide又是什么东东？我敲入这个命令电脑不认识，渴望高手明示。再次感谢 [/B]

就是VisualLisp编辑器，把上面的代码拷贝进去，存盘，用appload调用它，执行命令XDTB_LayerDel，就可以了

LUCAS · 发表于 2003-8-21 12:42:35

zpoyp你贴了个正天系列破解出来，与贴子主題不合,我觉得我被….

table-fu · 发表于 2003-8-22 09:13:36

忘了说一个前提，我用的是R14，不知道楼主的lisp是不是为r14写的。

zining2002 · 发表于 2004-7-21 17:30:26

在VLIDEL里怎么存盘啊？

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

[试用]：新写“图层删除”工具...

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

相关帖子

我加载了，但是用不了

可否教我如何加载这类函数

vlide

Re: vlide

我用的是14版

浏览过的版块