Objenin Tabakasını Siyah Yapma Makrosu (Layer Color to Black Macro)

🔥 Netcad\’de Seçilen Objenin Tabakasını Hızlıca Siyah Yapın

🌟 Instantly Change the Layer Color of Selected Objects to Black in Netcad with

Bu makro, Netcad yazılımında seçilen bir objenin bulunduğu tabakanın rengini hızlı ve kolay bir şekilde siyah (16 numaralı renk kodu) olarak değiştirir. Kullanıcı, herhangi bir objeyi seçtiğinde, makro otomatik olarak o objenin tabakasını tespit eder, ilgili tabakadaki tüm objeleri siyah renkte çizer ve tabaka rengini siyah olarak günceller. Bu işlem, özellikle büyük projelerde tabaka renklerini düzenlemek için zaman kazandırır ve manuel işlemleri ortadan kaldırır. Netcad kullanıcıları için pratik ve verimli bir araçtır.

This macro allows users to quickly change the layer color of a selected object to black (color code 16) in Netcad software. When an object is selected, the macro identifies its layer, draws all objects in that layer in black, and updates the layer color to black. It’s a time-saving tool for managing layer colors in large projects, eliminating manual adjustments and enhancing efficiency for Netcad users.

Makro, Netcad ortamında çalışmak üzere VBScript ile yazılmıştır. İşleyiş şu adımları takip eder:

• Kullanıcı, Netcad ekranında bir obje seçer.
• Makro, seçilen objenin tabakasını (layer) tespit eder.
• Tespit edilen tabakadaki tüm objeler siyah renkte çizilir.
• Tabakanın rengi, Netcad’in renk paletinde 16 numaralı renk olan siyaha ayarlanır.
• Ekran hızlı bir şekilde yenilenir (FastRedraw) ve değişiklikler anında görünür hale gelir.
• Kullanıcı başka bir obje seçerse, işlem aynı şekilde tekrar eder.
• Bu makro, Netcad’in naberleme sistemine entegre çalışır ve tabaka yönetimi için kullanıcı dostu bir çözüm sunar.

• The macro is written in VBScript for the Netcad environment and operates as follows:
• The user selects an object on the Netcad screen.
• The macro identifies the layer of the selected object.
• All objects in that layer are drawn in black.
• The layer’s color is set to black (color code 16 in Netcad’s palette).
• The screen is quickly refreshed (FastRedraw) to display the changes instantly.
• If the user selects another object, the process repeats.
• This macro integrates seamlessly with Netcad’s layer system, providing a user-friendly solution for layer management.

Netcad, VBScript, Makro, Tabaka Yönetimi, Renk Değiştirme, CAD, Otomasyon, Netcad Makro, Tabaka Rengi, Siyah Tabaka, VBScript Kod, Netcad Otomasyon, CAD Yazılım, Makro Programlama, Tabaka Düzenleme, Netcad Kullanıcıları, Teknik Çizim, Netcad Script, Otomatik Renk Değiştirme, CAD Makro

Netcad, VBScript, Macro, Layer Management, Color Change, CAD, Automation, Netcad Macro, Layer Color, Black Layer, VBScript Code, Netcad Automation, CAD Software, Macro Programming, Layer Editing, Netcad Users, Technical Drawing, Netcad Script, Automatic Color Change, CAD Macro

📝 Netcad NVB Code

SUB Main
DIM secim,o,i,j,oo,p
With netcad
    set secim = .NewSelectStatus 'Yeni bir seçim durumu oluşturur
    while .SelectObjectInstant("Seçilen ilk objenin tabakası kilitlenir",1,array(),secim) 'Kullanıcıdan obje seçmesini ister
      set o = secim.objects(0) 'Seçilen ilk objeyi alır

       .SetFilter .GetCurrentWindow, array(o.tabaka), array() 'Seçilen objenin tabakasına filtre uygular
       Do
         set oo = .GetNextObject 'Tabakadaki diğer objeleri sırayla alır
         if oo is nothing then
           exit do 'Obje yoksa döngüden çıkar
         else
          .drawobject oo, Black 'Objeyi siyah renkte çizer
         end if
       Loop
       With nclayermanager
       dim sagul
       sagul=o.tabaka 'Seçilen objenin tabakasını saklar
        .layer(sagul).color=16 'Tabaka rengini siyaha (16) ayarlar
        end with
        .FastRedraw 'Ekranı hızlıca yeniler

    wend
    set secim = nothing 'Seçim durumunu temizler
    set o = nothing 'Obje referansını temizler
  End With
END SUB

netcad-secilen-obje-tabaka-siyah