Xref’leri Ayırma Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Bir xref tanımını ayırın

Bir xref tanımını ayırarak, xref’leri çiziminizden tamamen kaldırabilirsiniz.

Ayrıca, tek tek xref örneklerini de silebilirsiniz. Xref tanımını kaldırmak, o xref ile ilişkili tüm bağımlı sembolleri kaldırır. Bir xref’in tüm örnekleri çizimden silinirse, AutoCAD çizim bir sonraki açıldığında xref tanımını kaldırır.

Bir xref’i ayırmak için şunu kullanın:AyırBu yöntemle iç içe geçmiş bir xref’i ayıramazsınız.

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

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_DetachingExternalReference () 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
 PathName = "c:/Program Files/Autodesk/AutoCAD release/sample/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ı ayırın
 Dim name As String
 ad = xrefInserted.name
 BuÇizim.Bloklar.Öğe(adı).Ayır
 MsgBox "Harici referans bağlantısı kesildi."
 Çıkış Alt Programı
HATA İŞLEYİCİ:
 MsgBox Err.Description
Son Alt Yordam