对XREF的隔离图层和反操作

Lisphk · 发表于 2018-1-2 23:16:24

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

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

×

(princ "\nLAYISOX to Isolate Xref Layers LAYUNISOX to unisolate it ")
(defun c:LAYISOX (/ *error* i eName layerName layers acDoc)
(princ "\rLAYISOX to Isolate Xref Layers \rLAYUNISOX to unisolate it ")
(defun *error* (msg)
(if acDoc
(vla-endundomark acDoc)
)
(cond
((not msg)) ; Normal exit
((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or
; (quit)
((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display
; it
)
(princ)
)
(layerstate-save "igal" nil nil)
(command "filedia" "1")
(setq i 0)
(while (setq eName (car (nentsel (strcat "\nSelect objects on the XREF layer(s) to be isolated: "
(if (< 0 i)
(strcat (itoa i) " found ")
""
)
)
)
)
)
(setq i (1+ i))
(if (and
(not (vl-position (setq layerName (cdr (assoc 8 (entget eName))))
layers
)
)
(not (vl-position (strcase layerName) '("0" "DEFPOINTS")))
)
(setq layers (cons layerName layers))
)
)
(if layers
(progn
;; start an undomark
(vla-startundomark (setq acDoc (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(vlax-for oLayer (vla-get-layers acDoc)
;; if an xref layer
(if (and
(vl-string-search "|" (setq layerName
(vla-get-name oLayer)
)
)
(not (vl-position layerName layers))
)
(vla-put-layeron oLayer :vlax-false)
)
)
)
)
(*error* nil)
)

(princ "\nLAYISOX to Isolate Xref Layers LAYUNISOX to unisolate it ") 
(defun c:LAYISOX (/ *error* i eName layerName layers acDoc) 
  (princ "\rLAYISOX to Isolate Xref Layers \rLAYUNISOX to unisolate it ") 
 
  (defun *error* (msg) 
    (if acDoc 
      (vla-endundomark acDoc) 
    ) 
    (cond 
      ((not msg))                       ; Normal exit 
      ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or 
                                       ; (quit) 
      ((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display 
                                       ; it 
    ) 
    (princ) 
  ) 
  (layerstate-save "igal" nil nil) 
  (command "filedia" "1") 
  (setq i 0) 
  (while (setq eName (car (nentsel (strcat "\nSelect objects on the XREF layer(s) to be isolated: " 
                                           (if (< 0 i) 
                                             (strcat (itoa i) " found ") 
                                             "" 
                                           ) 
                                   ) 
                          ) 
                     ) 
         ) 
    (setq i (1+ i)) 
    (if (and 
          (not (vl-position (setq layerName (cdr (assoc 8 (entget eName)))) 
                            layers 
               ) 
          ) 
          (not (vl-position (strcase layerName) '("0" "DEFPOINTS"))) 
        ) 
      (setq layers (cons layerName layers)) 
    ) 
  ) 
 
  (if layers 
    (progn 
 
      ;; start an undomark 
      (vla-startundomark (setq acDoc (vla-get-activedocument 
                                                             (vlax-get-acad-object) 
                                     ) 
                         ) 
      ) 
      (vlax-for oLayer (vla-get-layers acDoc) 
 
                ;; if an xref layer 
                (if (and 
                      (vl-string-search "|" (setq layerName 
                                                  (vla-get-name oLayer) 
                                            ) 
                      ) 
                      (not (vl-position layerName layers)) 
                    ) 
                  (vla-put-layeron oLayer :vlax-false) 
                ) 
      ) 
    ) 
  ) 
  (*error* nil) 
)

隔离恢复

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

liunian0524 · 发表于 2018-1-3 08:09:35

感谢楼主分享

dnbcgrass · 发表于 2018-1-3 08:21:04

回复学习学习！

HLCAD · 发表于 2018-1-3 08:28:13

感谢楼主分享程序

yangjian001 · 发表于 2018-1-3 08:46:53

复学习学习复学习学习

q3_2006 · 发表于 2018-1-3 10:04:11

这个厉害..还能找到路径吗..

/db_自贡黄明儒_ · 发表于 2018-1-3 10:44:46

q3_2006 发表于 2018-1-3 10:04

找路径应该容易吧?(setq Path (vlax-get obj 'Path))

819534890 · 发表于 2018-1-3 10:47:35

回复学习，谢谢分享

yoyoho · 发表于 2018-1-3 11:04:08

感谢楼主分享程序学习！！！

453055586 · 发表于 2018-3-20 08:36:55

学习下，谢谢楼主的分享

liulisheng · 发表于 2018-3-20 08:48:16

支持一下哦

laiyuming · 发表于 2020-3-13 15:16:41

看看这是啥

向嘟嘟 · 发表于 2021-5-5 18:55:39

谢谢楼主的分享。

龙猫γ · 发表于 2021-5-6 13:14:19

回复学习回复学习回复学习

drshang · 发表于 2023-11-3 19:05:33

666666666666

账号		自动登录	找回密码
密码			立即注册

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

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