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

Yazı Objelerini Birleştiren Pratik Çözüm: Boşluksuz Metin Birleştirme Makrosu 🚀

Practical Solution for Concatenating Text Objects: Seamless Text Merging Macro

Bu makro, NetCAD ortamında seçilen yazı (text) objelerinin içeriklerini boşluksuz bir şekilde birleştirir. İlk seçilen yazı objesi ana obje olarak alınır ve diğer seçilen yazı objelerinin içerikleri bu objeye eklenir. Birleştirme işlemi sırasında, eklenen yazıların içerikleri sıfırlanır ve ana objenin içeriği güncellenir. Eğer birleştirilen metin 49 karakteri aşarsa, kullanıcıya bir uyarı mesajı gösterilir. İşlem sonunda ekran hızlı bir şekilde yenilenir ve sonuçlar görselleştirilir. Bu makro, özellikle metin düzenleme ve birleştirme işlemlerini otomatikleştirmek isteyen NetCAD kullanıcıları için oldukça kullanışlıdır.

This macro concatenates the contents of selected text objects in NetCAD without spaces. The first selected text object serves as the primary object, and the contents of subsequently selected text objects are appended to it. During the process, the contents of the added texts are cleared, and the primary object’s content is updated. If the concatenated text exceeds 49 characters, a warning message is displayed to the user. The screen is quickly refreshed at the end, and the results are visualized. This macro is highly useful for NetCAD users looking to automate text editing and concatenation tasks.

İlk Obje Seçimi: Kullanıcıdan bir yazı objesi seçmesi istenir. Bu obje, birleştirme işleminin ana objesi olur.

Diğer Objelerin Seçimi: Kullanıcı, birleştirilecek diğer yazı objelerini sırayla seçer.

Birleştirme Süreci: Seçilen her yazının içeriği, ana objenin içeriğine boşluksuz olarak eklenir. Eklenen yazının içeriği sıfırlanır.

Görselleştirme: Her birleştirme adımında, ana obje ve diğer objeler kendi renkleriyle yeniden çizilir.

Karakter Sınırı Kontrolü: Eğer birleştirilen metin 49 karakterden fazlaysa, bir uyarı mesajı gösterilir.

Hızlı Yenileme: İşlem tamamlandığında ekran hızlıca yenilenir ve sonuçlar kullanıcıya sunulur.

• Initial Object Selection: The user is prompted to select a text object, which becomes the primary object for concatenation.
• Subsequent Object Selection: The user selects additional text objects to be concatenated.
• Concatenation Process: The content of each selected text is appended to the primary object’s content without spaces. The added text’s content is cleared.
• Visualization: After each concatenation, the primary and other objects are redrawn in their original colors.
• Character Limit Check: If the concatenated text exceeds 49 characters, a warning message is displayed.
• Fast Refresh: Once the process is complete, the screen is quickly refreshed to display the results.

NetCAD, Makro, Yazı Birleştirme, VBScript, Otomasyon, CAD, Metin Düzenleme, Yazı Objeleri, Boşluksuz Birleştirme, NetCAD Makro, Programlama, Yazılım, CAD Otomasyon, Metin İşleme, VBScript Kod, NetCAD Yazılım, Teknik Çizim, Veri Birleştirme, Makro Yazımı, Otomatik İşlem

NetCAD, Macro, Text Concatenation, VBScript, Automation, CAD, Text Editing, Text Objects, Seamless Merging, NetCAD Macro, Programming, Software, CAD Automation, Text Processing, VBScript Code, NetCAD Software, Technical Drawing, Data Merging, Macro Writing, Automated Processing

📝 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