Katmanları Açma ve Kapatma Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Bir katmanı kapat

Devre dışı bırakılan katmanlar çizimle birlikte yeniden oluşturulur ancak görüntülenmez veya çizilmez.

Katmanları kapatarak, bir katmanı her çözdüğünüzde çizimi yeniden oluşturmaktan kaçınırsınız. Kapatılmış bir katmanı tekrar açtığınızda, AutoCAD o katmandaki nesneleri yeniden çizer.

Katmanları açmak ve kapatmak için şunu kullanın:LayerOnBu özelliğe TRUE değeri girerseniz, katman açılır. FALSE değeri girerseniz, katman kapatılır.

Bir katmanı kapat #

Bu örnek, yeni bir katman oluşturur, katmana bir daire ekler, ardından dairenin artık görünmemesi için katmanı kapatır.

Sub Ch4_LayerInvisible () ' Bir daire oluştur 
  
  Dim circleObj As AcadCircle
  Dim center(0 To 2) As Double
  Yarıçapı Çift Olarak Azalt
  merkez(0) = 2: merkez(1) = 2: merkez(2) = 0
  yarıçap = 1
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)

  ' "ABC" adında yeni bir katman oluşturun . Dim layerObj As AcadLayer Set layerObj = ThisDrawing . Layers . Add ( "ABC" ) 
   
   

  'Daireyi "ABC" katmanına atayın'
  daireNesneKatmanı = "ABC"
  daireNesnesi.Güncelle

  ' "ABC" katmanını kapat 
  layerObj . LayerOn = False ThisDrawing . Regen acActiveViewport
 End Sub