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

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

Yazar: Şaban GÜL

Amacımız herkese yardımcı olabilmek. Haritacılık ile sınırlı kalmayıp birçok sektöre girmeye RAMAK kaldı :)

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.