Nokta Adı Değiştirme Makrosu(Point Name Replacement Macro)

Nokta Adlarını Kolayca Düzenleyin: Nokta Adı Değiştirme Makrosu 🚀

Effortlessly Edit Point Names: Point Name Replacement Macro 🚀

Bu makro, Netcad ortamında nokta adlarında istenen karakterleri hızlı ve kolay bir şekilde değiştirmenizi sağlar. Örneğin, nokta adlarında bulunan bir \”/\” karakterini \”_\” ile değiştirebilir ya da herhangi bir eski karakteri yeni bir karakterle güncelleyebilirsiniz. Harita Akademi tarafından geliştirilen bu araç, özellikle büyük projelerde manuel düzenlemeleri otomatikleştirerek zaman tasarrufu sağlar. Kullanıcı dostu arayüzü sayesinde eski ve yeni karakterleri belirtebilir, boş giriş durumlarında uyarı alabilir ve işlemin başarıyla tamamlandığını doğrulayan bir bildirim alırsınız. 🛠️

This macro allows you to quickly and easily replace characters in point names within the Netcad environment. For instance, you can replace a \”/\” character with \”_\” or update any old character with a new one. Developed by Harita Akademi, this tool automates manual edits, saving time in large projects. Its user-friendly interface lets you specify old and new characters, provides warnings for empty inputs, and confirms successful completion with a notification. 🛠️

Makro çalıştırıldığında, bir iletişim kutusu açılır ve kullanıcıdan eski karakteri (değiştirilecek olan) ve yeni karakteri (yerine yazılacak olan) girmesi istenir. Eğer eski veya yeni karakter alanı boş bırakılırsa, makro kullanıcıya devam etmek isteyip istemediğini sorar. Kullanıcı \”Hayır\” derse işlem iptal edilir. Makro, Netcad\’deki tüm noktaları tarar ve belirtilen eski karakteri yeni karakterle değiştirir. İşlem tamamlandığında, kullanıcıya \”İşlem Başarıyla Tamamlandı\” mesajı gösterilir. Makro, yalnızca nokta objelerini hedef alır ve diğer veri türlerini etkilemez, böylece güvenli bir düzenleme sağlar.

When the macro runs, a dialog box prompts the user to enter the old character (to be replaced) and the new character (to replace it).
If the old or new character field is left empty, the macro asks the user whether to proceed. If the user selects \”No,\” the process is canceled.
The macro scans all points in Netcad and replaces the specified old character with the new one.
Upon completion, a message confirms that the operation was successful.
The macro targets only point objects, ensuring safe editing without affecting other data types.
Makro Kodu

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

İngilizce

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
' 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 Top
Dim obj
dim bd
dim bz
dim result
with Netcad
set BD = Netcad.NewBDialog("Nokta 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, "[Ş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, "[Şaban GÜL]")
Select Case result
Case vbYes
Case vbNo
exit sub
End Select
end if
.setfilter nothing, array(),array(opoint)
do
set obj=.getnextobject
if obj is nothing then
exit do
else
obj.s=replace(obj.s,BD.ValueByName("sagul1"),BD.ValueByName("sagul2"))
end if
.PUTOBJECT .CUROBJPOS,OBJ
loop
.resetfilter
end if
result=Msgbox("İşlem Başarıyla Tamamlandı",vbInformation, "[ Şaban GÜL]")
end with
End Sub

netcad-nokta-adi-bul-degistir