ai生成代码 选层保留（孤立图层）

f4800

孤立图层 并在取消孤

1. ;; ===================================================================
   
2. ;; 图层孤立命令 (IL) + 自动恢复 (ILR)
   
3. ;; 特性：
   
4. ;;   - 运行 IL 后弹出对话框
   
5. ;;   - 点击“退出孤立”自动恢复图层
   
6. ;;   - 仅需加载此 .lsp 文件（自动创建临时 DCL）
   
7. ;;   - 兼容 AutoCAD LT 和完整版
   
8. ;; ===================================================================
   
9. 
   
10. ;; 全局变量
    
11. (setq *GL_ORIGINAL_ON_LAYERS* nil)
    
12. (setq *GL_TEMP_DCL_PATH* (strcat (getvar "TEMPPREFIX") "isolate_temp1.dcl"))
    
13. 
    
14. ;; 命令: IL
    
15. (defun C:IL (/ ss lays ent lyr layer-data dcl_id)
    
16.   (prompt "\n选择要孤立的图元 <回车结束>: ")
    
17.   (if (not (setq ss (ssget)))
    
18.     (princ "\n未选择对象。")
    
19.     (progn
    
20.       ;; 保存原始开启的图层
    
21.       (setq *GL_ORIGINAL_ON_LAYERS* nil)
    
22.       (while (setq layer-data (tblnext "LAYER" (null layer-data)))
    
23.         (if (= (logand (cdr (assoc 70 layer-data)) 2) 0)
    
24.           (setq *GL_ORIGINAL_ON_LAYERS*
    
25.             (cons (cdr (assoc 2 layer-data)) *GL_ORIGINAL_ON_LAYERS*)
    
26.           )
    
27.         )
    
28.       )
    
29.       
    
30.       ;; 收集选中图层
    
31.       (setq lays nil)
    
32.       (repeat (sslength ss)
    
33.         (setq ent (ssname ss 0)
    
34.           lyr (cdr (assoc 8 (entget ent)))
    
35.         )
    
36.         (if (not (member lyr lays))
    
37.           (setq lays (cons lyr lays))
    
38.         )
    
39.         (ssdel ent ss)
    
40.       )
    
41.       
    
42.       ;; 孤立图层
    
43.       (command "_.layer" "_off" "*" "_y" "")
    
44.       (foreach lyr lays (command "_.layer" "_on" lyr ""))
    
45.       
    
46.       ;; 创建并加载临时 DCL
    
47.       (GL:create-temp-dcl)
    
48.       (if (not (findfile *GL_TEMP_DCL_PATH*))
    
49.         (princ "\n>> 无法创建临时对话框文件。")
    
50.         (progn
    
51.           (setq dcl_id (load_dialog *GL_TEMP_DCL_PATH*))
    
52.           (if (not (new_dialog "isolate_dialog" dcl_id))
    
53.             (princ "\n>> 无法创建对话框。")
    
54.             (progn
    
55.               (action_tile "exit_btn" "(done_dialog 1)")
    
56.               (action_tile "cancel" "(done_dialog 0)")
    
57.               (setq user_choice (start_dialog))
    
58.               (unload_dialog dcl_id)
    
59.               ;; 可选：删除临时文件（保留也可，下次覆盖）
    
60.               ;; (vl-file-delete *GL_TEMP_DCL_PATH*)
    
61.               
    
62.               (if (= user_choice 1)
    
63.                 (C:ILR)
    
64.                 (princ "\n>> 孤立模式仍激活，输入 ILR 可手动恢复。")
    
65.               )
    
66.             )
    
67.           )
    
68.         )
    
69.       )
    
70.     )
    
71.   )
    
72.   (princ)
    
73. )
    
74. 
    
75. ;; 命令: ILR —— 恢复图层
    
76. (defun C:ILR ()
    
77.   (if (null *GL_ORIGINAL_ON_LAYERS*)
    
78.     (princ "\n>> 无保存的图层状态，无法恢复。")
    
79.     (progn
    
80.       (command "_.layer" "_off" "*" "_y" "")
    
81.       (foreach lyr *GL_ORIGINAL_ON_LAYERS*
    
82.         (command "_.layer" "_on" lyr "")
    
83.       )
    
84.       (setq *GL_ORIGINAL_ON_LAYERS* nil)
    
85.       (princ "\n>> 图层状态已恢复。")
    
86.     )
    
87.   )
    
88.   (princ)
    
89. )
    
