明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 220|回复: 5

[提问] 卸载除了带有“结构参照”、“建筑参照”、“设备参照”字符的外部参照

[复制链接]
发表于 2021-6-3 08:47 | 显示全部楼层 |阅读模式
10明经币
以下简单的语句只能排除“结构参照”。 我想排除“结构参照”、“建筑参照”、等多个关键字


(Defun C:dxrs ( )           
        (command "-xref" "Detach" "~结构参照*")
)
(Defun C:gxrs ( )           
        (command "-xref" "unload" "~结构参照*")
);

最佳答案

查看完整内容

(Defun C:gxrs ( ) (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT)))) (vlax-for item blks (setq name (vla-get-name item)) (if (and (setq i (VL-STRING-SEARCH "|" name)) (/= (substr name 1 1) "*") (setq name (substr name 1 i)) ) (if (and (= nil (VL-STRING-SEARCH "结构参照" name)) (= ...
发表于 2021-6-3 08:47 | 显示全部楼层
本帖最后由 845245015 于 2021-6-3 15:10 编辑
iamhuangjinming 发表于 2021-6-3 12:38
试验了一下, 把建筑参照-xxx卸载掉了。 反而想卸载掉的参照-xxx没有卸载掉。

(Defun C:gxrs ( )
  (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))))
  (vlax-for item blks
    (setq name (vla-get-name item))
    (if (and (setq i (VL-STRING-SEARCH "|" name))
             (/= (substr name 1 1) "*")
             (setq name (substr name 1 i))
             )
      (if (and
            (= nil (VL-STRING-SEARCH "结构参照" name))
            (= nil (VL-STRING-SEARCH "建筑参照" name))
            (= nil (VL-STRING-SEARCH "设备参照" name))
            )
        (command "-xref" "unload" name)
        )
      )
    )
  (princ)
  )
(Defun C:dxrs ( )
  (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))))
  (vlax-for item blks
    (setq name (vla-get-name item))
    (if (and (setq i (VL-STRING-SEARCH "|" name))
             (/= (substr name 1 1) "*")
             (setq name (substr name 1 i))
             )
      (if (and
            (= nil (VL-STRING-SEARCH "结构参照" name))
            (= nil (VL-STRING-SEARCH "建筑参照" name))
            (= nil (VL-STRING-SEARCH "设备参照" name))
            )
        (command "-xref" "Detach" name)
        )
      )
    )
  (princ)
  )

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2021-6-3 08:56 | 显示全部楼层
本帖最后由 845245015 于 2021-6-3 11:04 编辑

(Defun C:tt1234 ( )
  (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))))
  (setq xrefnames '("结构参照" "建筑参照" "设备参照"))
  (vlax-for item blks
    (setq name (vla-get-name item))
    (if (and (setq i (VL-STRING-SEARCH "|" name))
             (/= (substr name 1 1) "*")
             (setq name (substr name 1 i))
             (not (member name xrefnames))
             )
      (command "-xref" "unload" name)
      )
    )
)
回复

使用道具 举报

 楼主| 发表于 2021-6-3 12:38 | 显示全部楼层
845245015 发表于 2021-6-3 08:56
(Defun C:tt1234 ( )
  (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))))
...

试验了一下, 把建筑参照-xxx卸载掉了。 反而想卸载掉的参照-xxx没有卸载掉。

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2021-6-3 14:53 | 显示全部楼层
845245015 发表于 2021-6-3 08:47
(Defun C:tt1234 ( )
  (setq blks (vla-get-blocks (vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT))) ...

还想问您一下,就是把这个unload改成Detach之后, 已经卸载的外部参照不能拆离。  就同样的功能,不管外部参照有没有卸载,实现拆离应该怎么搞呢。
回复

使用道具 举报

发表于 2021-6-4 08:44 | 显示全部楼层
谢谢分享
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-12-2 08:51 , Processed in 0.521611 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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