部分显示 问下你们用哪个插件？

开心无惧

我用msteel的部分显示命令，有时很卡，不知道什么原因；
想问下你们用哪个插件的部分显示命令（单独显示），想试试其它插件的类似功能；

贱人工具箱好像没有这命令；

补充
可能是图纸的原因
输入的字数太少不支持回复，索性回复一篇表扬信，捂嘴；

在这里，统一感谢大家的回复；

moshouhot

(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(ssget"x" ))
        ss1lst (ss->list(ssget)))
  (foreach x (vl-remove-if'(lambda(x)(member x ss1lst))ssalllst )
    (vla-put-visible(vlax-ename->vla-object x):vlax-false))
  )

               (defun SS->LIST (SS)
   (if ss
  (vl-remove-if-not '(lambda(x) (= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
     nil)
   )

(defun c:showall();一般够用了
  (setq ssalllst (ss->list(ssget"x")))
  (foreach x ssalllst
    (vla-put-visible (vlax-ename->vla-object x) :vlax-true))
  (princ "所有对象已恢复可见。")
)

(defun c:showall1();改进，修复尝试修改某些不允许更改可见性的对象，错误处理跳过
  (setq ssalllst (ss->list(ssget"x"))
        count 0)
  (foreach x ssalllst
    (if (vl-catch-all-apply
          '(lambda ()
             (vla-put-visible (vlax-ename->vla-object x) :vlax-true)
             T
           )
        )
      (setq count (1+ count))
    )
  )
  (princ (strcat "已成功恢复 " (itoa count) " 个对象的可见性。"))
        (princ)
)



(defun SS->LIST (SS)
  (if ss
    (vl-remove-if-not '(lambda(x) (= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    nil)
)

陨落

我自己写了个，但是图纸大了可能也很卡：
(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(ssget"x" ))
        ss1lst (ss->list(ssget)))
  (foreach x (vl-remove-if'(lambda(x)(member x ss1lst))ssalllst )
    (vla-put-visible(vlax-ename->vla-object x):vlax-false))
  )

               (defun SS->LIST (SS)
   (if ss
  (vl-remove-if-not '(lambda(x) (= (type X) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
     nil)
   )

cable2004

msteel也卡？只能说图纸大吧，应该比lisp快吧！可以把图纸发上来大家测试一下时间。

szhorse

陨落 发表于 2024-9-6 16:52
我自己写了个，但是图纸大了可能也很卡：
(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(s ...

怎么回复显示啊

开心无惧

陨落 发表于 2024-9-6 16:52
我自己写了个，但是图纸大了可能也很卡：
(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(s ...

在此，向这位编程艺术家表达我最深的敬意与赞扬。向这位无私的分享者表示最诚挚的感谢和最高的敬意。愿这样的精神能够激励更多人，在CAD设计的广阔天地里，共同创造更加辉煌的未来。

开心无惧

moshouhot 发表于 2024-9-6 17:36
(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(ssget"x" ))
        ss1lst (ss->list(ssg ...

代码中，每一行都透露出作者对CAD软件深层机制的深刻理解，以及对LISP编程精髓的精准把握。通过精妙的算法设计，这段代码实现了某项功能的自动化，极大地提高了设计效率，减轻了设计师的重复劳动，无疑是技术与创意完美结合的典范。更难能可贵的是，分享者没有将这份智慧据为己有，而是选择将其公开，让更多的同行能够受益，这种开放共享的精神，正是推动技术社区不断进步的重要动力。

xxyyzzlg

燕秀隐藏做的挺好的

煮茗

用的天正，图层、图元显示隐藏还是比较方便的。小键盘数字1-9快速操作。

szhorse

moshouhot 发表于 2024-9-6 17:36
(defun c:spo();;;;显示局部对象
  (setq ssalllst (ss->list(ssget"x" ))
        ss1lst (ss->list(ssg ...

大佬，恢复显示部分提示“输入的字符串有缺陷”