Seçilen Parselin Tecviz Miktarının ve Parametrelerin Mesaj Olarak Sunumu (Netcad Makro)

Makro Hakkında:

Proje üzerinden seçilen parselin tecviz miktarı ve parametrelerinin mesaj olarak kullanıcıya sunumunu sağlar

• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Farklı parametrelerde olabilecek sonuçlar ve mevcut parametrelerde mesaj olarak sunulacak
• 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,

Tecviz ile ilgili diğer makromuz: http://sabangul.com.tr/secilen-parselin-tecviz-miktarinin-ve-parametrelerin-mesaj-olarak-sunumu-netcad-makro

Uyarılar:

• Tecviz miktarı hesabında sabit bir ölçek esas alınacağından projenizde farklı ölçeklere ait veri varsa lütfen bunu göz önünde bulundurunuz.
• Tecviz miktarı yapılaşmış ve yapılaşmamış olarak iki farklı yöntemle hesaplanır. Kullanıcı ekranından lütfen bunu bilinçli seçiniz ve projenizde farklı tecviz tipi varsa gözönünde bulundurunuz.
• Netcad makrolarında hiçbir metni veya karakteri değiştirmeyiniz. Aksi halde makro işlevsiz hale gelebilir veya hatalı işlev ile karşılaşabilirsiniz.

 

İndirme Linkleri:

İndirme Linki-1: Google Drive ( Harita Akademi )

Makro Açık Kaynak Kodu:

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

Sub Main
 with netcad
 Dim a,b,c,m,alan,o,d,e,poly,s,y
 Dim i, SGL_DLG,tabaka,tabaka2,tabaka3,yaziboy,tecvizx
 Dim Olcek,tapu,hesap,mfark,tecviz,tecviz1,tecviz2,tecdur
 olcek=.getparam(94)

set SGL_DLG = Netcad.NewBDialog("Tecviz Miktarlarının Yazdırılması [Harita Akademi, Şaban GÜL]")

SGL_DLG.Getfloat "sagulnet1","Ölçek Değeri (0 için proje ölçeği esas alınır )",olcek,0
 SGL_DLG.Getradio "sagulnet5","Tecviz Tipi Belirleyiniz","Yapılaşma Yok|Yapılaşma Var" ,0
 'SGL_DLG.GETCHECK "sagulnet2","Tapu Alanı Yoksa Hesap Alanı Esas Alınsın",1



if SGL_DLG.showmodal then

end if





set alan = .NewSelectStatus
 while .SelectObjectInstant(" Tecviz Hesabı Yapılacak Alanı Seçiniz.[Harita Akademi, Şaban GÜL]",1,array(opline),alan)
 set o = alan.objects(0)

if SGL_DLG.ValueByName("sagulnet1")<>0 THEN olcek=SGL_DLG.ValueByName("sagulnet1")
 tapu=o.tarea
 hesap=o.area
 if tapu=0 and SGL_DLG.ValueByName("sagulnet2")=1 then tapu=hesap
 mfark=abs(tapu-hesap)

if tapu=0 then
 msgbox "Parsel Tapu Alanı Yoktur",64
 end if



tecviz1=0.0004*olcek*sqr(tapu)+0.0003*tapu
 tecviz2=0.013*sqr(tapu*olcek)+0.0003*tapu

if SGL_DLG.ValueByName("sagulnet5")=0 then
 tecviz=Tecviz1
 else
 tecviz=Tecviz2
 end if

tecviz=round(Tecviz,3)

e= abs(mfark-tecviz)

if mfark> tecviz and tapu > hesap then

msgbox "Parsel Tecviz Dışındadır"&chr(13)_
 & "Tapu Alanı=" & round(tapu,2) &chr(13)_
 & "Hesap Alanı=" & round(hesap,2) &chr(13)_
 & "Fark (Mutlak)=" & round(mfark,2) &chr(13)_
 & "Tecviz Miktarı=" & tecviz &chr(13)_
 &round(abs(e),2)&" m² ARTACAK",16

elseif mfark> tecviz and hesap > tapu then

msgbox "Parsel Tecviz Dışındadır"&chr(13)_
 & "Tapu Alanı=" & round(tapu,2) &chr(13)_
 & "Hesap Alanı=" & round(hesap,2) &chr(13)_
 & "Fark (Mutlak)=" & round(mfark,2) &chr(13)_
 & "Tecviz Miktarı=" & tecviz &chr(13)_
 &round(abs(e),2)&" m² AZALACAK",16

else

msgbox "Parsel Tecviz İçindedir"&chr(13)_
 & "Tapu Alanı=" & round(tapu,2) &chr(13)_
 & "Hesap Alanı=" & round(hesap,2) &chr(13)_
 & "Fark (Mutlak)=" & round(mfark,2) &chr(13)_
 & "Tecviz Miktarı=" & tecviz &chr(13),64



end if

wend

end with
 end sub