报错：删除图层出错

bhy228 · 发表于 2017-5-25 11:39:39

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

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

×

报错：删除图层出错

newer · 发表于 2017-5-25 20:32:04

(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)
)
(xdrx_setenttodb e1)
(setq
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)
)

(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) 
    ) 
    (xdrx_setenttodb e1) 
    (setq 
          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) 
)

把上面代码拷贝回去，加载。

bhy228 · 发表于 2017-5-26 08:05:21

newer 发表于 2017-5-25 20:32

不会加载，求指教！

bhy228 · 发表于 2017-5-27 08:56:41

newer 发表于 2017-5-25 20:32

把源代码拷贝到记事本，保存成扩展名是lsp的文件，LISP文件加载，执行后删除图层还是不行，请楼主指教！

LoveArx · 发表于 2017-5-27 09:44:00

bhy228 发表于 2017-5-27 08:56

不行，有什么提示？

你拷贝代码，然后粘贴到CAD命令行测试就行。

bhy228 · 发表于 2017-5-27 13:21:38

LoveArx 发表于 2017-5-27 09:44

提示：语法错误！

marting · 发表于 2017-5-27 13:40:53

bhy228 发表于 2017-5-27 13:21

可能是你保存的编码不对，

1、直接从浏览器拷贝粘贴到命令行看看，是否加载成功，成功最后会显示 c:xdtb_layerdel

2、下载附件回去加载，我测试了，没问题

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xdtb_layerdel.lsp
下载次数:24 文件大小:1.2 KB
下载权限: 不限以上 [免费赚D豆]

bhy228 · 发表于 2017-5-27 13:45:30

marting 发表于 2017-5-27 13:40

我的晓东工具箱是默认安装在了D:\XDSoft，没影响吗？

bhy228 · 发表于 2017-5-27 13:49:57

本帖最后由 bhy228 于 2017-5-27 13:51 编辑

marting 发表于 2017-5-27 13:40

搞定，三口！
有什么一劳永逸的方法没，这个每次都得加载

newer · 发表于 2017-5-27 13:55:46

bhy228 发表于 2017-5-27 13:49

1、晓东工具箱 SYS目录下的 xdrx.lsp是每次都随着CAD启动加载的，你可以先修改这个LISP，拷贝LISP文件到LISP目录下，xdrx.lsp 倒数第二行加上 (load "xdtb_layerdel.lsp") 保存。以后就正常了。

2、等下版的晓东工具箱更新。

bhy228 · 发表于 2017-5-27 14:16:58

newer 发表于 2017-5-27 13:55

这样操作吗？

bhy228 · 发表于 2017-6-5 08:25:54

本帖最后由 bhy228 于 2017-6-5 08:31 编辑

newer 发表于 2017-5-27 13:55

大侠，6.2的版本依旧不能删除图层，麻烦发一个倒数第二行加上 (load "xdtb_layerdel.lsp")的xdrx.lsp文件，要么指教一下如下图操作对不对
先谢谢了

marting · 发表于 2017-6-5 09:04:11

bhy228 发表于 2017-6-5 08:25

你把 xdtb_layerdel.lsp拷贝到工具箱的 lisp目录下了吗？

bhy228 · 发表于 2017-6-6 07:53:03

marting 发表于 2017-6-5 09:04

拷贝到工具箱的 lisp目录下了
搞定了，谢谢大侠！

bhy228 · 发表于 2017-6-15 08:29:03

marting 发表于 2017-6-5 09:04

楼主，经测试，本次晓东工具箱XDTOOLS-2017-06-14更新后，图层删除bug依旧没有消除！

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

[求助] 报错：删除图层出错

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

评分