Xref’lerin Kaldırılması Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Bir xref tanımını kaldır

Bir xref’i kaldırmak için şunu kullanın:Yükü boşaltınyöntem.

Mevcut çizimde kullanılmayan bir referans dosyasını kaldırdığınızda, gereksiz çizim geometrisi veya sembol tablosu bilgilerini okuma ve görüntüleme zorunluluğu ortadan kalktığı için AutoCAD performansı artar. Referans dosyasının geometrisi ve iç içe geçmiş referans dosyalarının geometrisi, referans dosyası yeniden yüklenene kadar mevcut çizimde görüntülenmez.

Bir xref tanımını kaldır #

Bu örnek, harici bir referansı ekler ve ardından bu referansı kaldırır. Bu örnek, örnek dizininde bulunan 3D House.dwg dosyasını kullanır. Bu resme sahip değilseniz veya farklı bir dizinde bulunuyorsa, geçerli bir yol ve dosya adı girin.Yol Adıdeğişken.

Sub Ch10_UnloadingExternalReference () On Error GoTo ERRORHANDLER 
   

 'Eklenecek harici referansı tanımlayın'
 Dim xrefHome As AcadBlock
 Dim xrefInserted As AcadExternalReference
 Dim insertionPnt(0 To 2) As Double
 Dim PathName As String
 insertionPnt(0) = 1
 insertionPnt(1) = 1
 insertionPnt(2) = 0
 Yol Adı = "c:/Program Files/Autodesk/AutoCAD release/3D House.dwg"
 
 ' Harici referansı
  ekle Set xrefInserted = ThisDrawing . ModelSpace . _
  AttachExternalReference ( PathName , "XREF_IMAGE" , _ '   
 insertionPnt , 1 , 1 , 1 , 0 , False ) ZoomAll MsgBox "Harici referans eklendi."     
 
  
 
 'Harici referans tanımını kaldır'
 ThisDrawing.Blocks.Item(xrefInserted.name).Unload
 MsgBox "Harici referans kaldırıldı."
 Çıkış Alt Programı
HATA İŞLEYİCİ:
 MsgBox Err.Description
Son Alt Yordam