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

Alan Adlarını Hızlıca GIS Bağlantı Adlarıyla Güncelleyin! 🚀

Update Object Names with GIS Connection Names Effortlessly!

Bu makro, Netcad ortamında seçilen alanların (örneğin, polyline gibi objelerin) adlarını (pname), GIS bağlantı adlarıyla (objname) otomatik olarak değiştirmek için tasarlanmıştır. Özellikle büyük veri setlerinde manuel düzenleme süreçlerini ortadan kaldırarak zaman tasarrufu sağlar. Kullanıcı dostu bir arayüzle, seçilen objelerin adlarını hızlıca günceller ve proje verimliliğini artırır. Makro, yalnızca seçilen objeler üzerinde çalışır ve veri kaybı olmadan güvenli bir şekilde işlem yapar. 🛠️

This macro is designed to automatically update the names (pname) of selected objects (e.g., polylines) in the Netcad environment with their GIS connection names (objname). It eliminates manual editing in large datasets, saving time. With a user-friendly interface, it quickly updates object names, enhancing project efficiency. The macro operates only on selected objects, ensuring safe processing without data loss. 🛠️

Seçim Kumesinin Oluşturulması: Makro, Netcad ortamında yeni bir seçim kumesini başlatır ve kullanıcıdan objeleri (örneğin, polyline) seçmesini ister.

Objelerin Seçilmesi: Kullanıcı, \”Seçilen Alanların Adı GIS Bağlantı Adı ile Değişecektir\” mesajıyla objeleri seçer.

Ad Güncelleme: Seçilen her bir objenin pname özelliği, objname (GIS bağlantı adı) ile değiştirilir.

Değişikliklerin Kaydedilmesi: Güncellenen objeler Netcad ortamına geri yazılır ve ekran yeniden çizilir.

Hata Önleme: Makro, yalnızca seçilen objeler üzerinde çalışır ve veri bütünlüğünü korur.

Creating a Selection Set: The macro initializes a new selection set in the Netcad environment and prompts the user to select objects (e.g., polylines).
Object Selection: The user selects objects with the message \”Selected Objects\’ Names Will Be Changed to GIS Connection Names.\”
Name Update: For each selected object, the pname property is replaced with the objname (GIS connection name).
Saving Changes: Updated objects are written back to the Netcad environment, and the screen is redrawn.
Error Prevention: The macro operates only on selected objects, preserving data integrity.

Netcad makro, GIS bağlantı adı, alan adı güncelleme, otomasyon, veri yönetimi, polyline düzenleme, Netcad VBScript, proje verimliliği, zaman tasarrufu, güvenli veri işleme

Netcad macro, GIS connection name, object name update, automation, data management, polyline editing, Netcad VBScript, project efficiency, time-saving, secure data processing

📝 Netcad NVB Code

17.05.2025 tarihli güncelleme ile alanın gis adı boşsa güncelleme yapılması engellenmiştir.

' Ş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 Alanların Adı GIS Bağlantı Adı ile Değişecektir.",array(opline)) then
      for i=0 to secimkumesi.NE-1
          z=secimkumesi.getselectedobject(i,obje)
          if obje.objname <> "" then ' objname boş değilse işlem yap
              obje.pname=obje.objname
              .putobject z,obje
          end if
      Next
      secimkumesi.redrawandrewind ' Ekranı yeniden çiz
   End if
  End With
End Sub

netcad-alan-adini-gis-adindan-al

17.05.2025 tarihli güncellemesi gelmiştir.

\' Ş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 Alanların Adı GIS Bağlantı Adı ile Değişecektir.\",array(opline)) then
      for i=0 to secimkumesi.NE-1
          z=secimkumesi.getselectedobject(i,obje)
          obje.pname=obje.objname \' Obje adını GIS bağlantı adıyla değiştir
          .putobject z,obje
      Next
      secimkumesi.redrawandrewind \' Ekranı yeniden çiz
   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.