deepseek编写图层合并代码

hubeiwdlue

尝试用deepseek编写一个lisp插件，居然一次成功了，很惊喜，分享一下

向deepseek提的问题是：用autolisp编写一个图层合并的插件，1、选中要合并图层的图元，获得图元图层1。2，选中合并到图层的图元，获得合并到的图层2。3、全选图层1图元，如果图层锁定，则解锁后再选中。4、将选中图元的图层设置为图层2。5、删除图层1。
deepseek提供的代码虽然有些冗余的步骤，但整体逻辑清晰，测试后也暂时没发现bug，代码如下：

2. (defun c:MergeLayers (/ *error* ent1 ent2 layer1 layer2 ss doc layers layer1_vla wasLocked currentLayer)
   
3.   (vl-load-com)
   
4.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
5.   (setq layers (vla-get-layers doc))
   
6.   
   
7.   ;; 错误处理函数
   
8.   (defun *error* (msg)
   
9.     (if wasLocked
   
10.       (vla-put-lock layer1_vla :vlax-true)
    
11.     )
    
12.     (princ (strcat "\n错误: " msg))
    
13.   )
    
14.   
    
15.   ;; 步骤1：选择源图层图元
    
16.   (if (not (setq ent1 (car (entsel "\n选择要合并的源图层图元: "))))
    
17.     (progn
    
18.       (princ "\n未选择源图层图元。")
    
19.       (exit)
    
20.     )
    
21.   )
    
22.   (setq layer1 (cdr (assoc 8 (entget ent1))))
    
23.   
    
24.   ;; 步骤2：选择目标图层图元
    
25.   (if (not (setq ent2 (car (entsel "\n选择目标图层图元: "))))
    
26.     (progn
    
27.       (princ "\n未选择目标图层图元。")
    
28.       (exit)
    
29.     )
    
30.   )
    
31.   (setq layer2 (cdr (assoc 8 (entget ent2))))
    
32.   
    
33.   ;; 检查是否相同图层
    
34.   (if (= layer1 layer2)
    
35.     (progn
    
36.       (princ "\n源图层与目标图层相同，无需合并。")
    
37.       (exit)
    
38.     )
    
39.   )
    
40.   
    
41.   ;; 检查源图层是否存在
    
42.   (if (not (tblsearch "LAYER" layer1))
    
43.     (progn
    
44.       (princ (strcat "\n图层 " layer1 " 不存在。"))
    
45.       (exit)
    
46.     )
    
47.   )
    
48.   
    
49.   ;; 检查目标图层是否存在，若不存在则创建
    
50.   (if (not (tblsearch "LAYER" layer2))
    
51.     (vla-add layers layer2)
    
52.   )
    
53.   
    
54.   ;; 步骤3：解锁源图层（如果锁定）
    
55.   (setq layer1_vla (vla-item layers layer1))
    
56.   (setq wasLocked (vla-get-lock layer1_vla))
    
57.   (if wasLocked
    
58.     (vla-put-lock layer1_vla :vlax-false)
    
59.   )
    
60.   
    
61.   ;; 检查当前图层是否为源图层
    
62.   (setq currentLayer (getvar "CLAYER"))
    
63.   (if (= currentLayer layer1)
    
64.     (progn
    
65.       (princ "\n无法删除当前图层，请先切换当前图层。")
    
66.       (exit)
    
67.     )
    
68.   )
    
69.   
    
70.   ;; 获取所有源图层图元
    
71.   (setq ss (ssget "_X" (list (cons 8 layer1))))
    
72.   (if (not ss)
    
73.     (progn
    
74.       (princ (strcat "\n图层 " layer1 " 中没有图元。"))
    
75.       (exit)
    
76.     )
    
77.   )
    
78.   
    
79.   ;; 步骤4：修改图元到目标图层
    
80.   (command "_.chprop" ss "" "_layer" layer2 "")
    
81.   
    
82.   ;; 步骤5：删除源图层
    
83.   (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list layer1_vla)))
    
84.     (princ (strcat "\n无法删除图层 " layer1 "（可能仍被其他对象引用）。"))
    
85.     (princ (strcat "\n成功删除图层 " layer1 "。"))
    
86.   )
    
87.   
    
88.   ;; 步骤6：重新锁定原图层（由于图层已删除，此步骤自动跳过）
    
