拆离当前DWG所有外部参照及外部光栅图像

llsheng_73

1. (defun c:tt(/ *doc);;;拆离所有外部DWG参照及未参照光栅图像
   
2.   (vl-load-com)
   
3.   ;;拆离外部DWG参照
   
4.   (vlax-for blk(vlax-get-property(setq *doc(vlax-get-property(vlax-get-acad-object)'ActiveDocument))'blocks)
   
5.     (or(equal(vlax-get-property blk'IsXRef):vlax-false)
   
6.        (vlax-invoke-method blk'unload)
   
7.        (vlax-invoke-method blk'Detach)))
   
8.    ;;拆离未参照光栅图像
   
9.   (vlax-for x(vlax-invoke-method(vlax-get-property *doc 'Dictionaries)'item "ACAD_IMAGE_DICT")
   
10.     (or(vl-position'(280 . 1)(entget(vlax-vla-object->ename x)))(vlax-invoke-method x'delete)))
    
11.   )

(defun c:tt(/ *doc);;;拆离所有外部DWG参照及未参照光栅图像<br />   (vl-load-com)<br />   ;;拆离外部DWG参照<br />   (vlax-for blk(vlax-get-property(setq *doc(vlax-get-property(vlax-get-acad-object)'ActiveDocument))'blocks)<br />     (or(equal(vlax-get-property blk'IsXRef):vlax-false)<br />        (vlax-invoke-method blk'unload)<br />        (vlax-invoke-method blk'Detach)))<br />    ;;拆离未参照光栅图像<br />   (vlax-for x(vlax-invoke-method(vlax-get-property *doc 'Dictionaries)'item "ACAD_IMAGE_DICT")<br />     (or(vl-position'(280 . 1)(entget(vlax-vla-object->ename x)))(vlax-invoke-method x'delete)))<br />   )

依然小小鸟

xcmdos 发表于 2023-5-18 08:25
楼主，麻烦问下有批量增加外部参照的方法吗

同求 批量绑定外部参照的插件

sandyvs

llsheng_73 发表于 2023-8-18 14:47
提供一个样图试试

帮忙看一下，压缩包中有说明，感谢！

llsheng_73

sandyvs 发表于 2023-8-18 16:00
帮忙看一下，压缩包中有说明，感谢！

已更新，见1楼

nsh935

谢谢分享！！！！！

lxl217114

谢谢大佬分享

mokson

我用 er 命令

hzyhzjjzh

谢谢楼主分享

enn09

谢谢楼主分享

白色微風1991

謝謝樓主分享

xcmdos

楼主，麻烦问下有批量增加外部参照的方法吗

czb203

有些牛皮癣的外部参照能删除吗？