拆离所有外部参照VBA

klpocska · 发表于 2022-7-6 11:42:55

我在模型空间中有很多块和外部参照。我只想用VBA拆离模型空间中的外部参照（所有外部参照）。。。

我该怎么办？

DECHAL · 发表于 2022-7-6 12:10:19

您可以从外部引用管理器轻松完成此操作。只需键入xref，按enter键，然后选择显示的所有外部参照。右键单击“选择卸载”，即是如此。。

当做

德查尔

klpocska · 发表于 2022-7-6 12:20:04

是的，我知道，但这不是我的好方法。。。。

Joro-- · 发表于 2022-7-6 12:38:01

试试这个：

copy


Sub DetachAll()
   Dim XRef As AcadExternalReference
   Dim B As AcadBlock
   Dim Found As Boolean
   
   On Error Resume Next
   Do
       Found = False
       For Each B In ThisDrawing.Blocks
           If B.IsXRef Then
               B.Detach
               If Err Then Err.Clear
               Found = True
           End If
       Next
       If Found = False Then Exit Do
   Loop
       
       
End Sub

klpocska · 发表于 2022-7-6 12:54:10

Thx Joro，酷

[编程交流] 拆离所有外部参照VBA

发表回复

精选推荐