89.   (princ "\n操作完成。")
    
90.   (princ)
    
91. )

(defun c:MergeLayers (/ *error* ent1 ent2 layer1 layer2 ss doc layers layer1_vla wasLocked currentLayer)<br />   (vl-load-com)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq layers (vla-get-layers doc))<br />   <br />   ;; 错误处理函数<br />   (defun *error* (msg)<br />     (if wasLocked<br />       (vla-put-lock layer1_vla :vlax-true)<br />     )<br />     (princ (strcat "\n错误: " msg))<br />   )<br />   <br />   ;; 步骤1：选择源图层图元<br />   (if (not (setq ent1 (car (entsel "\n选择要合并的源图层图元: "))))<br />     (progn<br />       (princ "\n未选择源图层图元。")<br />       (exit)<br />     )<br />   )<br />   (setq layer1 (cdr (assoc 8 (entget ent1))))<br />   <br />   ;; 步骤2：选择目标图层图元<br />   (if (not (setq ent2 (car (entsel "\n选择目标图层图元: "))))<br />     (progn<br />       (princ "\n未选择目标图层图元。")<br />       (exit)<br />     )<br />   )<br />   (setq layer2 (cdr (assoc 8 (entget ent2))))<br />   <br />   ;; 检查是否相同图层<br />   (if (= layer1 layer2)<br />     (progn<br />       (princ "\n源图层与目标图层相同，无需合并。")<br />       (exit)<br />     )<br />   )<br />   <br />   ;; 检查源图层是否存在<br />   (if (not (tblsearch "LAYER" layer1))<br />     (progn<br />       (princ (strcat "\n图层 " layer1 " 不存在。"))<br />       (exit)<br />     )<br />   )<br />   <br />   ;; 检查目标图层是否存在，若不存在则创建<br />   (if (not (tblsearch "LAYER" layer2))<br />     (vla-add layers layer2)<br />   )<br />   <br />   ;; 步骤3：解锁源图层（如果锁定）<br />   (setq layer1_vla (vla-item layers layer1))<br />   (setq wasLocked (vla-get-lock layer1_vla))<br />   (if wasLocked<br />     (vla-put-lock layer1_vla :vlax-false)<br />   )<br />   <br />   ;; 检查当前图层是否为源图层<br />   (setq currentLayer (getvar "CLAYER"))<br />   (if (= currentLayer layer1)<br />     (progn<br />       (princ "\n无法删除当前图层，请先切换当前图层。")<br />       (exit)<br />     )<br />   )<br />   <br />   ;; 获取所有源图层图元<br />   (setq ss (ssget "_X" (list (cons 8 layer1))))<br />   (if (not ss)<br />     (progn<br />       (princ (strcat "\n图层 " layer1 " 中没有图元。"))<br />       (exit)<br />     )<br />   )<br />   <br />   ;; 步骤4：修改图元到目标图层<br />   (command "_.chprop" ss "" "_layer" layer2 "")<br />   <br />   ;; 步骤5：删除源图层<br />   (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list layer1_vla)))<br />     (princ (strcat "\n无法删除图层 " layer1 "（可能仍被其他对象引用）。"))<br />     (princ (strcat "\n成功删除图层 " layer1 "。"))<br />   )<br />   <br />   ;; 步骤6：重新锁定原图层（由于图层已删除，此步骤自动跳过）<br />   (princ "\n操作完成。")<br />   (princ)<br /> )

自贡黄明儒

写得很规范，还不错。比layerm好用多了。

帝都划水王

这个deepseek确实比之前一批的ai在代码编写上更丝滑。之前的chatgpt稍微要求多几个，写出来的几乎没有成功运行过

gzcsun

这样合并图层，有些乱来的图纸合并不了的。
不过这插件也算可以了。

gzcsun

自贡黄明儒 发表于 2025-2-11 13:12
写得很规范，还不错。比layerm好用多了。

layerm是什么命令？

hubeiwdlue

gzcsun 发表于 2025-2-11 20:49
layerm是什么命令？

Express的一个命令，图层合并。很强大的，可以用command调用。

Klein

hubeiwdlue 发表于 2025-2-11 21:51
Express的一个命令，图层合并。很强大的，可以用command调用。

是laymrg吧，图层合并

advksf

好资料谢谢分享