Netcaddeki Alan Objeleri Adı, Hesap Alanı, Tapu Alanı, Gıs Sınıfı, Gıs Adını, Tabakasını yazdırma

  • Version
  • Download 38
  • File Size 4.18 KB
  • File Count 1
  • Create Date 8 Ekim 2017
  • Last Updated 8 Ekim 2017

Netcaddeki Alan Objeleri Adı, Hesap Alanı, Tapu Alanı, Gıs Sınıfı, Gıs Adını, Tabakasını yazdırma

Makro Hakkında:
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.

 

Uyarılar:
  •  Makroyu çalıştırırken seçim ekranında sadece bilgisi yazılacak alanları seçiniz
 

Netcad Nvb Kodu   ( Drive ile indir )
SUB Main
DIM ss,o,i,j,oo,p,sel,poly,tabaka,yazi,a,c ,SAGUL_DLG, secenek
DIM kt() ,t()
dim elif,ruhan,saban,saban_olcek
 dim saban1,saban2,saban3,saban4
 dim elif1,elif2,elif3,sagul67

With netcad
 saban_olcek=.getparam(94)
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

' 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



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
 saban3=saban3/1000*saban_olcek
 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

'.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
Makro ile ilgili uyarılar:
  • 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.
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, pluscad , netcad alan adı yazdır, netcad hesap alanı yazdır, tapu alanı yazdır

 

 

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.