Siyah Beyaz Tabaka Renklerini Düzelten Makro Kodu (Black/White Layer Color Correction Macro Code)

Siyah ve Beyaz Tabaka Renklerini Kırmızıya Çeviren Hızlı Makro Çözümü 🚀

Quick Macro Solution to Convert Black and White Layer Colors to Red

Bu makro, NetCAD ortamında tabakalardaki siyah ve beyaz renkleri otomatik olarak kırmızı renge dönüştürür. Siyah (0), beyaz (15, 16) ve gri tonlar (80) gibi renkler, çizimlerde okunabilirliği zorlaştırabilir. Makro, bu renkleri tarayıp kırmızı (4) ile değiştirerek projelerinizi daha düzenli ve görsel açıdan net hale getirir. İşlem sonunda kullanıcıya bir mesaj kutusu ile bilgi verilir, böylece profesyonel bir deneyim sunulur. 🛠️

This macro automatically converts black and white layer colors to red in NetCAD. Colors like black (0), white (15, 16), and gray (80) can hinder drawing readability. By scanning and replacing these with red (4), it enhances project clarity. A message box confirms completion, ensuring a professional experience. 🛠️

Makro, NetCAD’in tabaka yönetim sistemi (nclayermanager) üzerinden çalışır. Tüm tabakaları sırayla tarar ve renk kodlarını kontrol eder. Siyah (0), beyaz (15, 16) veya gri (80) renk koduna sahip tabakalar tespit edildiğinde, bu renkler kırmızı (4) ile değiştirilir. İşlem bittiğinde, “Renkler Düzeltildi” mesajı görüntülenir. Bu, çizimlerinizi hızlıca standardize etmek için mükemmel bir yöntemdir. 💻

The macro operates via NetCAD’s layer management system (nclayermanager). It scans all layers, checking color codes. Layers with black (0), white (15, 16), or gray (80) are changed to red (4). Upon completion, a “Colors Corrected” message appears. This is an ideal way to standardize drawings quickly. 💻

,NetCAD, ,Makro, ,SiyahBeyazTabaka, ,RenkDüzeltme, ,KırmızıRenk, ,CADOtomasyon, ,ÇizimOptimizasyon, ,TabakaYönetimi, ,NetCADMakro, ,RenkDeğiştirme, ,CADÇizim, ,OtomasyonAraçları, ,ProjeDüzenleme, ,ÇizimStandartlaştırma, ,NetCADKodu, ,SiyahBeyazRenk, ,KırmızıTabaka, ,CADVerimlilik, ,MakroKodu, ,TabakaRenk

,NetCAD, ,Macro, ,BlackWhiteLayer, ,ColorCorrection, ,RedColor, ,CADAutomation, ,DrawingOptimization, ,LayerManagement, ,NetCADMacro, ,ColorChange, ,CADDrawing, ,AutomationTools, ,ProjectEditing, ,DrawingStandardization, ,NetCADCode, ,BlackWhiteColor, ,RedLayer, ,CADProductivity, ,MacroCode, ,LayerColor

📝 Netcad NVB Code

sub main

  'Tabaka Rengi Kontrolü
  setLayerColor

 
  msgbox "Renkler Düzeltildi.",32,"Şaban GÜL,  www.sabangul.com"
end sub

   'siyah ve beyaz renkleri kırmızı olarak değiştirir
sub SetLayerColor
dim i,j

  with nclayermanager
    for i = 0 to .numlayer-1
      if .layer(i).color = 80 or _
         .layer(i).color = 15 or _
         .layer(i).color = 0 or _
         .layer(i).color = 16  then
         .layer(i).color =  4
     end if
    next
  end with
end sub