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
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
No responses yet