Netcad Alan objelerinin ( Çoklu doğruların ) adını veya hesap alanını veya tapu alanını veya Gıs Sınıfını veya Gıs Adını veya Tabakasını bu makro yardımı ile yazdırabilirsiniz. Obje bilgilerinin boyunu, yazı tipinide ayarlayabilirsiniz.

• Makroyu çalıştırırken seçim ekranında sadece bilgisi yazılacak alanları seçiniz
• Alanlar 3 hane gösterilmektedir. 2 hane yapmak için şu adımları izleyiniz:
  • Makroyu Netcad Makro Düzenleyici ile açtıktan sonra veya not defteri ile açıp  aşağıdaki kodları bulunuz
    • if saban1=0 then saban4= round(o.area,3)
    • veya
    • if saban1=1 then saban4= round(o.tarea,3)
  • Buradaki 3 sayısını 2 yapınız
  • m2 yazdırmak için ise sonuna bir boşluk bırakıp &”m2″ yazabilirsiniz.
    • if saban1=0 then saban4= round(o.area,3) & “m²”
    • veya
    • if saban1=1 then saban4= round(o.tarea,3) & “m²”

Netcad Nvb Kodu 

 ( Drive ile indir )

With netcad

with nclayermanager
.add 0,4
end with

set SAGUL_DLG = Netcad.NewBDialog(“Alan Objelerinde Bilgi Yazdırma , [Şaban GÜL, Harita Akademi]”)

SAGUL_DLG.GetRadio “elif”, “Hangi Bilgiyi Yazdırayım ?”, “Hesap Alanı|Tapu Alanı|Gıs Sınıfı|Gıs Adı|Tabakası|Alan Adı”, 0
SAGUL_DLG.GetCombo “yaren”, “Hangi Tabakaya Yazayım ?”, 0,0
for i = 1 to .numlayers – 1
SAGUL_DLG.AddCombo .LayerNameOf(i)
next
SAGUL_DLG.Getfloat “yaziboy”,”Yazı boyu kaç olsun ? “,2,2
SAGUL_DLG.GetCheck “sagulnet1”, “Yazı İtalik Olsun”, 0
SAGUL_DLG.GetCheck “sagulnet2”, “Yazı Altçizgili Olsun”, 0
SAGUL_DLG.GetCheck “sagulnet3”, “Yazı Arka Fon Olsun”, 0
SAGUL_DLG.Getinteger “ondalik”,”Alanlarda ondalık hane sayısı ? “,2
SAGUL_DLG.GetString “ekle1″,”Verinin Başına Ekle”,””,4
SAGUL_DLG.GetString “ekle2″,”Veriye Sonuna Ekle”,””,4

‘ 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.

if SAGUL_DLG.showmodal then

saban1= SAGUL_DLG.ValueByName(“elif”) ‘tür
saban2= SAGUL_DLG.ValueByName(“yaren”) ‘tabaka
saban3= SAGUL_DLG.ValueByName(“yaziboy”) ‘boyu
saban3=saban3/1000*.getparam(94)
dim onda,ekle1,ekle2
onda=SAGUL_DLG.ValueByName(“ondalik”)
ekle1 =SAGUL_DLG.ValueByName(“ekle1”)
ekle2 =SAGUL_DLG.ValueByName(“ekle2”)
elif1= SAGUL_DLG.ValueByName(“sagulnet1”)
elif2= SAGUL_DLG.ValueByName(“sagulnet2”)
elif3= SAGUL_DLG.ValueByName(“sagulnet3”)

if elif1+elif2+elif3=0 then sagul67=0

set SEL = .NewSelectionSet
set o = .NewObject
set poly=.newpoly

.setparam beginblock,true
if SEL.SELECT(“Kapalı çoklu doğruları seç, Şaban GÜL, Harita Akademi”,array(opline)) then
for i = 0 to SEL.NE-1

j = SEL.GetSelectedObject(i, o)
set poly=.getplineext(o)
set c = poly.CenterOfMass
if saban1=5 then saban4=o.pname
if saban1=0 then saban4= round(o.area,3)
if saban1=1 then saban4=round(o.tarea,3)
if saban1=2 then saban4=o.cls
if saban1=3 then saban4=o.objname
if saban1=4 then
saban4=o.tabaka
with nclayermanager
saban4= .layer(saban4).name
end with

end if
if saban1=6 then saban4=o.renk

on error resume next
saban4= round(saban4,onda)
saban4= ekle1 & saban4 & ekle2
‘.AddObject (.MakeText (c,saban4, sagul67,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=0 and elif2=0 and elif3=0 then .AddObject (.MakeText (c,saban4, 0,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=1 and elif2=0 and elif3=0 then .AddObject (.MakeText (c,saban4, 1,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=0 and elif2=1 and elif3=0 then .AddObject (.MakeText (c,saban4, 2,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=0 and elif2=0 and elif3=1 then .AddObject (.MakeText (c,saban4, 4,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=1 and elif2=1 and elif3=0 then .AddObject (.MakeText (c,saban4, 1+2,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=1 and elif2=0 and elif3=1 then .AddObject (.MakeText (c,saban4, 1+4,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=0 and elif2=1 and elif3=1 then .AddObject (.MakeText (c,saban4, 2+4,0, saban3,0,”M”,.CreateLayer(saban2,2)))
if elif1=1 and elif2=1 and elif3=1 then .AddObject (.MakeText (c,saban4, 1+2+4,0, saban3,0,”M”,.CreateLayer(saban2,2)))

‘ 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.

next
.setparam endblock,true
.NetcadCommand(“REDRAW”)
set sel = nothing
set poly = nothing
set o = nothing
end if

END if
End With
END SUB

• Makroyu kullanmadan önce açıklama ve uyarıları mutlaka okuyunuz.
• Makrolar belirli aralıklarla güncellenir. Bu Sayfayı takip etmenizi ve güncel makroları kullanmanızı tavsiye ediyoruz. Güncel makroların gelişmiş, hatalardan arındırılmış ve yeni versiyonlara uygun olacağını unutmayınız.
• Netcad Makroları Sadece Netcad Yazılımında Çalışır.
• Bu Netcad Makrosunu kullanırken lütfen Netcad projenizi yedekleyiniz.
• Bu Netcad Makroları VB Programlama dili ile yazılmıştır.
• Netcad Makrolarını kullanımından tamamen kullanıcı sorumludur. Ortaya çıkabilecek tüm hataları kabul etmiş sayılırsınız.
• Bu Netcad makrosu Kadastro, Orman, 2B,Halihazır, Kamulaştırma, Değerleme, Coğrafi Bilgi Sistemi, İmar Planı, Etüt Proje İşleri gibi bir çok alanda rahatlıkla kullanabilirsiniz.
• Makrolar ile ilgili tüm soru, görüş ve önerileriniz, ekletmek veya değiştirmek istediğiniz tüm noktalar için, yeni makrolar için bize haritaakademi@gmail.com adresine ileti göndererek ulaşınız.
• Netcad Makroları size ücretsiz sunulur ve kesinlikle eposta ekinde veya diğer sosyal medya araçları ( whastup,facebook,twitter vb. ) ile gönderilmez. Netcad makroları ile birşeyler talep ettiyseniz sizlere sadece eposta adresinize durum ile ilgili ileti gönderilir, indirme linki ve makrolar ilgili internet sayfamızda paylaşılır.
• Netcad Makrolarını .nvb formatında indirerek indirdiğiniz ortaya çıkabilecek her türlü olumsuzluğu ve cihazınıza gelebilecek tüm sorumluluğu aldığınızı belirtmek isteriz.