Alan Adı Gösterimi Makrosu (Field Name Display Macro)

Alan Adı Gösterimi ile Harita Projelerinizi Hızlandırın

Speed Up Your Mapping Projects with Field Name Display

Bu Netcad VBScript makrosu, harita projelerindeki poligon hatlarının (opline) alan adlarını hızlıca görselleştirmek için tasarlanmıştır. Harita mühendisleri için geliştirilen bu araç, projedeki tüm objeleri tarar, yalnızca poligon hatlarını tespit eder ve bunları mavi renkte çizerek alan adlarını görünür hale getirir. Ekranı yenileyerek güncel bir görünüm sağlar ve işlem sonunda kullanıcıya bir başarı mesajı sunar. Harita projelerinde manuel işlemleri azaltarak verimliliği artıran bu makro, ücretsiz ve kullanıcı dostu bir çözümdür.

This Netcad VBScript macro is designed to quickly visualize the field names of polyline objects (opline) in mapping projects. Developed for survey engineers, it scans all objects in the project, identifies only polyline objects, and draws them in blue to make field names visible. It refreshes the screen for an updated view and displays a success message upon completion. Reducing manual tasks, this free and user-friendly macro boosts efficiency in mapping projects.

• Obje Tarama: Makro, Netcad projesindeki tüm objeleri sırayla inceler.
• Poligon Seçimi: Yalnızca poligon hatları (opline) olan objeleri belirler. Görselleştirme: Seçilen objeleri mavi renkte çizer ve alan adlarını görünür yapar.
• Ekran Güncelleme: Netcad komutuyla ekranı yeniler, değişiklikleri anında gösterir.
• Başarı Bildirimi: İşlem tamamlandığında “Alan Adı Gösterimi Tamamlandı” mesajı gösterir.
  Bu süreç, harita projelerinde zaman tasarrufu sağlar ve kullanıcı deneyimini kolaylaştırır.

• Object Scanning: The macro examines all objects in the Netcad project sequentially.
• Polyline Selection: Identifies only polyline objects (opline).
• Visualization: Draws selected objects in blue and makes field names visible.
• Screen Update: Refreshes the screen using a Netcad command to display changes instantly.
• Success Notification: Shows a “Field Name Display Completed” message upon completion.
• This process saves time in mapping projects and enhances user experience.

harita mühendisliği, netcad makro, alan adı gösterme, poligon hatları, harita çözümleri, vbscript makro, ücretsiz makro

survey engineering, netcad macro, field name display, polyline objects, mapping solutions, vbscript macro, free macro

📝 Netcad NVB Code

' 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 i,ada,o
 with Netcad
 for i = 0 to .numobject-1 ' projedeki tum objeleri sirayla tara
 .BackMessage
 .SetMessage i
 set ada = .getobject(i) ' i. objeyi al
 if ada.tag = opline then
 .DrawObject ada, blue
 ada.flags=17
 .putobject i,ada
 end if
next

 .netcadcommand("REGENSINGLE " & .GetCurrentWindow.cll.y & "," &.GetCurrentWindow.cll.x & " " & .GetCurrentWindow.cur.y & "," &.GetCurrentWindow.cur.x)
set ada=nothing
.BackMessage 
msgbox " Alan Adı Gösterimi Tamamlandı [SAGULCAD]",64 ," Tebrikler [SAGULCAD]"
 end with
End Sub

netcad-alan-adi-goster-hatasi-duzelt