Xref’leri Bağlama Hakkında (VBA/ActiveX)

1 dakika okuma

İçindekiler

Bir xref tanımını bağlayın.

Bir xref’i çizime bağlama işlemi şu şekilde gerçekleştirilir:BağlaBu yöntem, xref’i çizimin kalıcı bir parçası haline getirir ve artık harici olarak referans verilen bir dosya olmaktan çıkarır.

Harici referans verilen bilgiler bir blok haline gelir. Harici referans verilen çizim güncellendiğinde, bağlı xref güncellenmez. Bu işlem, tüm bağımlı sembolleri de dahil olmak üzere çizimin tüm veritabanını bağlar.

Bağımlı semboller, bloklar, boyut stilleri, katmanlar, çizgi tipleri ve metin stilleri gibi adlandırılmış nesnelerdir. Xref’i bağlamak, xref’teki adlandırılmış nesnelerin geçerli çizimde kullanılmasını sağlar.

OBağlaBu yöntem yalnızca bir parametre gerektirir: bPrefixName . bPrefixName TRUE olarak ayarlanırsa, xref çiziminin sembol adları, mevcut çizimde <blokadı>$x$ önekiyle başlar; burada x, mevcut blok tanımlarının üzerine yazılmasını önlemek için otomatik olarak artırılan bir tamsayıdır. bPrefixName parametresi FALSE olarak ayarlanırsa, xref çiziminin sembol adları önek olmadan mevcut çizime birleştirilir. Yinelenen adlar varsa, AutoCAD yerel çizimde zaten tanımlanmış sembolleri kullanır. Çiziminizde yinelenen sembol adları olup olmadığından emin değilseniz, bPrefixName’i TRUE olarak ayarlamanız önerilir .

Bir xref tanımını bağlayın. #

Bu örnek, harici bir referans ekler ve ardından bu harici referansı çizime bağlar. 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_BindingExternalReference () 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ı bağla'
 ThisDrawing.Blocks.Item(xrefInserted.name).Bind False
 MsgBox "Harici referans bağlandı."
 Çıkış Alt Programı
HATA İŞLEYİCİ:
 MsgBox Err.Description
Son Alt Yordam