| 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: |
|
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: |
|
| 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 |
Categories:netcad makro
No responses yet