社区 › AutoCAD工具插件 › 部分显示 问下你们用哪个插件？

开心无惧 发表于 2024-9-6 15:18:45

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

本帖最后由 开心无惧 于 2024-9-7 16:01 编辑

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

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

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

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

moshouhot 发表于 2024-9-6 17:36:15

本帖最后由 moshouhot 于 2024-9-9 12:27 编辑

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

陨落 发表于 2024-9-6 16:52:40

我自己写了个，但是图纸大了可能也很卡：
(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 发表于 2024-9-6 17:08:02

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

szhorse 发表于 2024-9-6 17:17:01

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

怎么回复显示啊

开心无惧 发表于 2024-9-6 17:37:14

本帖最后由 开心无惧 于 2024-9-6 17:40 编辑

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

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

开心无惧 发表于 2024-9-6 17:40:06

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

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

xxyyzzlg 发表于 2024-9-6 19:04:03

燕秀隐藏做的挺好的

煮茗 发表于 2024-9-6 23:20:48

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

szhorse 发表于 2024-9-7 11:19:39

moshouhot 发表于 2024-9-6 17:36
(defun c:spo();;;;显示局部对象
(setq ssalllst (ss->list(ssget"x" ))
      ss1lst (ss->list(ssg ...
大佬，恢复显示部分提示“输入的字符串有缺陷”

查看完整版本: 部分显示 问下你们用哪个插件？