Nesneleri Silme veya Kaldırma Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Çoklu çizgi oluşturma ve silme

Tek tek nesneleri silmek veya kaldırmak için aşağıdaki yöntemi kullanabilirsiniz.Silmekyöntem.

Not: ActiveX Otomasyonundaki Koleksiyon nesnelerinin bir özelliği vardır.SilmekBu yöntem, bu nesnelerin tür kütüphanesinde tanımlanma biçiminden kaynaklanmaktadır. Ancak, Koleksiyon nesneleri, örneğin,Model Alanıkoleksiyon,Katmanlarkoleksiyon veSözlüklerKoleksiyon asla silinmemelidir. Koleksiyonu silmeye çalışırsanız hata oluşacaktır.

Çoklu çizgi oluşturma ve silme #

Bu örnek, hafif bir çokgen çizgi oluşturur ve ardından onu siler.

Sub Ch4_DeletePolyline () ' Çoklu çizgiyi oluştur 
  
  Dim lwpolyObj As AcadLWPolyline
  Dim vertices(0 To 5) As Double
  köşeler(0) = 2: köşeler(1) = 4
  köşeler(2) = 4: köşeler(3) = 2
  köşeler(4) = 6: köşeler(5) = 4
  Set lwpolyObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(vertices)
  ZoomAll

  ' Çokgen çizgiyi sil' 
  lwpolyObj . Delete ThisDrawing . Regen acActiveViewport
 End Sub