Alan Adının Yazı Olarak Yazılması (Netcad Makro)

Makro Hakkında:

  • Netcad alan objelerinin ağırlık merkezine alan objesinin adının yazı olarak yazılmasını sağlar.
  • Alan adının yazılacağı tabakayı ve yazı boyunu seçip tamam butonuna basınız.
  • Orta Düzey Makro Sınıfındadır.
  • Makroda Üzerinde Çalıştığımız Gelişmeler:
    • Yeni Tabaka Oluşturma,
    • Yatay ve Dikey öteleme,
    • Sadece bir tabakaya uygulama,
    • Yazı boyunu proje ölçeğine göre ayarlama
  • Etiketler: Orta 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, Alan adı, yazı yazdırma, netcad alan, netcad yazı,tabaka,yazı boyu, alan yazdırma, parsel no yazdırma,ada no yazdırma, orta düzey makro

Uyarılar:

  • Bu İşlem Makro kullanmadan da bu işlem yapılabilir ( Netcad Bağlantı Yöneticisi Etiket Yazdırma )
  • Yapılan işlemde alan adları yazı formatında aktarılacaktır.
  • Yapılan işlemde oluşturulacak yazı objesi alan objesinin ağırlık merkezine sizin belirlediğiniz yazı boyunda aktarılır.
  • Bu işlem seçtiğiniz alanlarda uygulanı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.
  • Bu makroda Kilitli olan tabakalardaki objelerde işlem görecektir. Bu nedenle işlem görmek istemediğiniz tabakaları kilitlemek yerine kapatınız.
  • 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:

'Harita Akademi Web Sayfasından İndirilmiştir

' 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 ss,o,i,j,oo,p,sel,poly,tabaka,yazi,a,c ,bd, secenek
 DIM kt() ,t()
 dim elif,ruhan,saban,sagul1,sagul2

With netcad



set BD = Netcad.NewBDialog("Alan Adı Yazdırma [Harita Akademi, Şaban GÜL]")

'BD.Getinteger "item1","Yatay Öteleme Miktarı Giriniz:",0
 'BD.Getinteger "item2","Dikey Öteleme Miktarı Giriniz:",0
 'BD.GetCombo "tabaka1", "İşlem Görecek Tabaka Seçiniz: ", "0", 0
 BD.GetCombo "tabaka2", "Parsel No Hangi Tabakaya Yazılsın: ", "0", 0Öne çıkan görseli kaldır
 for i = 1 to .numlayers - 1
 BD.AddCombo .LayerNameOf(i)
 next
 BD.Getfloat "yaziboy","Parsel Numaraların Yazı Boyu: ",2,2







if BD.showmodal then

elif= BD.ValueByName("tabaka1")
 ruhan= BD.ValueByName("tabaka2")
 saban= BD.ValueByName("yaziboy")
 sagul1=BD.ValueByName("item1")
 sagul2=BD.ValueByName("item2")



a=.getparam(94)*2/1000
 set SEL = .NewSelectionSet
 set o = .NewObject
 set poly=.newpoly

.setparam beginblock,true
 if SEL.SELECT("Kapalı çoklu doğruları seç",array(opline)) then
 for i = 0 to SEL.NE-1
 j = SEL.GetSelectedObject(i, o)
 set poly=.getplineext(o)
 set c = poly.CenterOfMass



.AddObject (.MakeText (c,o.pname, 0,0, saban,0,"M",.CreateLayer(ruhan,2)))
 next
 .setparam endblock,true
 ' .NetcadCommand("REDRAW")
 set sel = nothing
 set poly = nothing
 set o = nothing
 end if



END if
 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ı :)

2 thoughts on “Alan Adının Yazı Olarak Yazılması (Netcad Makro)

    ömer kaygısız

    (25 Eylül 2017 - 16:17)

    Selam hocam.
    İnternette araştırmama rağmen nokta numaralarını yazı olarak vede bağlı olduğu doğrununda üstüne gelmeyecek şekilde nadı üretme macrosunu bulamadım. Acaba bu konuda hazır bir macronuz varmı ?

    serkan

    (25 Ocak 2018 - 17:33)

    çok teşekkürler, çok işime yaradı

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.