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.