Alan Adı Değiştirme Makrosu (Field Name Replacement Macro)

✨ Alan Adlarında Hızlı ve Güvenilir Karakter Değiştirme Aracı

✨ Fast and Reliable Character Replacement Tool for Field Names

Bu makro, Netcad ortamında alan objelerinin isimlerinde (pname) belirli bir karakter veya metni bulup, yerine başka bir karakter veya metni yerleştirir. Kullanıcı dostu arayüzü ile eski ve yeni karakterleri girmenizi sağlar. Boş giriş durumlarında uyarı mesajları gösterir ve işlemi güvenli bir şekilde tamamlar. Harita mühendisleri için veri düzenlemeyi hızlandıran pratik bir çözümdür. Özellikle büyük veri setlerinde manuel düzenlemeyi ortadan kaldırır.

This macro finds a specific character or text in the names (pname) of field objects in the Netcad environment and replaces it with another character or text. With its user-friendly interface, it allows you to input old and new characters. It displays warning messages for empty inputs and completes the process securely. It’s a practical solution for survey engineers to streamline data editing, eliminating manual adjustments, especially in large datasets.

Makro başlatıldığında, bir diyalog kutusu açılır ve kullanıcıdan eski karakteri (örneğin “/”) ve yerine yazılacak yeni karakteri (örneğin “_”) girmesi istenir. Kullanıcı, giriş alanlarını doldurduktan sonra “Tamam” butonuna basar. Eğer eski veya yeni karakter kısmı boş bırakılırsa, bir uyarı mesajı gösterilir ve kullanıcıya devam edip etmeme seçeneği sunulur. Onay alındığında, makro Netcad ortamındaki alan objelerini tarar ve belirtilen eski karakteri yeni karakterle değiştirir. İşlem tamamlandığında, başarı mesajı gösterilir. Makro, yalnızca alan objelerinde çalışır ve diğer obje türlerini etkilemez.

When the macro is launched, a dialog box opens, prompting the user to enter the old character (e.g., “/”) and the new character to replace it (e.g., “_”). After filling in the fields, the user clicks “OK.” If the old or new character field is left empty, a warning message appears, asking the user whether to proceed. Upon approval, the macro scans field objects in the Netcad environment and replaces the specified old character with the new one. Once the process is complete, a success message is displayed. The macro only affects field objects and does not impact other object types.

alan adı değiştirme, netcad makro, karakter değiştirme, veri düzenleme, harita mühendisliği, otomasyon, vbscript, netcad otomasyon,

field name replacement, netcad macro, character replacement, data editing, survey engineering, automation, vbscript, netcad automation

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
Dim Top
Dim obj
dim bd
dim bz
dim result
with Netcad
set BD = Netcad.NewBDialog("Alan Adı Değiştirme [Harita Akademi, Şaban GÜL]")
BD.PutPrompt "Aşağıdaki Alana Eski Karakteri Giriniz:"
BD.Getstring "sagul1","Eski: ","/",50
BD.PutPrompt "Yerine Yazılacak Yeni Karakteri Giriniz:"
BD.Getstring "sagul2","Yeni: ","_",50
BD.PutPrompt " "
if BD.showmodal then
if BD.ValueByName("sagul1")="" then
result = MsgBox ("Eski Karakter Kısmı Boş Bırakıldı Devam etmek istermisiniz ", vbYesNo, "[Harita Akademi, Şaban GÜL]")
Select Case result
Case vbYes
Case vbNo
exit sub
End Select
end if
if BD.ValueByName("sagul2")="" then
result = MsgBox ("Yeni Karakter Kısmı Boş Bırakıldı Devam etmek istermisiniz ", vbYesNo, "[Harita Akademi, Şaban GÜL]")
Select Case result
Case vbYes
Case vbNo
exit sub
End Select
end if
.setfilter nothing, array(),array(opline)
do
set obj=.getnextobject
if obj is nothing then
exit do
else
obj.pname=replace(obj.pname,BD.ValueByName("sagul1"),BD.ValueByName("sagul2"))
end if
.PUTOBJECT .CUROBJPOS,OBJ
loop
.resetfilter
end if
result=Msgbox("İşlem Başarıyla Tamamlandı",vbInformation, "[Harita Akademi, Şaban GÜL]")
end with
End Sub

netcad-alan-adi-bul-degistir