Yazı Kopyalama ve Yapıştırma Makrosu (Text Copy and Paste Macro)

💡 Obje Yazısını Kolayca Kopyalayın: Netcad’de Hızlı ve Pratik Çözüm

Easily Copy Object Text: Fast and Practical Solution in Netcad!

Bu makro, Netcad yazılımında seçilen bir obje içindeki yazıyı hafızaya alır ve kullanıcı tarafından belirlenen yeni bir konuma bu yazıyı yapıştırır. Yazının orijinal özellikleri (yazı tipi, boyut, açı, hizalama ve tabaka) korunur. Kullanıcı, iptal edene kadar birden fazla konuma yazıyı kopyalayabilir. Nokta yakalama kontrolleriyle hassas yerleştirme sağlar.

This macro captures the text within a selected object in Netcad and pastes it to a user-specified location. The original text properties (font, size, angle, justification, and layer) are preserved. Users can paste the text to multiple locations until canceled, with precise placement via point snapping controls.

Obje Seçimi: Kullanıcı, içinde yazı bulunan bir objeyi seçer. Makro, bu objenin içindeki yazıyı ve özelliklerini (tabaka, boyut, açı vb.) hafızaya alır.

Konum Belirleme: Kullanıcı, yazının yapıştırılacağı noktayı seçer. Nokta yakalama kontrolleri, hassas bir seçim sağlar.

Yazı Yapıştırma: Seçilen noktaya, orijinal yazının aynısı, aynı özelliklerle yapıştırılır.

Tekrarlama: Kullanıcı, iptal tuşuna basana kadar farklı noktalara yazıyı kopyalamaya devam edebilir.

Temizlik: İşlem bittiğinde geçici nesneler silinir, böylece sistemde gereksiz veri kalmaz.

Object Selection: The user selects an object containing text. The macro stores the text and its properties (layer, size, angle, etc.).
Position Selection: The user picks a point for pasting the text, with point snapping ensuring precision.
Text Pasting: The text is pasted at the chosen point with identical properties.
Repetition: The user can continue pasting the text to different locations until canceling.
Cleanup: Temporary objects are deleted upon completion to avoid clutter.

Netcad makro, yazı kopyalama, obje yazısı, tabaka yönetimi, nokta yakalama, VBScript, otomasyon, CAD yazılımı, yazı yapıştırma, hassas konumlandırma

Netcad macro, text copying, object text, layer management, point snapping, VBScript, automation, CAD software, text pasting, precise positioning

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
 set ss = .NewSelectStatus ' Anlik Secim objesi yarat
 .SelectObjectInstant "Seçtiğiniz objenin içindeki yazı adı hafızaya alınacak. [SAGULCAD]",1,array(otext),ss
 set b= ss.objects(0) 'Biçimleri b objesine ata
 dim k
 k= nclayermanager.layer(b.tabaka).name
 Dim c
  with Netcad
    set c = .newc(0,0,0) ' Gecici nokta yarat
    while .SelectPoint("Yazının Yapıştırılacağı Yeri Seçiniz. ( Nokta Yakalama Kontrollerini Gözden Geçiriniz )",c,4) 'Nokta sectir
     ' msgbox c.y ' Secilen nokta bizim c objesinin icine geldi.
     ' ekranda mesaj olarak Y koordinatini goster.
       .AddObject .MakeText(c, b.s, b.flags,0, b.sc,b.angle,b.just,.CreateLayer(k, 4))
       ' .MakeText(c, txt, flags,font, size,angle,just,tabaka)
    wend ' Kullanici iptal edene kadar devam et.
    set c = nothing ' Gecici noktayi yok et.
  end with
 set ss = nothing
 set b = nothing
 set h = nothing
 end with
END SUB

Netcad Dizin Kodu (C:\sabangul\NCMAKRO dizini içerisindeki klasörün adıdır )

netcad-yazi-kopyala-yapistir

Tüm makrolara ulaşmak için tıklayınız: Netcad Makro. Netcad ile ilgili daha fazla ayrıntı için: https://netcad.com.tr/ adresini ziyaret ediniz.