Yazı Boyu Değiştirme (Netcad Makro)

Makro Hakkında:

• Netcad üzerinden seçtiğiniz yazının bulunduğu tabakaların boyunu toplu değiştirmeye yarar
• Basit Düzey Makro Sınıfındadır.

• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Yazı boyu sabit boy yerine ölçeğe bağlı değişecek
  • Değer yerine oran verilecek.
• 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, yazı boy değiştir, toplu yazı değiştir

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ıların boyu korunmayacaktır.
• Bu işlem proje üzerinden seçtiğiniz objedeki tabakadaki tüm yazılara uygulanacaktır.
• Bu işlemde geri alma işlemi tek tek yapılmaktadır. Bu nedenle ciddi anlamda yapacağınız değişikliklerde geri alma işleminiz çok uzun sürebilir.
• 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

with netcad

Dim obj
 dim selection
 Dim BD
 dim item



set BD = Netcad.NewBDialog("Yazı Boyunun Değiştirilmesi [Harita Akademi, Şaban GÜL]")

BD.Getfloat "item","Yeni Yazı Boyu:",2,1

if BD.showmodal then

set selection = .NewSelectStatus

while .SelectObjectInstant("BOYU DEĞİŞECEK YAZI GRUBUNA AİT BİR YAZI OBJESİ SEÇİNİZ",1,array(otext),selection)
 set obj = selection.objects(0)
 .DrawObject obj,blue



.SetFilter nothing, array(obj.tabaka), array(oText)

do

set obj=.getnextobject

if obj is nothing then

exit do

end if

obj.sc = BD.ValueByName("item")
 .PutObject .CurObjPos, obj

loop

.resetfilter

wend

end if

.netcadcommand("REGEN")



end with

end sub