Nokta Adlarını GIS Bağlantı Adıyla Değiştirme Makrosu (Change Point Names to GIS Connection Names Macro)

🔍 Seçilen Noktaların Adlarını GIS Bağlantı Adıyla Hızlıca Güncelleyin!

🌐 Quickly Update Selected Point Names with GIS Connection Names!

Bu makro, Netcad kullanıcıları için geliştirilmiş güçlü bir araçtır ve seçilen noktaların adlarını GIS bağlantı adlarıyla otomatik olarak değiştirir. Projelerinizde veri tutarlılığını sağlamak ve manuel düzenleme süreçlerini ortadan kaldırmak için ideal bir çözümdür.

This macro is a powerful tool developed for Netcad users, automatically changing the names of selected points to their GIS connection names. It’s the perfect solution for ensuring data consistency and eliminating manual editing processes in your projects.

Makro, aşağıdaki adımları izleyerek çalışır:

1. Seçim Kümesi Oluşturma: Netcad ortamında yeni bir seçim kümesi (selectionset) oluşturulur.
2. Obje Tanımlama: İşlem yapılacak noktalar için bir obje (object) tanımlanır.
3. Nokta Seçimi: Kullanıcıdan noktaları seçmesi istenir (opoint türünde).
4. Ad Güncelleme: Seçilen her noktanın adı (pname), GIS bağlantı adına (objname) eşitlenir.
5. Değişikliklerin Kaydedilmesi: Güncellenen objeler Netcad veritabanına geri yazılır.
6. Ekran Yenileme: Seçim kümesi yenilenir ve değişiklikler ekrana yansıtılır.

Bu süreç, büyük veri setlerinde bile hızlı ve güvenilir bir şekilde çalışır. Kullanıcı dostu arayüzü sayesinde, teknik bilgisi sınırlı olan kullanıcılar bile kolayca kullanabilir.

The macro operates by following these steps:

1. Creating a Selection Set: A new selection set (selectionset) is created in the Netcad environment.
2. Object Definition: An object (object) is defined for the points to be processed.
3. Point Selection: The user is prompted to select points (opoint type).
4. Name Update: Each selected point’s name (pname) is set to its GIS connection name (objname).
5. Saving Changes: Updated objects are written back to the Netcad database.
6. Screen Refresh: The selection set is refreshed, and changes are reflected on the screen.

This process is fast and reliable, even with large datasets. Its user-friendly interface makes it accessible to users with limited technical knowledge.

Netcad makro, nokta adı değiştirme, GIS bağlantı, veri tutarlılığı, otomasyon, Netcad VBScript, zaman tasarrufu, mühendislik yazılımı, veri yönetimi, nokta güncelleme

Netcad macro, point name change, GIS connection, data consistency, automation, Netcad VBScript, time savings, engineering software, data management, point update

📝 Netcad NVB Code

17.05.2025 tarihli güncelleme ile objenin gis adı yoksa boş gelmesi hatası engellendi. Yani artık gis adı boşsa nokta adı değiştirilmeyecek

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
  With Netcad
   Dim secimkumesi,obje,i,z
   set secimkumesi = .newselectionset
   set obje=.newobject
   if secimkumesi.select("Seçilen Noktaların Adı GIS Bağlantı Adı ile Değişecektir.",array(opoint)) then
   for i=0 to secimkumesi.NE-1
      z=secimkumesi.getselectedobject(i,obje)
      if obje.objname <> "" then ' GIS bağlantı adı boş değilse güncelle
         obje.pname=obje.objname ' Nokta adını GIS bağlantı adıyla değiştirir
         .putobject z,obje
      end if
   Next
    secimkumesi.redrawandrewind ' Ekranı yeniler
   End if
  End With
End Sub

netcad-nokta-adini-gis-adindan-al

Eski Kod ( 17.05.2025 tarihli güncelleme ile yenisi yazıldı )

\' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
  With Netcad
   Dim secimkumesi,obje,i,z
   set secimkumesi = .newselectionset
   set obje=.newobject
   if secimkumesi.select(\"Seçilen Noktaların Adı GIS Bağlantı Adı ile Değişecektir.\",array(opoint)) then
   for i=0 to secimkumesi.NE-1
      z=secimkumesi.getselectedobject(i,obje)
      obje.pname=obje.objname \' Nokta adını GIS bağlantı adıyla değiştirir
      .putobject z,obje
   Next
    secimkumesi.redrawandrewind \' Ekranı yeniler
   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.