Netcaddeki Alan Obje Bilgilerini ( Ad, Alan Tabaka vs.) Yazı Olarak Yazdırma Netcad Makrosu

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.

https://www.youtube.com/watch?v=B4u7oDtnAy0&feature=youtu.be

Uyarılar:
  • 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 )

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

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

 
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

Zonguldak doğumlu, mutlu ve gururlu Harita Mühendisiyim. Bir gün bu piyasa arazi bilecen yiğenim, totali görecen, jalon tutacan, elle kroki çizecen diyen amcalara değil; Drone uçuran, kendi yazılımlarını yapan, yazılım kullanan değil yazılım üreten, fotogrametri bilen Genç Mühendislere kalacak. İşte o zaman herşey farklı olacak. O gün geliyor

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.