Alan Adlarındaki Boşlukları Silen Makro (Remove Spaces from Field Names Macro)

🔍 Alan Adlarındaki Boşlukları Kaldıran Pratik Netcad VBScript Makrosu 🚀

Effortlessly Remove Spaces from Field Names with This Netcad VBScript Macro

Bu makro, Netcad yazılımında kullanılan alan adlarında (pname) bulunan boşlukları otomatik olarak kaldırır. Kullanıcı, belirli bir çizgi tipindeki (örneğin, poligon çizgileri) objeleri seçer ve makro, seçilen her objenin alan adındaki boşlukları silerek günceller. Bu işlem, veri temizliği ve standartlaştırma için oldukça kullanışlıdır, özellikle büyük projelerde zaman tasarrufu sağlar. Makro, seçilen objeleri tekrar çizerek değişiklikleri görselleştirir.

This macro removes spaces from field names (pname) in objects within the Netcad software. The user selects objects of a specific line type (e.g., polylines), and the macro processes each selected object, eliminating spaces from its field name and updating it. This is highly useful for data cleaning and standardization, saving time in large projects. The macro redraws the updated objects to reflect changes visually.

• Makro, Netcad ortamında çalışır ve aşağıdaki adımları izler:
• Seçim Kümesi Oluşturma: Yeni bir seçim kümesi (secimkumesi) ve obje (obje) tanımlanır.
• Kullanıcı Seçimi: Kullanıcıdan, örneğin poligon çizgileri gibi belirli bir obje tipini seçmesi istenir.
• Boşluk Kaldırma: Seçilen her objenin pname özelliği okunur, boşluklar replace fonksiyonuyla kaldırılır ve obje güncellenir.
• Görsel Güncelleme: Seçim kümesi yeniden çizilir ve değişiklikler ekrana yansıtılır.
• Bu işlem, veri tutarlılığını artırmak için idealdir ve manuel düzenlemeye gerek kalmadan hızlı bir şekilde tamamlanır.

• The macro operates within the Netcad environment and follows these steps:
• Creating a Selection Set: A new selection set (secimkumesi) and object (obje) are defined.*
• User Selection: The user is prompted to select objects of a specific type, such as polylines.*
• Removing Spaces: For each selected object, the pname property is read, spaces are removed using the replace function, and the object is updated.*
• Visual Update: The selection set is redrawn to display the changes.*
• This process is ideal for improving data consistency and eliminates the need for manual editing, completing the task quickly.

Netcad Makro, VBScript, Veri Temizliği, Alan Adı Düzenleme, Otomasyon, Boşluk Kaldırma, Netcad Otomasyonu, Veri Standartlaştırma, Poligon Çizgi Düzenleme, Makro Programlama, Netcad Script, Veri İşleme, Alan Adı Temizleme, CAD Otomasyonu, Netcad Veri Düzenleme,

Netcad Macro, VBScript, Data Cleanup, Field Name Editing, Automation, Space Removal, Netcad Automation, Data Standardization, Polyline Editing, Macro Programming, Netcad Script, Data Processing, Field Name Cleaning, CAD Automation, Netcad Data Editing

📝 Netcad NVB Code

' Yazan: Bilinmiyor
' Tarih: 30.03.2010
' Açıklama: Alan adlarındaki boşlukları siler

Sub Main

  With Netcad

  Dim secimkumesi,obje,i,z

  set secimkumesi = .newselectionset

  set obje=.newobject

  if secimkumesi.select("Lütfen Alanları Seçiniz (SAGULCAD)",array(opline)) then

  for i=0 to secimkumesi.NE-1
     dim str
      z=secimkumesi.getselectedobject(i,obje)
      OBJE.pname = replace( obje.pname," ","" ) ' Alan adındaki boşlukları kaldırır

   .putobject z,obje

  Next

    secimkumesi.redrawandrewind ' Değişiklikleri görselleştirir

  End if

  End With

End Sub

netcad-alan-ad-bosluk-sil