Yazıyı Kopyala Yapıştır (Netcad Makro)

Makro Hakkında:

• Seçilen yazı objelerinin kopyalanıp yapıştırılmasını sağlar
• Basit Düzey Makro Sınıfındadır.

• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Alıntı yapılan yazının flag değerinin kopyalanan yeni yazıya aktarımı sağlanacak
• Etiketler: Basit düzey makro, Netcad, Makro, Pratik Netcad, Netcad Araçları, Netcad tabaka, netcad seçim, Pratik Netcad, Netcadde nasıl yapılır,netcad menü, netcad araç, nvb, ücretsiz makro, harita makro, netcad yazı, netcad kopyala yapıştır, kopyalama modu

14.02.2024 Tarihli Duyurumuz: Bu sayfadaki makrolarımız 10 yıl önce hazırlanmış olup artık desteklenmemekte ve daha geliştirilmiş versiyonu SAGULCAD modülü ile yine ücretsiz sunulmaktadır. Aşağıda verilen Bağlantılar hala çalışmaktadır fakat en geç 31.12.2025 tarihinde kaldırılması planlanmaktadır. Aynı makroyu SAGULCAD modülü içerisinde bulabileceğinizi unutmayınız. Lütfen aşağıdaki makroları kullanmayınız.

Uyarılar:

• Yapılan işlemde önceki yazınız korunacak, önceki yazınızın adı kopyalamaya aktarılacaktır. Yeni yazı sola dayalı olacaktır.
• Netcad makrolarında hiçbir metni veya karakteri değiştirmeyiniz. Aksi halde makro işlevsiz hale gelebilir veya hatalı işlev ile karşılaşabilirsiniz.

İndirme Linkleri:

İndirme Linki-1: Google Drive ( Harita Akademi )

Makro Açık Kaynak Kodu:

' www.sabangul.com.tr Web Sayfasından İndirilmiştir
' Şaban GÜL , Harita Mühendisi
' Her Türlü Hata, İstek ve Öneriler İçin 
' haritaakademi@gmail.com veya sagulnet@gmail.com
' adresine durumu anlatan bir e-posta gönderiniz.

Sub Main
 Dim obj,secim,layer,yazi,c,yaz,alan,obj1

with netcad
 set secim = .NewSelectStatus()
 .SelectObjectInstant "Kopyalanacak Yazı Seçiniz, [Harita Akademi]",1,array(otext),secim

set obj = secim.objects(0)
 .DrawObject obj,red
 yazi = obj.s
 set c = .newc(0,0,0)
 layer = obj.tabaka
 set yaz=.maketext(c,yazi,0,0,obj.sc,obj.angle,"L",layer)
 yaz.p1 = c
 yaz.wsc = obj.wsc
 while .WalkObject("Yapıştırılacak Yeri Seçiniz, [Harita Akademi]",c,8,yaz)
 .addobject(yaz)
 wend

.netcadcommand("REGEN")
 end with
 end sub