本帖最后由 寒潮大冬瓜 于 2025-10-11 09:01 编辑

CZ临时隐藏工具(实测‘在位编辑’块时也能顺利运行)
块在位编辑时无法实施隔离，所以只能运用临时隐藏的方式
(DEFUN C:CZ (/ SS DCL_ID DCL_CONTENT TEMP_FILE)
  (princ "*** 开始加载临时隐藏工具 ***")
  
  ; 创建临时DCL文件内容
  (setq DCL_CONTENT
    "y_lsyc : dialog {
      label = \"临时隐藏工具\";
      : row {
        : button {
          key = \"1\";
          label = \"隐藏选中对象\";
          fixed_width = true;
          alignment = centered;
        }




网友答:
没有否定你，我只是说下自己的做法而已

网友答:
我测试了一下在位编辑，和块编辑器，我的理想状态是：退出块编辑的时候，能自动执行CZ命名里面的显示所有图形，避免保存或关闭文件时忘记将图像显示出来，也算是一种防呆设计吧

网友答: 本帖最后由 专用车研发 于 2025-10-10 20:47 编辑

如果能加上退出编辑时自动显示就完美了！
测试如下：
1、如果忘记显示需要返回原编辑状态去点显示按钮，隐藏的图形才会显示
2、忘记点击显示后，如果关闭了图纸，不用担心，返回原编辑状态，点击全部显示，图形依然会回来

不知道加上反应器，识别退出编辑时执行全部显示能不能实现
还是要为楼主点赞！

网友答:
退出编辑时自动显示
是指“在位编辑”还是“cz”代码退出的时候？根据不同需要，确实可以尝试！

网友答:
是个好思路！我试试看！


网友答: 各有各人的想法。我觉得隐藏不利于查看，就把不需要打印、但又需要一眼看到属性的内容放到Defpoints层，或者另建一个不打印层，把颜色设得很暗。

网友答:
临时隐藏(HideObjects)也是为了实际操作需要！打印和不打印→我之前有个代码dxf能直观看到

网友答:
我肯定了你的想法！在努力实现中……

网友答: 本帖最后由 panliang9 于 2025-10-14 10:25 编辑

谢谢分享！


在位编辑块只显示：

(or vlr_refedit (setq vlr_refedit (vlr-command-reactor nil '((:vlr-commandwillstart . refeditss)))))
(defun refeditss (a b) (and (= (car b) "REFEDIT") (setq *refedit_ss* (ssget "x"))))
(defun c:a (/ i)
  (if (and *refedit_ss* (/= (getvar 'refeditname) ""))
    (repeat (setq i (sslength *refedit_ss*)) (redraw (ssname *refedit_ss* (setq i (1- i))) 2))
  )
  (princ)
)