孤立图层 并在取消孤
  1. ;; ===================================================================
  2. ;; 图层孤立命令 (IL) + 自动恢复 (ILR)
  3. ;; 特性：
  4. ;;   - 运行 IL 后弹出对话框
  5. ;;   - 点击“退出孤立”自动恢复图层
  6. ;;   - 仅需加载此 .lsp 文件（自动创建临时 DCL）
  7. ;;   - 兼容 AutoCAD LT 和完整版
  8. ;; ===================================================================

  10. ;; 全局变量
  11. (setq *GL_ORIGINAL_ON_LAYERS* nil)
  12. (setq *GL_TEMP_DCL_PATH* (strcat (getvar "TEMPPREFIX") "isolate_temp1.dcl"))

  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. )

  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. )

  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)


复制代码



网友答: ai也是挺无聊的
layiso layerp

网友答: 太感动了 居然是免费的 已copy

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

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

我试试这两个，666啊

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

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

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

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

其实autocad已经是很笨重的CAD工具了   这方面 远远不如国产的中望  浩辰   。。。  
autocad现在最大的优势就是盗版满天飞   欧特克放纵盗版 导致   用户依赖性太强了。。。  
  • 上一篇：vla-IntersectWith的bug
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025