找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2900|回复: 10

[LISP函数]:另类图元隐藏/显示实体

[复制链接]
发表于 2009-4-10 18:16:24 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
通过建立组,隐藏或显示实体。希望对你们有点用处
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2009-4-12 14:19:21 | 显示全部楼层
这个怎么用啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-7-20 09:23:03 | 显示全部楼层
什么都看不到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2107个

财富等级: 金玉满堂

发表于 2013-7-21 02:27:47 | 显示全部楼层
看来旧帖子的程序都丢失了。

点评

重贴一下  详情 回复 发表于 2013-7-21 06:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-7-21 06:39:19 | 显示全部楼层
evayleung 发表于 2013-7-21 02:27
看来旧帖子的程序都丢失了。

重贴一下
  1. ;;另类图元隐藏/显示,通过建立组隐藏实体
  2. ;|
  3. visible

  4. object.Visible

  5. object
  6.       All Drawing objects, Application, AttributeReference, Group, Toolbar
  7.       The object or objects this property applies to.

  8. Boolean; read-write (write-only for the Group object)
  9. TRUE:    The object or application is visible.
  10. FALSE:   The object or application is not visible.

  11. Remarks
  12. If you specify an object to be invisible, it will be invisible regardless of
  13. the application visible setting. Other factors can also cause an object to be
  14. invisible; for example, an objectwill not be displayed if its layer is off or
  15. frozen.
  16. Specifying the application to be invisible allows you to run tasks in the
  17. background without having to see the component.
  18. Specifies the visibility of an object or the application.
  19. All Drawing objects, Application, AttributeReference, Group, Toolbar
  20. |;
  21. (defun ea:SSonoff (tf s mode / groups gl)
  22.   (setvar "cmdecho" 0)
  23.   ;;检测是否有特定组
  24.   (if (vl-catch-all-error-p
  25.     (vl-catch-all-apply
  26.       'vla-item
  27.       (list
  28.         (setq
  29.           groups
  30.            (vla-get-groups
  31.          (vla-get-activedocument (vlax-get-acad-object))
  32.            )
  33.         )
  34.         "ea_hide_object"
  35.       )
  36.     )
  37.       )
  38.     (progn
  39.       (setq gr (vla-add groups "ea_hide_object"));添加组
  40.       (setq gl (entget (vlax-vla-object->ename gr)))
  41.       (entmod (subst '(71 . 0)
  42.              (assoc 71 gl)
  43.              gl
  44.           )
  45.       );不可选择
  46.     );end progn
  47.   );end if
  48.   (if (not tf)
  49.     (progn
  50.       (command ".select" "all" "r" s "")
  51.       (command ".group" "a" "ea_hide_object" "p" "")
  52.     );隔离隐藏用
  53.     (command ".group" "a" "ea_hide_object" s "")
  54.   )
  55.   (vla-put-visible
  56.     (vla-item groups "ea_hide_object")
  57.     mode
  58.   );隐藏组,实体将不拥有 62 组码
  59.   (princ)
  60. )
  61. ;;隐藏选择实体
  62. (defun c:Hideobj (/ ss)
  63.   (if (progn (princ "\n选择要隐藏的实体...")
  64.          (setq ss (ssget))
  65.       )
  66.     (ea:SSonoff t ss :vlax-false)
  67.   )
  68.   (princ)
  69. )
  70. ;;显示全部实体
  71. (defun c:Showall (/ ss)
  72.   (setvar "pickstyle" 0)
  73.   (if (not (vl-catch-all-error-p
  74.          (vl-catch-all-apply
  75.            'vla-item
  76.            (list
  77.          (setq
  78.            groups
  79.             (vla-get-groups
  80.               (vla-get-activedocument (vlax-get-acad-object))
  81.             )
  82.          )
  83.          "ea_hide_object"
  84.            )
  85.          )
  86.        )
  87.       )
  88.     (progn
  89.       (vla-put-visible
  90.     (vla-item groups "ea_hide_object")
  91.     :vlax-true
  92.       )
  93.       (command ".group" "e" "ea_hide_object");清除组
  94.     )
  95.   )
  96.   (princ)
  97. )
  98. ;;隐藏非选择实体
  99. (defun c:ISOobj    (/ ss)
  100.   (if (progn (princ "\n选择隔离实体....")
  101.          (setq ss (ssget))
  102.       )
  103.     (ea:ssonoff nil ss :vlax-false)
  104.   )
  105.   (princ)
  106. )
  107. (princ "\n\t命令: HideObj ShowAll IsoObj.")


点评

谢谢。测试一下使用效果是否方便,这隐藏,显示,平时画图的时候用得最多了。  详情 回复 发表于 2013-7-21 10:22
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2107个

财富等级: 金玉满堂

发表于 2013-7-21 10:22:36 | 显示全部楼层

谢谢。测试一下使用效果是否方便,这隐藏,显示,平时画图的时候用得最多了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-10-27 20:53:59 | 显示全部楼层
很简洁很简洁很简洁很简洁很简洁很简洁
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 305个

财富等级: 日进斗金

发表于 2014-3-23 21:38:33 | 显示全部楼层
谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-7-2 13:20:44 | 显示全部楼层
谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-2-12 10:12:40 | 显示全部楼层
这个怎么用啊:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-6-1 20:30:27 | 显示全部楼层
真心好用,感谢感谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 18:46 , Processed in 0.266670 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表