Gelişmiş Nokta Adı Değiştirme Aracı (Advanced Point Name Modification Tool)

🚀 Nokta İsimlerini Hızlı ve Kolayca Düzenleyin: Gelişmiş Nokta Adı Değiştirme Makrosu

🚀 Edit Point Names Quickly and Easily: Advanced Point Name Modification Macro

Bu makro, NetCAD ortamında nokta isimlerini toplu bir şekilde düzenlemek için geliştirilmiş güçlü bir araçtır. Harita Akademi tarafından Şaban GÜL’ün imzasını taşıyan bu makro, kullanıcı dostu arayüzü ile nokta isimlerine sayısal değerler ekleme, başına veya sonuna metin ekleme ve belirli metinleri bulup değiştirme gibi işlemleri hızlıca gerçekleştirir. Özellikle haritacılık ve kadastro projelerinde çalışan profesyoneller için tasarlanmıştır. Maksimum 3 karakterlik metin ekleme sınırı ve 10 karakterlik NetCAD nokta ismi kısıtlamasına uygun şekilde çalışır. Tüm tabakalarda veya seçili bir tabakada işlem yapma esnekliği sunar.

This macro is a powerful tool developed for editing point names in bulk within the NetCAD environment. Created by Şaban GÜL from Harita Akademi, it features a user-friendly interface that allows adding numerical values to point names, appending text to the beginning or end, and performing find-and-replace operations. Designed for professionals in mapping and cadastre projects, it adheres to the 3-character limit for text addition and the 10-character limit for NetCAD point names. It offers the flexibility to process all layers or a selected layer.

• Tabaka Seçimi: Kullanıcı, işlem yapılacak tabakayı seçer veya tüm tabakalarda işlem yapmayı tercih edebilir.
• Sayısal Değer Ekleme/Çıkarma: Nokta isimlerine istenilen sayısal bir değer eklenir veya çıkarılır.
• Metin Ekleme: Nokta isimlerinin başına veya sonuna en fazla 3 karakterlik metin eklenir.
• Bul ve Değiştir: Nokta isimlerinde belirli bir metni arayıp yerine yeni bir metinle değiştirme yapılır.
• Hızlı İşlem: Makro, seçilen tabaka veya tüm tabakalardaki noktaları tarar, işlemleri otomatik olarak uygular ve ekranı yeniler (REGEN komutu ile).
• Makro, kullanıcıya her adımda rehberlik eden bir diyalog kutusu ile çalışır ve işlemlerin tamamlanması için “Tamam” butonuna basılması yeterlidir.

• Layer Selection: The user selects the layer to process or opts to process all layers.
• Add/Subtract Numerical Value: A numerical value is added to or subtracted from point names.
• Text Addition: Up to 3 characters of text are added to the beginning or end of point names.
• Find and Replace: A specific text in point names is searched and replaced with new text.
• Fast Processing: The macro scans points in the selected or all layers, applies the changes automatically, and refreshes the screen (using the REGEN command).
• The macro operates with a dialog box that guides the user at every step, and clicking the “OK” button completes the process.

NetCAD, Nokta Adı Değiştirme, Harita Akademi, VBScript, Kadastro, Haritacılık, Nokta Düzenleme, Toplu İsim Değiştirme, Metin Ekleme, Bul Değiştir, Sayısal Değer Ekleme, Harita Otomasyonu, NetCAD Makro, Harita Yazılımı, Nokta Yönetimi

NetCAD, Point Name Modification, Harita Akademi, VBScript, Cadastre, Mapping, Point Editing, Bulk Name Change, Text Addition, Find Replace, Numerical Value Addition, Mapping Automation, NetCAD Macro, Mapping Software, Point Management

📝 Netcad NVB Code

Sub Main

Dim i
dim obj
dim regpoly
dim bd ,bd2
dim sagul,sagul2
dim sabangul1,sabangul2,sabangul3,sabangul4,sabangul5
with Netcad

set BD2 = Netcad.NewBDialog("Gelişmiş Nokta İsmi Değiştirme [Harita Akademi, Şaban GÜL]") 'Ana diyalog kutusu oluşturur
BD2.PutPrompt "Yapılan İşlemde Öncelikle Nokta İsmine Sayısal Değer Ekleme"
BD2.PutPrompt "Ardından Önce Başına, Sonra Sonuna Değer Ekleme ve en son "
BD2.PutPrompt "Bul Değiştir işlemleri yapılır. Metin Ekleme en fazla 3 karakter sınırındadır"
BD2.PutPrompt " "
BD2.PutPrompt "NETCADDE NOKTA SAYISI EN FAZLA 10 KARAKTERDİR."
BD2.PutPrompt " "

BD2.GetCombo "tabaka", "İşlem Görecek Tabaka Seçiniz: ", "0", 0 'Tabaka seçim kutusu
for i = 1 to .numlayers-1
BD2.AddCombo .LayerNameOf(i)
next

BD2.GetCheck "tabaka2", "Tüm Tabakalarda İşlem Yapılsın",0 'Tüm tabakalar için onay kutusu

BD2.PutPrompt " "
BD2.PutPrompt "Devam Etmek İçin Tamam Butonuna Basınız."
if BD2.showmodal then
else
exit sub
end if

set BD = Netcad.NewBDialog("Gelişmiş Nokta İsmi Değiştirme [Harita Akademi, Şaban GÜL]") 'İkinci diyalog kutusu

BD.PutPrompt "Bir Noktanın Başına ve Sonuna Metin Ekleme"
BD.Getstring "elifyaren1","Başına Ekle:","", 3 'Başına metin ekleme alanı
BD.Getstring "elifyaren2","Sonuna Ekle:","", 3 'Sonuna metin ekleme alanı
BD.PutPrompt " "
BD.PutPrompt "Bir Noktanın Adında Bul Değiştir Yapma"
BD.Getstring "elifyaren3","Eski Metin:","", 50 'Bul metni alanı
BD.Getstring "elifyaren4","Yeni Metin:","", 50 'Değiştir metni alanı
BD.PutPrompt " "
BD.Getinteger "item","Nokta İsmine Sayısal Değer Ekle/Çıkart:",0 'Sayısal değer ekleme alanı

sagul=BD2.ValueByName("tabaka")
sagul2= BD2.ValueByName("tabaka2")
if BD.showmodal then

sabangul1= BD.ValueByName("elifyaren1")
sabangul2= BD.ValueByName("elifyaren2")
sabangul3= BD.ValueByName("elifyaren3")
sabangul4= BD.ValueByName("elifyaren4")
sabangul5= BD.ValueByName("item")
if sagul2=1 then
.SetFilter nothing, ARRAY(), ARRAY(opoint) 'Tüm tabakalarda işlem
else
.SetFilter nothing, ARRAY(.FOUNDLAYER(sagul)), ARRAY(opoint) 'Seçili tabakada işlem
end if

on error resume next
DO
SET OBJ=.GETNEXTOBJECT

IF OBJ IS NOTHING THEN
EXIT DO
ELSE
END IF

if sabangul5=0 then
else
obj.pname=obj.pname+sabangul5 'Sayısal değer ekleme
end if

obj.pname= sabangul1 & obj.pname 'Başına metin ekleme
obj.pname=obj.pname & sabangul2 'Sonuna metin ekleme

obj.pname=replace(obj.pname,sabangul3,sabangul4) 'Bul ve değiştir işlemi

.PUTOBJECT .CUROBJPOS,OBJ 'Değişiklikleri kaydet

LOOP

end if

.netcadcommand("REGEN") 'Ekranı yenile

end with

End Sub

netcad-gelismis-nokta-ad-degistir