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

No responses yet

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.