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

拆离所有外部参照VBA

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

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

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

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

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

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

试试这个：
 

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，酷
页: [1]
查看完整版本: 拆离所有外部参照VBA