Seçilen Obje Tabakayı Kapatma Makrosu (Close Selected Object Layer Macro)

Ekrandan Seçilen Nesnenin Tabakasını Kapatmak İçin Pratik Çözüm 🚀

Practical Solution to Close the Layer of the Selected Object 🚀

Bu makro, Netcad ortamında ekrandan seçilen bir nesnenin bulunduğu tabakayı hızlı ve güvenli bir şekilde kapatır. Kullanıcı, herhangi bir nesneyi seçtiğinde, makro otomatik olarak o nesnenin bağlı olduğu tabakayı tespit eder ve kapatır. Ancak, aktif tabakanın yanlışlıkla kapatılmasını önlemek için bir koruma mekanizması içerir. Eğer seçilen nesne aktif tabakada yer alıyorsa, kullanıcıya bir uyarı mesajı gösterilir. Bu, Netcad kullanıcılarının çizim süreçlerini optimize etmelerine ve tabaka yönetimini kolaylaştırmalarına olanak tanır. Özellikle karmaşık projelerde, belirli tabakaları hızlıca kapatmak isteyen kullanıcılar için ideal bir araçtır. 🛠️

This macro allows users to quickly and safely close the layer of an object selected on the screen in the Netcad environment. When a user selects an object, the macro automatically identifies the layer associated with that object and closes it. To prevent accidental closure of the active layer, it includes a protective mechanism. If the selected object is in the active layer, a warning message is displayed to the user. This tool helps Netcad users optimize their drawing processes and simplifies layer management. It is particularly useful for users working on complex projects who need to close specific layers efficiently. 🛠️

Obje Seçimi: Kullanıcı, Netcad ekranında bir nesne seçer. Makro, seçilen nesnenin bağlı olduğu tabakayı otomatik olarak tespit eder. Aktif Tabaka Kontrolü: Eğer seçilen nesne aktif tabakada yer alıyorsa, makro bir uyarı mesajı gösterir ve işlemi durdurur. Filtreleme ve Görselleştirme: Seçilen nesnenin tabakasına bir filtre uygulanır. Bu tabakadaki tüm nesneler siyah renkte çizilerek “silinmiş” gibi gösterilir. Tabaka Kapatma: Makro, ilgili tabakayı kapatır ve ekranı hızlı bir şekilde yeniler. Hafıza Yönetimi: İşlem tamamlandıktan sonra kullanılan bellek serbest bırakılır, böylece sistem performansı korunur.
Bu süreç, kullanıcı dostu bir deneyim sunarak tabaka yönetimini hızlı ve hatasız hale getirir.

Object Selection: The user selects an object on the Netcad screen. The macro automatically detects the layer associated with the selected object.
Active Layer Check: If the selected object is in the active layer, the macro displays a warning message and halts the process.
Filtering and Visualization: A filter is applied to the layer of the selected object. All objects in this layer are drawn in black, appearing as if they have been “deleted.”
Layer Closure: The macro closes the relevant layer and quickly refreshes the screen.
Memory Management: After the process is complete, the used memory is freed, ensuring system performance is maintained.
This process provides a user-friendly experience, making layer management fast and error-free.

Netcad makro, tabaka kapatma, nesne seçimi, CAD otomasyonu, çizim optimizasyonu, kullanıcı dostu makro, tabaka yönetimi, Netcad script, otomasyon aracı, CAD çözümleri, tabaka kontrolü, proje yönetimi

Netcad macro, layer closure, object selection, CAD automation, drawing optimization, user-friendly macro, layer management, Netcad script, automation tool, CAD solutions, layer control, project management

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
'Tarih :18/05/2001 V2.00
'Amaç : Ekrandan seçilen objenin bulunduğu tabaka kapatılır.
'Girdiler :Netcad objeleri
'Uyarı :Aktif tabakanın kapatılması engellenmiştir.
SUB Main
DIM ss,o,i,j,oo,p
With netcad
    set ss = .NewSelectStatus   ' Anlik Secim objesi yarat
    while .SelectObjectInstant("Seçtiğiniz objelerin tabakası kapatılacaktır.",1,array(),ss)  ' obje sec
      set o = ss.objects(0)         ' Secim objesinin ilk objesini al
      if not(o.tabaka=.GetCurrentLayer) then
       .SetFilter .GetCurrentWindow, array(o.tabaka), array()          'Filitre uygula
       Do
         set oo = .GetNextObject   ' Yukardaki Kurala uyan bir sonraki objeyi getir
         if oo is nothing then     ' Eger kurala uyan obje kalmadiysa sonuc "nothing" doner
           exit do                ' Bu durumda donguyu durdur
         else
          .drawobject oo, Black   ' objeyi silinmis gibi siyahla ciz
         end if
       Loop
        .CloseLayer o.tabaka
        .FastRedraw
        else
          msgbox "aktif tabaka kapatılamaz"
      end if
    wend
    set ss = nothing
    set o = nothing               ' obje icin aldigimiz memory'i geri ver
  End With
END SUB

netcad-secilen-obje-tabaka-kapat