Nokta İsimlerini Otomatik Artırma Makrosu (Automatic Point Name Increment Macro)

Nokta İsimlerini Hızlı ve Kolayca Artırın: Otomatik Numara Üretme Makrosu 🚀

Boost Your Workflow: Automatic Point Name Increment Macro for Seamless Numbering

Bu VBScript tabanlı Netcad makrosu, harita mühendislerinin iş akışını kolaylaştırır. Nokta isimlerini otomatik olarak sıralı şekilde artırma görevini yerine getirir. Kullanıcı tarafından belirlenen bir başlangıç numarasından itibaren, seçilen tabakadaki veya tüm tabakalardaki noktalara sırayla numara atar. Manuel numaralandırmayı ortadan kaldırarak zaman tasarrufu sağlar ve hata riskini azaltır. Büyük ölçekli harita projelerinde çalışan profesyoneller için ideal bir çözümdür. 🗺️

This VBScript-based Netcad macro streamlines the workflow of surveyors by automatically incrementing point names. Starting from a user-defined number, it assigns sequential numbers to points in a selected layer or all layers. By removing manual numbering, it saves time and minimizes errors, making it perfect for professionals working on large-scale mapping projects. 🗺️

Makro, kullanıcı dostu bir arayüz sunar ve şu adımları takip eder:

• Başlangıç Numarası: Kullanıcı, numaralandırmanın başlayacağı ilk sayıyı girer (örneğin, 1 veya 100).
• Tabaka Seçimi: İşlem için belirli bir tabaka seçilir veya tüm tabakalar tercih edilebilir.
• Nokta Filtreleme: Yalnızca nokta objeleri (opoint) seçilen tabaka veya tüm tabakalarda işlenir.
• Otomatik Numaralandırma: Her noktaya sırayla numara atanır ve bir sonraki numaraya geçilir.
• Ekran Yenileme: İşlem sonrası ekran yenilenir (REGEN komutu) ve sonuçlar görünür hale gelir.
• Bu makro, büyük veri setlerinde bile hızlı ve güvenilir bir performans sunar, harita mühendisliği projelerinde verimliliği artırır.

The macro provides a user-friendly interface and follows these steps:

• Starting Number: The user inputs the initial number for numbering (e.g., 1 or 100).
• Layer Selection: A specific layer is chosen, or all layers can be processed.
• Point Filtering: Only point objects (opoint) in the selected layer or all layers are processed.
• Automatic Numbering: Sequential numbers are assigned to each point, incrementing by one.
• Screen Refresh: The screen is refreshed (REGEN command) to display results instantly.
• The macro delivers fast and reliable performance, even with large datasets, enhancing efficiency in surveying projects.

otomatik numaralandırma, harita mühendisliği, netcad makro, nokta isimlendirme, harita otomasyonu, nokta sıralama, netcad otomasyon, harita yazılımı, mühendislik makrosu, otomatik isimlendirme, nokta yönetimi, harita projeleri, netcad script, harita verimliliği, nokta düzenleme,

automatic numbering, surveying, netcad macro, point naming, mapping automation, point sequencing, netcad automation, mapping software, engineering macro, automatic naming, point management, mapping projects, netcad script, mapping efficiency, point editing

📝 Netcad NVB Code

' www.sabangul.com.tr Web Sayfasından İndirilmiştir
' 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
 dim obj
 dim regpoly
 dim bd
 dim sagul,sagul2

with Netcad

set BD = Netcad.NewBDialog("Nokta İsimlerini Bir Miktar Artırma [Harita Akademi]")

' Kullanıcıdan başlangıç numarasını alır
BD.Getinteger "item","İlk Nokta Numarası",1
 BD.GetCombo "tabaka", "İşlem Görecek Tabaka Seçiniz: ", "", 0
 for i = 0 to .numlayers-1
 BD.AddCombo .LayerNameOf(i)
 next

' Tüm tabakalarda işlem yapma seçeneği
BD.GetCheck "tabaka2", "Tüm Tabakalarda İşlem Yapılsın",0

if BD.showmodal then
 sagul=BD.ValueByName("tabaka")
 sagul2= BD.ValueByName("tabaka2")
 if sagul2=1 then
 .SetFilter nothing, ARRAY(), ARRAY(opoint)
 else

.SetFilter nothing, ARRAY(sagul), ARRAY(opoint)
 end if
 else
 exit sub
 end if

 dim sabangul
sabangul= BD.ValueByName("item")
DO
 SET OBJ=.GETNEXTOBJECT

IF OBJ IS NOTHING THEN
 EXIT DO
 ELSE
 END IF

' Noktaya sırayla numara atar
obj.pname=sabangul
 .PUTOBJECT .CUROBJPOS,OBJ
 sabangul= sabangul+1
LOOP

' Ekranı yeniler
.netcadcommand("REGEN")
end with
End Sub

netcad-nokta-degerine-deger-ekleme