Obje Seçimine Göre Tabaka Rengini Siyah Yapma Makrosu (Layer Color Change Based on Object Selection Macro)

Obje Seçimiyle Tabaka Rengini Otomatik Siyah Yapın: Pratik NetCAD Makrosu 🚀

Automatically Set Layer Color to Black with Object Selection: Practical NetCAD Macro

Bu makro, NetCAD ortamında seçilen bir objenin tabakasını tespit eder ve o tabakadaki tüm objeleri siyah renge çevirir. Ayrıca, seçilen tabakanın rengini de siyah (16 numaralı renk) olarak ayarlar. Kullanıcı dostu bir arayüzle, tek bir obje seçimiyle tüm tabaka üzerinde hızlı renk değişikliği sağlar. Özellikle büyük projelerde, belirli tabakaları görsel olarak öne çıkarmak veya düzenlemek için idealdir. 🛠️

This macro identifies the layer of a selected object in NetCAD and changes the color of all objects in that layer to black. It also sets the layer’s color to black (color code 16). With a user-friendly interface, it enables quick color changes across an entire layer with a single object selection. It’s ideal for large projects to visually highlight or organize specific layers.

• Obje Seçimi: Kullanıcı, NetCAD ekranında bir obje seçer. Makro, bu objenin bağlı olduğu tabakayı otomatik olarak algılar.
• Filtreleme: Seçilen objenin tabakası filtrelenir ve bu tabakadaki tüm objeler taranır.
• Renk Değişikliği: Taranan objelerin her biri siyah renge boyanır.
• Tabaka Ayarı: Seçilen tabakanın rengi, NetCAD’in renk paletinde 16 numaralı renk (siyah) olarak güncellenir.
• Hızlı Yenileme: Değişiklikler anında ekrana yansır, böylece kullanıcı sonucu hemen görür.
• Makro, işlem tamamlanana kadar döngüyle çalışır ve seçim iptal edildiğinde durur. Bu, hem hızlı hem de hatasız bir düzenleme sağlar. 🔄

• Object Selection: The user selects an object in the NetCAD interface, and the macro automatically detects its layer.
• Filtering: The selected object’s layer is filtered, and all objects in that layer are scanned.
• Color Change: Each scanned object is painted black.
• Layer Setting: The layer’s color is updated to black (color code 16 in NetCAD’s palette).
• Fast Redraw: Changes are instantly reflected on the screen for immediate feedback.
• The macro runs in a loop until the selection process is complete or canceled, ensuring fast and error-free editing.

NetCAD, Makro, Tabaka Rengi, Siyah Tabaka, CAD Programlama, Otomasyon, Obje Seçimi, Tabaka Düzenleme, NetCAD Makro, Renk Değiştirme, CAD Otomasyon, Hızlı Düzenleme, Tabaka Yönetimi, Siyah Renk Ayarı, NetCAD Script, Otomatik Renk Değişimi

NetCAD, Macro, Layer Color, Black Layer, CAD Programming, Automation, Object Selection, Layer Editing, NetCAD Macro, Color Change, CAD Automation, Fast Editing, Layer Management, Black Color Setting, NetCAD Script, Automatic Color Change

📝 Netcad NVB Code

SUB Main
DIM secim,o,i,j,oo,p
With netcad
    set secim = .NewSelectStatus 'Yeni bir seçim durumu oluşturur / Creates a new selection status
    while .SelectObjectInstant("Seçilen ilk objenin tabakası siyah yapılır.",1,array(),secim) 'Kullanıcıya obje seçtirir / Prompts user to select an object
      set o = secim.objects(0) 'Seçilen ilk objeyi alır / Gets the first selected object

       .SetFilter .GetCurrentWindow, array(o.tabaka), array() 'Seçilen objenin tabakasını filtreler / Filters the layer of the selected object
       Do
         set oo = .GetNextObject 'Sonraki objeyi alır / Gets the next object
         if oo is nothing then 'Eğer obje yoksa döngüden çıkar / Exits loop if no object is found
           exit do
         else
          .drawobject oo, Black 'Objeyi siyah renge boyar / Paints the object black
         end if
       Loop
       With nclayermanager
       dim sagul
       sagul=o.tabaka 'Seçilen objenin tabakasını alır / Gets the layer of the selected object
        .layer(sagul).color=16 'Tabaka rengini siyah (16) yapar / Sets the layer color to black (16)
        end with
        .FastRedraw 'Ekranı hızlıca yeniler / Redraws the screen quickly

    wend
    set secim = nothing 'Seçim durumunu temizler / Clears the selection status
    set o = nothing 'Obje referansını temizler / Clears the object reference
  End With
END SUB

netcad-secilen-objenin-tabakasi-siyah-yapma