90. 
    
91. ;; 创建临时 DCL 文件（使用 :paragraph 支持换行）
    
92. (defun GL:create-temp-dcl ()
    
93.   (if (findfile *GL_TEMP_DCL_PATH*)
    
94.     (vl-file-delete *GL_TEMP_DCL_PATH*)
    
95.   )
    
96.   (setq fp (open *GL_TEMP_DCL_PATH* "w"))
    
97.   (write-line "isolate_dialog : dialog {" fp)
    
98.   (write-line "  label = \"孤立图层\";" fp)
    
99.   (write-line "  : text { label = \"图层已孤立\"; }" fp)
    
100.   (write-line "  : text { label = \"点击'退出孤立'可恢复图层状态\"; }" fp)
     
101.   (write-line "  : text { label = \"点击'取消'保持当前状态\"; }" fp)
     
102.   (write-line "  : spacer { height = 2; }" fp) ; 文字与按钮之间多空一点
     
103.   (write-line "  : button {" fp)
     
104.   (write-line "    key = \"exit_btn\";" fp)
     
105.   (write-line "    label = \"退出孤立\";" fp)
     
106.   (write-line "    width = 16;" fp)  ; 加宽按钮
     
107.   (write-line "  }" fp)
     
108.   (write-line "  : spacer { height = 1; }" fp) ; 按钮下方留空
     
109.   (write-line "  : button {" fp)
     
110.   (write-line "    key = \"cancel\";" fp)
     
111.   (write-line "    label = \"取消\";" fp)
     
112.   (write-line "    is_cancel = true;" fp)
     
113.   (write-line "    width = 16;" fp)
     
114.   (write-line "  }" fp)
     
115.   (write-line "  errtile;" fp)
     
116.   (write-line "}" fp)
     
117.   (close fp)
     
118. )
     
119. (princ "\n[加载成功] 命令: IL (孤立图层), ILR (恢复)")
     
120. (princ)

