Seçilen Noktaların Adını GIS Sınıfı Adıyla Değiştirme Makrosu(Change Selected Points’ Names to GIS Class Names Macro)

Seçilen Noktaların Adını GIS Sınıf Adıyla Otomatik Değiştirin! 🚀

Automatically Rename Selected Points with Their GIS Class Names! 🚀

Bu makro, Netcad yazılımında seçilen noktaların adlarını (pname) otomatik olarak GIS sınıf adlarıyla (cls) değiştirir. Kullanıcı, belirli bir seçim kümesi üzerinden noktaları seçer ve bu noktaların adları, ilgili GIS sınıf adlarıyla hızlıca güncellenir. Proje yönetiminde zaman kazandırır ve veri düzenlemelerini kolaylaştırır. Özellikle büyük veri setlerinde manuel düzenleme zahmetini ortadan kaldırır. 🛠️

This macro automatically renames the names (pname) of selected points in Netcad software with their GIS class names (cls). Users select points through a selection set, and the points’ names are swiftly updated with the corresponding GIS class names. It saves time in project management and simplifies data organization, eliminating the hassle of manual edits in large datasets. 🛠️

Seçim Kümesi Oluşturma: Makro, Netcad ortamında yeni bir seçim kümesi oluşturur.

Nokta Seçimi: Kullanıcı, sadece nokta türü nesneleri (opoint) seçer. Seçim işlemi, bir diyalog penceresiyle yönlendirilir.

Ad Değiştirme: Seçilen her noktanın adı (pname), o noktanın GIS sınıf adıyla (cls) değiştirilir.

Güncelleme ve Yenileme: Değişiklikler Netcad veritabanına kaydedilir ve ekran yeniden çizilerek sonuçlar anında görüntülenir.

Hata Yönetimi: Eğer seçim yapılmazsa, makro sessizce kapanır.

Bu süreç, veri tutarlılığını artırır ve projelerdeki düzenleme süreçlerini hızlandırır. ⚡

Selection Set Creation: The macro creates a new selection set in the Netcad environment.
Point Selection: Users select only point-type objects (opoint), guided by a dialog window.
Name Replacement: Each selected point’s name (pname) is replaced with its GIS class name (cls).
Update and Refresh: Changes are saved to the Netcad database, and the screen is redrawn to display results instantly.
Error Handling: If no selection is made, the macro exits silently.
This process enhances data consistency and accelerates editing tasks in projects. ⚡

Netcad makro, GIS sınıf adı, nokta adı değiştirme, veri düzenleme, otomasyon, proje yönetimi, Netcad VBScript, veri tutarlılığı, hızlı düzenleme, makro kodu

Netcad macro, GIS class name, point name change, data editing, automation, project management, Netcad VBScript, data consistency, fast editing, macro code

📝 Netcad NVB Code

17.05.2025 tarihinde yapılan güncelleme ile eğer sınıf adı boşsa işlemi yapmayacak şekilde güncellendi.

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
With Netcad
   Dim secimkumesi,obje,i,z
   set secimkumesi = .newselectionset
   set obje=.newobject
   ' Kullanıcıdan noktaları seçmesini ister
   if secimkumesi.select("Seçilen Noktaların Adı GIS Sınıfı Adı ile Değişecektir.",array(opoint)) then
   ' Seçilen her nokta için döngü
   for i=0 to secimkumesi.NE-1
      z=secimkumesi.getselectedobject(i,obje)
      ' GIS sınıf adı boş değilse ad değiştir
      if obje.cls <> "" then
         obje.pname=obje.cls
         ' Değişikliği kaydet
         .putobject z,obje
      end if
   Next
   ' Ekranı yenile
   secimkumesi.redrawandrewind
   End if
End With
End Sub

netcad-nokta-adini-gis-sinifindan-al

17.05.2025 tarihinde güncelleme yapılmıştır.

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
With Netcad
Dim secimkumesi,obje,i,z
set secimkumesi = .newselectionset
set obje=.newobject
' Kullanıcıdan noktaları seçmesini ister
if secimkumesi.select("Seçilen Noktaların Adı GIS Sınıfı Adı ile Değişecektir.",array(opoint)) then
' Seçilen her nokta için döngü
for i=0 to secimkumesi.NE-1
z=secimkumesi.getselectedobject(i,obje)
' Noktanın adını GIS sınıf adıyla değiştir
obje.pname=obje.cls
' Değişikliği kaydet
.putobject z,obje
Next
' Ekranı yenile
secimkumesi.redrawandrewind
End if
End With
End Sub

Tüm makrolara ulaşmak için tıklayınız: Netcad Makro. Netcad ile ilgili daha fazla ayrıntı için: https://netcad.com.tr/ adresini ziyaret ediniz.