Yazı Objelerindeki Boşlukları Silme Makrosu (Text Object Space Removal Macro)

Yazı Objelerindeki Boşlukları Kolayca Kaldırın! 🚀 Netcad Makrosu ile Hızlı Düzenleme

Easily Remove Spaces from Text Objects! 🚀 Netcad Macro for Quick Editing

Bu makro, Netcad yazılımında seçilen yazı (text) objelerindeki tüm boşlukları otomatik olarak kaldırır. Özellikle metin düzenleme süreçlerinde zaman kazandırır ve temiz, boşluksuz metinler oluşturmanıza olanak tanır. Harita verilerinde, etiketlerde veya yazı objelerinde boşluklardan kurtulmak için ideal bir çözümdür. Kullanıcı dostu yapısıyla, seçim kümesindeki tüm yazı objelerini tarar ve boşlukları silerek objeleri günceller. 🛠️

This macro automatically removes all spaces from selected text objects in Netcad software. It saves time during text editing and allows you to create clean, space-free texts. It’s an ideal solution for eliminating spaces in map data, labels, or text objects. With its user-friendly structure, it scans all text objects in the selection set and updates them by removing spaces. 🛠️

Seçim Süreci: Makro, Netcad ortamında bir seçim kümesi oluşturur ve kullanıcıdan yazı (text) objelerini seçmesini ister.

Boşluk Kaldırma: Seçilen her yazı objesi için metin içeriği taranır ve replace fonksiyonu ile boşluklar (” “) silinir.

Güncelleme: Boşlukları kaldırılmış yazı objeleri, orijinal konumlarına geri yazılır ve ekran yenilenir.

Hızlı ve Güvenilir: Makro, seçim kümesindeki tüm objeleri hızlıca işler ve değişiklikleri anında uygular.

• Selection Process: The macro creates a selection set in the Netcad environment and prompts the user to select text objects.
• Space Removal: For each selected text object, the content is scanned, and spaces (” “) are removed using the replace function.
• Update: The space-free text objects are rewritten to their original positions, and the screen is refreshed.
• Fast and Reliable: The macro quickly processes all objects in the selection set and applies changes instantly.

Türkçe

İngilizce

📝 Netcad NVB Code

Sub Main
  With Netcad
    ' Yeni bir seçim kümesi oluştur
    Dim secimkumesi,obje,i,z
    set secimkumesi = .newselectionset
    set obje=.newobject

    ' Yazı objelerini seç
    if secimkumesi.select("Seçim",array(otext)) then
      ' Seçilen objeleri döngüyle tara
      for i=0 to secimkumesi.NE-1
         dim str
         z=secimkumesi.getselectedobject(i,obje)
         ' Boşlukları sil
         obje.s=replace(obje.s," ","")
         .PutObject .curobjpos, obje
         .putobject z,obje
      Next
      ' Ekranı yenile
      secimkumesi.redrawandrewind
    End if
  End With
End Sub

netcad-yazilarda-bosluk-sil