Seçilen Obje Tabakasını Kilitleme Makrosu (Selected Object Layer Locking Macro)

🚀 Netcad’de Seçilen Objenin Tabakasını Otomatik Kilitleyen Makro ile Proje Güvenliğinizi Artırın!

Enhance Your Project Security with a Macro That Automatically Locks the Layer of the Selected Object in Netcad!

Bu makro, Netcad kullanıcıları için özel olarak tasarlanmış bir otomasyon aracıdır. Seçtiğiniz bir nesnenin bulunduğu tabakayı hızlıca kilitler, böylece yanlışlıkla düzenlemeleri önler. Karmaşık projelerde tabaka güvenliğini sağlamak için mükemmel bir çözümdür. Makro, seçilen nesnenin tabakasını tespit eder, bu tabakadaki diğer nesneleri siyah renkte çizer ve tabakayı kilitler. Bu sayede projelerinizde düzen ve kontrol sağlarsınız. SagulCAD tarafından geliştirilen bu makro, Netcad’in araçlar menüsünden kolayca çalıştırılır ve kullanıcı dostudur.

This macro is a tailored automation tool for Netcad users. It instantly locks the layer of a selected object, preventing accidental edits. It’s an excellent solution for ensuring layer security in complex projects. The macro identifies the layer of the selected object, draws other objects in that layer in black, and locks the layer. This promotes order and control in your projects. Developed by SagulCAD, it’s easily run from Netcad’s tools menu and is user-friendly.

Obje Seçimi: Netcad ekranında bir nesne seçersiniz. Tabaka Tespiti: Makro, seçilen nesnenin tabakasını otomatik olarak belirler. Görsel Doğrulama: Seçilen tabakadaki diğer nesneler siyah renkte çizilir, böylece kilitlenecek tabaka görsel olarak doğrulanır. Tabaka Kilitleme: Belirlenen tabaka kilitlenir ve düzenlenemez hale gelir. Hızlı Yenileme: Ekran anında yenilenir, değişiklikler hemen görünür.

Object Selection: You select an object on the Netcad screen. Layer Detection: The macro automatically identifies the object’s layer. Visual Confirmation: Other objects in the layer are drawn in black, visually verifying the layer to be locked. Layer Locking: The identified layer is locked, making it uneditable. Fast Refresh: The screen refreshes instantly, making changes visible.

Netcad makro, obje tabaka kilitleme, tabaka güvenliği, proje güvenliği, otomasyon, SagulCAD, Netcad otomasyon, tabaka yönetimi, makro geliştirme, Netcad araçları, proje düzeni, tabaka kontrolü, kullanıcı dostu makro, Netcad verimlilik, proje otomasyonu

Netcad macro, object layer locking, layer security, project security, automation, SagulCAD, Netcad automation, layer management, macro development, Netcad tools, project organization, layer control, user-friendly macro, Netcad productivity, project automation

📝 Netcad NVB Code

'------------------------------------------------------------------------------------------
'Şaban GÜL Tarafından Üretilmiştir. Telif hakkı gereği bu satırı ve alttaki satırları silmeyiniz.
'Bu Makro SagulCAD ile üretilmiştir. Daha fazla bilgi için www.sagul.net adresini ziyaret ediniz.
'İstediğiniz yenilikleri, tespit ettiğiniz hataları bize ileti gönderiniz. E-posta: sagulnet@gmail.com.
'Bu makro sadece Netcad üzerinden çalışır. 
'Makroyu çalıştırmak için Netcad Menüsünden Araçlar >> Uygulama Geliştirme >> Makro Çalıştır menüsünden makroyu çalıştırabilirsiniz.
'sagul.net/SagulCAD adresinden daha fazla bilgi edinebilirsiniz.
'------------------------------------------------------------------------------------------
SUB Main
DIM secim,o,i,j,oo,p
With netcad
    set secim = .NewSelectStatus
    while .SelectObjectInstant("Seçilen ilk objenin tabakası kilitlenir",1,array(),secim)
      set o = secim.objects(0)

       .SetFilter .GetCurrentWindow, array(o.tabaka), array()
       Do
         set oo = .GetNextObject
         if oo is nothing then
           exit do
         else
          .drawobject oo, Black 'Seçilen tabakadaki nesneleri siyah renkte çizer
         end if
       Loop
       With nclayermanager
       dim sagul
       sagul=o.tabaka
        .layer(sagul).LockActive=true 'Tabakayı kilitler
        end with
        .FastRedraw 'Ekranı hızlıca yeniler

    wend
    set secim = nothing
    set o = nothing
  End With
END SUB

netcad-secilen-obje-tabaka-kilitle