;; ===================================================================<br /> ;; 图层孤立命令 (IL) + 自动恢复 (ILR)<br /> ;; 特性：<br /> ;;   - 运行 IL 后弹出对话框<br /> ;;   - 点击“退出孤立”自动恢复图层<br /> ;;   - 仅需加载此 .lsp 文件（自动创建临时 DCL）<br /> ;;   - 兼容 <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> LT 和完整版<br /> ;; ===================================================================<br /> <br /> ;; 全局变量<br /> (setq *GL_ORIGINAL_ON_LAYERS* nil)<br /> (setq *GL_TEMP_DCL_PATH* (strcat (getvar "TEMPPREFIX") "isolate_temp1.dcl"))<br /> <br /> ;; 命令: IL<br /> (defun C:IL (/ ss lays ent lyr layer-data dcl_id)<br />   (prompt "\n选择要孤立的图元 <回车结束>: ")<br />   (if (not (setq ss (ssget)))<br />     (princ "\n未选择对象。")<br />     (progn<br />       ;; 保存原始开启的图层<br />       (setq *GL_ORIGINAL_ON_LAYERS* nil)<br />       (while (setq layer-data (tblnext "LAYER" (null layer-data)))<br />         (if (= (logand (cdr (assoc 70 layer-data)) 2) 0)<br />           (setq *GL_ORIGINAL_ON_LAYERS*<br />             (cons (cdr (assoc 2 layer-data)) *GL_ORIGINAL_ON_LAYERS*)<br />           )<br />         )<br />       )<br />       <br />       ;; 收集选中图层<br />       (setq lays nil)<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss 0)<br />           lyr (cdr (assoc 8 (entget ent)))<br />         )<br />         (if (not (member lyr lays))<br />           (setq lays (cons lyr lays))<br />         )<br />         (ssdel ent ss)<br />       )<br />       <br />       ;; 孤立图层<br />       (command "_.layer" "_off" "*" "_y" "")<br />       (foreach lyr lays (command "_.layer" "_on" lyr ""))<br />       <br />       ;; 创建并加载临时 DCL<br />       (GL:create-temp-dcl)<br />       (if (not (findfile *GL_TEMP_DCL_PATH*))<br />         (princ "\n>> 无法创建临时对话框文件。")<br />         (progn<br />           (setq dcl_id (load_dialog *GL_TEMP_DCL_PATH*))<br />           (if (not (new_dialog "isolate_dialog" dcl_id))<br />             (princ "\n>> 无法创建对话框。")<br />             (progn<br />               (action_tile "exit_btn" "(done_dialog 1)")<br />               (action_tile "cancel" "(done_dialog 0)")<br />               (setq user_choice (start_dialog))<br />               (unload_dialog dcl_id)<br />               ;; 可选：删除临时文件（保留也可，下次覆盖）<br />               ;; (vl-file-delete *GL_TEMP_DCL_PATH*)<br />               <br />               (if (= user_choice 1)<br />                 (C:ILR)<br />                 (princ "\n>> 孤立模式仍激活，输入 ILR 可手动恢复。")<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 命令: ILR —— 恢复图层<br /> (defun C:ILR ()<br />   (if (null *GL_ORIGINAL_ON_LAYERS*)<br />     (princ "\n>> 无保存的图层状态，无法恢复。")<br />     (progn<br />       (command "_.layer" "_off" "*" "_y" "")<br />       (foreach lyr *GL_ORIGINAL_ON_LAYERS*<br />         (command "_.layer" "_on" lyr "")<br />       )<br />       (setq *GL_ORIGINAL_ON_LAYERS* nil)<br />       (princ "\n>> 图层状态已恢复。")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 创建临时 DCL 文件（使用 :paragraph 支持换行）<br /> (defun GL:create-temp-dcl ()<br />   (if (findfile *GL_TEMP_DCL_PATH*)<br />     (vl-file-delete *GL_TEMP_DCL_PATH*)<br />   )<br />   (setq fp (open *GL_TEMP_DCL_PATH* "w"))<br />   (write-line "isolate_dialog : dialog {" fp)<br />   (write-line "  label = \"孤立图层\";" fp)<br />   (write-line "  : text { label = \"图层已孤立\"; }" fp)<br />   (write-line "  : text { label = \"点击'退出孤立'可恢复图层状态\"; }" fp)<br />   (write-line "  : text { label = \"点击'取消'保持当前状态\"; }" fp)<br />   (write-line "  : spacer { height = 2; }" fp) ; 文字与按钮之间多空一点<br />   (write-line "  : button {" fp)<br />   (write-line "    key = \"exit_btn\";" fp)<br />   (write-line "    label = \"退出孤立\";" fp)<br />   (write-line "    width = 16;" fp)  ; 加宽按钮<br />   (write-line "  }" fp)<br />   (write-line "  : spacer { height = 1; }" fp) ; 按钮下方留空<br />   (write-line "  : button {" fp)<br />   (write-line "    key = \"cancel\";" fp)<br />   (write-line "    label = \"取消\";" fp)<br />   (write-line "    is_cancel = true;" fp)<br />   (write-line "    width = 16;" fp)<br />   (write-line "  }" fp)<br />   (write-line "  errtile;" fp)<br />   (write-line "}" fp)<br />   (close fp)<br /> )<br /> (princ "\n[加载成功] 命令: IL (孤立图层), ILR (恢复)")<br /> (princ)

1. 
   

复制代码

forestgxc

ai也是挺无聊的
layiso layerp

qifeifei

太感动了 居然是免费的 已copy

qwsss31

哈哈哈你们也是太理解AI了可以反正能用就行

tranque

forestgxc 发表于 2025-11-7 21:22
ai也是挺无聊的
layiso layerp

我试试这两个，666啊

yaya7827

ai总是把简单的事情复杂化  显得它聪明

f4800

yaya7827 发表于 2025-11-8 14:26
ai总是把简单的事情复杂化  显得它聪明

换个思路 为什么不是欧特克开发人员的思路有问题呢？ 明明很多功能可以弄个快捷图标、优化说明提供给用户，但是欧特克就是故意隐藏起来 ，非要输入命令让用户去操作。。 非常不理解他们开发的思路，好的功能千方百计隐藏起来不不让用户知道、也让用户找不到。。

amook147

f4800 发表于 2025-11-8 19:58
换个思路 为什么不是欧特克开发人员的思路有问题呢？ 明明很多功能可以弄个快捷图标、优化说明提供给用户 ...

其实autocad已经是很笨重的CAD工具了   这方面 远远不如国产的中望  浩辰   。。。  
autocad现在最大的优势就是盗版满天飞   欧特克放纵盗版 导致   用户依赖性太强了。。。