找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2722|回复: 17

[每日一码] 对XREF的隔离图层和反操作

[复制链接]

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-1-2 23:16:24 | 显示全部楼层 |阅读模式

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

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

×
  1. (princ "\nLAYISOX to Isolate Xref Layers LAYUNISOX to unisolate it ")
  2. (defun c:LAYISOX (/ *error* i eName layerName layers acDoc)
  3.   (princ "\rLAYISOX to Isolate Xref Layers \rLAYUNISOX to unisolate it ")

  4.   (defun *error* (msg)
  5.     (if acDoc
  6.       (vla-endundomark acDoc)
  7.     )
  8.     (cond
  9.       ((not msg))                       ; Normal exit
  10.       ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or
  11.                                        ; (quit)
  12.       ((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display
  13.                                        ; it
  14.     )
  15.     (princ)
  16.   )
  17.   (layerstate-save "igal" nil nil)
  18.   (command "filedia" "1")
  19.   (setq i 0)
  20.   (while (setq eName (car (nentsel (strcat "\nSelect objects on the XREF layer(s) to be isolated: "
  21.                                            (if (< 0 i)
  22.                                              (strcat (itoa i) " found ")
  23.                                              ""
  24.                                            )
  25.                                    )
  26.                           )
  27.                      )
  28.          )
  29.     (setq i (1+ i))
  30.     (if (and
  31.           (not (vl-position (setq layerName (cdr (assoc 8 (entget eName))))
  32.                             layers
  33.                )
  34.           )
  35.           (not (vl-position (strcase layerName) '("0" "DEFPOINTS")))
  36.         )
  37.       (setq layers (cons layerName layers))
  38.     )
  39.   )

  40.   (if layers
  41.     (progn

  42.       ;; start an undomark
  43.       (vla-startundomark (setq acDoc (vla-get-activedocument
  44.                                                              (vlax-get-acad-object)
  45.                                      )
  46.                          )
  47.       )
  48.       (vlax-for oLayer (vla-get-layers acDoc)

  49.                 ;; if an xref layer
  50.                 (if (and
  51.                       (vl-string-search "|" (setq layerName
  52.                                                   (vla-get-name oLayer)
  53.                                             )
  54.                       )
  55.                       (not (vl-position layerName layers))
  56.                     )
  57.                   (vla-put-layeron oLayer :vlax-false)
  58.                 )
  59.       )
  60.     )
  61.   )
  62.   (*error* nil)
  63. )


隔离恢复

游客,如果您要查看本帖隐藏内容请回复


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

已领礼包: 812个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 3918个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 5602个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 3904个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2018-1-3 10:44:46 | 显示全部楼层

找路径应该容易吧?(setq Path (vlax-get obj 'Path))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

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

使用道具 举报

已领礼包: 9019个

财富等级: 富甲天下

发表于 2018-1-3 11:04:08 | 显示全部楼层

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

使用道具 举报

已领礼包: 4个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 216个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 1443个

财富等级: 财源广进

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-4 23:49 , Processed in 0.474249 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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