Yazı Objelerini Birleştirme Makrosu (Text Object Concatenation Macro)

Yazı Objelerini Boşlukla Birleştiren Pratik Çözüm 🚀

A Practical Solution for Concatenating Text Objects with Spaces

Bu makro, NetCAD ortamında yazı objelerini seçerek bunları boşlukla birleştirir ve tek bir yazı objesi haline getirir. Kullanıcı, önce bir ana yazı objesi seçer, ardından birleştirilecek diğer yazıları sırayla seçer. Seçilen yazıların içeriği, ana objenin içeriğiyle birleştirilir ve diğer yazılar boşaltılır. Birleştirme işlemi sonrası, eğer toplam karakter sayısı 49’u aşarsa, kullanıcıya bir uyarı mesajı gösterilir. Bu makro, özellikle metin düzenleme süreçlerini hızlandırmak ve düzenli bir çıktı elde etmek isteyen NetCAD kullanıcıları için tasarlanmıştır.

This macro allows users to select text objects in NetCAD, concatenate them with spaces, and combine them into a single text object. The user first selects a primary text object, then sequentially selects additional texts to concatenate. The content of the selected texts is merged with the primary object’s content, and the other texts are cleared. If the total character count exceeds 49, a warning message is displayed. This macro is designed to streamline text editing processes and provide a clean output for NetCAD users.

Makro, NetCAD’in VBScript tabanlı makro sistemi üzerinden çalışır. İşlem adımları şu şekildedir:

1. Başlangıç: Kullanıcı, birleştirme için ilk yazı objesini seçer. Bu obje, birleştirme işleminin ana objesi olur.
2. Seçim Döngüsü: Kullanıcı, birleştirilecek diğer yazı objelerini tek tek seçer. Her seçimde, seçilen yazının içeriği alınır ve ana objenin içeriğiyle birleştirilir.
3. Düzenleme: Seçilen yazı objesinin içeriği boşaltılır ve ana obje güncellenir.
4. Çizim ve Kontrol: Her adımda objeler kendi renkleriyle yeniden çizilir. Eğer birleştirilen metin 49 karakterden uzunsa, kullanıcıya bir uyarı gösterilir.
5. Sonlandırma: İşlem tamamlandığında, ekran hızlı bir şekilde yenilenir ve tüm objeler serbest bırakılır.

Bu makro, özellikle harita veya çizimlerde birden fazla yazı objesini birleştirerek düzenli bir görünüm elde etmek isteyen kullanıcılar için idealdir.

The macro operates through NetCAD’s VBScript-based macro system. The steps are as follows:

• Initialization: The user selects the first text object, which becomes the primary object for concatenation.
• Selection Loop: The user selects additional text objects one by one. Each selected text’s content is appended to the primary object’s content with a space.
• Editing: The selected text object’s content is cleared, and the primary object is updated.
• Drawing and Validation: Objects are redrawn in their original colors after each step. If the concatenated text exceeds 49 characters, a warning is displayed.
• Finalization: Upon completion, the screen is quickly refreshed, and all objects are released.
• This macro is ideal for users looking to combine multiple text objects in maps or drawings for a cleaner presentation.

NetCAD, Makro, Yazı Birleştirme, VBScript, CAD Otomasyonu, Metin Düzenleme, NetCAD Makro, Yazı Objesi, Otomasyon Scripti, CAD Yazılımı, Metin Birleştirme, NetCAD Yazı, Makro Programlama, CAD Çözümleri, Teknik Çizim, Yazı Düzenleme, NetCAD Kullanımı, Script Otomasyonu, CAD Makro, Metin İşleme, NetCAD İpuçları, Teknik Otomasyon, Yazı Formatlama, NetCAD Script

NetCAD, Macro, Text Concatenation, VBScript, CAD Automation, Text Editing, NetCAD Macro, Text Object, Automation Script, CAD Software, Text Merging, NetCAD Text, Macro Programming, CAD Solutions, Technical Drawing, Text Formatting, NetCAD Usage, Script Automation, CAD Macro, Text Processing, NetCAD Tips, Technical Automation, Text Arrangement, NetCAD Script

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
on error resume next
dim a
 set ss = .NewSelectStatus ' Anlik Secim objesi yarat
 .SelectObjectInstant "İlk Öğeyi Seçiniz... [SAGULCAD,Şaban GÜL]",1,array(otext),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata

 dim t
 t=b.s
 b.s=""
   .PutObject ss.indexs(0),b ' objeyi geri koy

 while .SelectObjectInstant("Birleştirilecek Yazıları Seçiniz... [SAGULCAD,Şaban GÜL]" ,1,array(otext),ss) ' obje sec
 set h = ss.objects(0) ' Secim objesinin ilk objesini al

  t = t &" " & h.s
  b.s =t
  h.s=""

  .PutObject ss.indexs(0),h ' objeyi geri koy

    .DrawObject b,-1 ' kendi rengi ile ciz
    .DrawObject h,-1 ' kendi rengi ile ciz
      '      .delObject ss.objects(0),b
 wend

b.s=t
     .PutObject ss.indexs(0),b ' objeyi geri koy
  .DrawObject h,-1 ' kendi rengi ile ciz
  .DrawObject b,-1 ' kendi rengi ile ciz
  ' .PutObject ss.indexs(0),h ' objeyi geri koy
         ss.redraw

  if len(t) >49 then msgbox (" Birleştirme 49 karakterden fazladır. 50 karakter sonrası eklenmemiştir.")
 set ss = nothing
 set b = nothing
 set h = nothing
 end with
   .FastRedraw
END SUB

netcad-yazi-birlestir-boslukla