Tüm Tabakaları Tek Renk Yapma Makrosu (Change All Layers to a Single Color)

Tüm Tabakaları Tek Renk Yapma: Netcad Makrosu ile Hızlı ve Kolay Çözüm 🌟

Makroyu anlatan etkileyici bir cümle- İngilizce

Bu makro, Netcad yazılımında kullanılan bir VBScript kodudur ve tüm tabakaların rengini tek bir renge dönüştürmek için tasarlanmıştır. Kullanıcı, istediği renk kodunu (örneğin, siyah için 0) girebilir ve kilitli tabakaların bu işlemden etkilenip etkilenmeyeceğini belirtebilir. Makro, tabaka renklerini hızlıca günceller ve ekranı yenileyerek değişikliği anında gösterir. Harita mühendisleri ve Netcad kullanıcıları için zaman kazandıran pratik bir araçtır.

This macro is a VBScript code used in Netcad software, designed to change the color of all layers to a single color. Users can input the desired color code (e.g., 0 for black) and choose whether locked layers should be affected. The macro quickly updates layer colors and refreshes the screen to display the changes instantly. It is a time-saving tool for surveyors and Netcad users.

Makro, çalıştırıldığında bir diyalog penceresi açar ve kullanıcıdan renk kodu girmesini ister. Örneğin, siyah için 0, kırmızı için 1 gibi renk kodları kullanılabilir. Ayrıca, bir onay kutusu ile kilitli tabakaların renk değiştirme işleminden hariç tutulması sağlanabilir. Kullanıcı, seçimlerini yaptıktan sonra makro, tüm tabakaları tarar ve belirtilen renk kodunu uygular. İşlem tamamlandığında, Netcad ekranı otomatik olarak yenilenir (REGEN komutu ile) ve değişiklikler görünür hale gelir. Bu makro, büyük projelerde tabaka renklerini düzenlemek için oldukça kullanışlıdır.

When executed, the macro opens a dialog box prompting the user to enter a color code (e.g., 0 for black, 1 for red). A checkbox allows users to exclude locked layers from the color change. After the user confirms their choices, the macro scans all layers and applies the specified color code. Upon completion, the Netcad screen is automatically refreshed (using the REGEN command), making the changes visible. This macro is highly useful for organizing layer colors in large projects.

Netcad Makro, Tabaka Renk Değiştirme, Harita Mühendisliği, Netcad VBScript, Tek Renk Yapma, Kilitli Tabaka Yönetimi, Netcad Otomasyon, Harita Düzenleme, Renk Kodu Uygulama, Netcad Kullanıcıları, Harita Yazılımı, Tabaka Yönetimi, Hızlı Renk Değiştirme, Netcad Araçları, Harita Optimizasyonu, Netcad Makro Kodları,

Netcad Macro, Layer Color Change, Surveying, Netcad VBScript, Single Color Application, Locked Layer Management, Netcad Automation, Map Editing, Color Code Application, Netcad Users, Mapping Software, Layer Management, Fast Color Change, Netcad Tools, Map Optimization, Netcad Macro Codes

📝 Netcad NVB Code

' www.sabangul.com.tr Web Sayfasından İndirilmiştir
' Şaban GÜL , Harita Mühendisi
' Her Türlü Hata, İstek ve Öneriler İçin 
' haritaakademi@gmail.com veya sagulnet@gmail.com
' adresine durumu anlatan bir e-posta gönderiniz.

Sub Main
 Dim i
 dim a
 dim bd,ruhan ,elifyaren
 with Netcad

 set BD = Netcad.NewBDialog("Tüm Tabakaların Renginin Değiştirilmesi")
 BD.Getfloat "sagulnet","Renk Kodu Giriniz ( Siyah:0 )",0,0
 BD.GETCHECK "sagulnet2","Kilitli Tabakalarda Yapılmasın",1
 if BD.showmodal then
 ruhan=round(BD.ValueByName("sagulnet"),0)
 elifyaren=BD.ValueByName("sagulnet2")
 else
 exit sub
 end if
 for i= 0 to .NumLayers-1

 with nclayermanager
 if elifyaren=1 and .layer(i).LockActive=TRUE then
 else
 .Layer(i).color = ruhan
 end if

 end with

 next

 .netcadcommand("REGEN")

 end with

End Sub

netcad-tum-tabaka-tek-renk