Nokta Adlarında Boşluk Silme Makrosu (Point Name Space Removal Macro)

Nokta Adlarındaki Boşlukları Kolayca Kaldırın: Netcad Makro Çözümü 🚀

Easily Remove Spaces from Point Names: Netcad Macro Solution

Bu makro, Netcad yazılımında kullanılan nokta nesnelerinin adlarında (pname) bulunan boşlukları otomatik olarak kaldırır. Kullanıcı dostu bir seçim işlemiyle, seçilen noktaların adlarındaki boşluklar temizlenir ve düzenlenmiş nesneler Netcad projesine geri yazılır. Bu, veri düzenini sağlamak, dosya uyumluluğunu artırmak ve proje yönetimini kolaylaştırmak için oldukça kullanışlıdır. Özellikle büyük veri setleriyle çalışırken zaman tasarrufu sağlar ve hata riskini azaltır. 🛠️

This macro automatically removes spaces from the names (pname) of point objects in Netcad software. With a user-friendly selection process, it cleans spaces from the names of selected points and writes the updated objects back to the Netcad project. It is highly useful for maintaining data consistency, improving file compatibility, and simplifying project management. It saves time and reduces errors, especially when working with large datasets.

Makro, Netcad ortamında çalışır ve şu adımları izler:

Seçim Kümesi Oluşturma: Kullanıcıdan noktaları seçmesi istenir.
Nokta Adlarını Düzenleme: Seçilen her noktanın adındaki (pname) boşluklar, replace fonksiyonuyla kaldırılır.
Nesneleri Güncelleme: Düzenlenen nokta nesneleri, Netcad projesine geri yazılır.
Yeniden Çizim: Seçim kümesi yenilenir ve proje ekranı güncellenir.
Bu işlem, Netcad’in seçim ve nesne yönetim araçlarını kullanarak hızlı ve hatasız bir şekilde gerçekleştirilir. ⚙️

The macro operates within the Netcad environment and follows these steps:

Creating a Selection Set: Prompts the user to select points.
Editing Point Names: Removes spaces from each selected point’s name (pname) using the replace function.
Updating Objects: Writes the modified point objects back to the Netcad project.
Redrawing: Refreshes the selection set and updates the project display.
This process is executed quickly and accurately using Netcad’s selection and object management tools.

Netcad makro, nokta adı düzenleme, boşluk silme, veri yönetimi, proje optimizasyonu

Netcad macro, point name editing, space removal, data management, project optimization

📝 Netcad NVB Code

' Yazan : 
' Tarih : 30.03.2010
' Açıklama : Nokta adlarında boşluk silme işlemi

Sub Main

  With Netcad

  Dim secimkumesi,obje,i,z

  set secimkumesi = .newselectionset
  ' Yeni bir seçim kümesi oluşturuluyor

  set obje=.newobject
  ' Yeni bir nesne tanımlanıyor

  if secimkumesi.select("Seçim",array(opoint)) then
  ' Kullanıcıdan noktaların seçilmesi isteniyor

  for i=0 to secimkumesi.NE-1
     dim str
      z=secimkumesi.getselectedobject(i,obje)
      ' Seçilen her nesne alınıyor
         obje.pname=replace(obje.pname," ","")
         ' Nokta adındaki boşluklar kaldırılıyor
        .PutObject .curobjpos, obje
        ' Güncellenen nesne mevcut konuma yazılıyor

   .putobject z,obje
   ' Nesne orijinal konumuna geri yazılıyor

  Next

    secimkumesi.redrawandrewind
    ' Seçim kümesi yenileniyor ve ekran güncelleniyor

  End if

  End With

End Sub

netcad-nokta-ad-bosluk-sil