Gelişmiş Tabaka İsmi Değiştirme Makrosu (Advanced Layer Name Modification Macro)

Gelişmiş Tabaka İsimlerini Özelleştirin: Başa ve Sona Metin Ekleme, Bul-Değiştir İşlemleri 🚀

Customize Layer Names with Ease: Add Text to Start and End, Perform Find-Replace Operations

Bu makro, Netcad kullanıcıları için tabaka (layer) isimlerini toplu şekilde düzenlemek amacıyla tasarlanmıştır. Kullanıcı dostu bir arayüz üzerinden tabaka isimlerinin başına ve sonuna istenen metni ekleyebilir, aynı zamanda isimlerde belirli bir metni bulup başka bir metinle değiştirebilirsiniz. Harita mühendisleri ve CAD kullanıcıları için zaman kazandıran, pratik bir araçtır. Özellikle büyük projelerde tabaka isimlerini standartlaştırmak veya özelleştirmek için idealdir.

This macro is designed for Netcad users to batch-edit layer names efficiently. Through a user-friendly interface, you can add text to the beginning and end of layer names and perform find-and-replace operations on specific text within the names. It’s a time-saving, practical tool for surveyors and CAD users, perfect for standardizing or customizing layer names in large projects.

Arayüz Açılır: Makro çalıştırıldığında, “Gelişmiş Tabaka İsmi Değiştirme” başlıklı bir diyalog kutusu açılır. Metin Ekleme: Kullanıcı, tabaka isimlerinin başına ve sonuna eklenecek metinleri ilgili alanlara girer. Bul ve Değiştir: Tabaka isimlerinde değiştirilmek istenen eski metin ve yerine geçecek yeni metin belirtilir. Toplu İşlem: Makro, tüm tabakaları tarar ve belirtilen işlemleri (ekleme ve değiştirme) her tabaka adına uygular. Sonuç: İşlem tamamlandığında kullanıcıya “İşlem Tamamlandı” mesajı gösterilir.

Interface Opens: When the macro is run, a dialog box titled “Advanced Layer Name Modification” appears.
Text Addition: The user inputs text to be added to the start and end of layer names in the respective fields.
Find and Replace: The user specifies the old text to be replaced and the new text to replace it with.
Batch Processing: The macro scans all layers and applies the specified operations (addition and replacement) to each layer name.
Completion: Upon completion, a “Process Completed” message is displayed to the user.

tabaka ismi değiştirme, netcad makro, toplu düzenleme, harita mühendisliği, CAD araçları, tabaka yönetimi, otomasyon, VBScript, tabaka isimlendirme, proje yönetimi

layer name modification, netcad macro, batch editing, surveying, CAD tools, layer management, automation, VBScript, layer naming, project management

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
Dim i,BD,BD2
dim sagul,sagul2
dim sabangul1,sabangul2,sabangul3,sabangul4,sabangul5
dim sabangul,elifyaren
with Netcad
set BD = Netcad.NewBDialog("Gelişmiş Tabaka İsmi Değiştirme [SagulCAD, Şaban GÜL]")
BD.PutPrompt "Tabaka Adının Başına ve Sonuna Metin Ekleme"
BD.Getstring "elifyaren1","Başına Ekle:","", 19
BD.Getstring "elifyaren2","Sonuna Ekle:","", 19
BD.PutPrompt " "
BD.PutPrompt "Tabaka Adında Bul Değiştir Yapma"
BD.Getstring "elifyaren3","Eski Metin:","", 20
BD.Getstring "elifyaren4","Yeni Metin:","", 20
BD.PutPrompt " "
if BD.showmodal then
sabangul1= BD.ValueByName("elifyaren1")
sabangul2= BD.ValueByName("elifyaren2")
sabangul3= BD.ValueByName("elifyaren3")
sabangul4= BD.ValueByName("elifyaren4")
for i= 0 to .NumLayers-1
with nclayermanager
elifyaren=.Layer(i).name
sabangul= sabangul1 & elifyaren
sabangul=sabangul & sabangul2
sabangul=replace(sabangul,sabangul3,sabangul4)
.Layer(i).name = sabangul
end with
next
end if
Msgbox " İşlem Tamamlandı "
end with
End Sub

netcad-gelismis-tabaka-ad-degistir