Yazı Objelerinde Sayısal Değerleri Bir Miktar Artırma ( Netcad Makro )

Makro Hakkında:

Sevgili kardeşim Hasan Göçer için üretilmiştir.

Netcad proje üzerindeki seçilen tabakadaki tüm yazılarda sayısal değerleri artırmaya veya azaltmaya yarar. Genellikle kamulaştırma projelerinde kamulaştırma cetvelinde sıra numaraları veya kurum numarasının değişmesi durumunda kullanılır

Uyarılar:

  • Yapılan işlemde sadece yazı adı sayısal değer olan yazılar artacak veya azalacaktır
  • Proje üzerinde seçilen tabakadaki tüm sayısal değerli yazılar değişecektir dikkat ediniz.
  • 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
Sub Main

Dim i
 dim obj
 dim regpoly
 dim bd
 dim sagul,sagul2
 dim elifyaren
'' 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.
on error resume next
with Netcad

set BD = Netcad.NewBDialog("Yazı Objelerinde Sayısal Değerleri Bir Miktar Artırma [Harita Akademi, Şaban GÜL]")

BD.GetCombo "tabaka", "İşlem Görecek Tabaka Seçiniz: ","0" , 0
 for i = 1 to .numlayers-1
 BD.AddCombo .LayerNameOf(i)
 next

BD.Getinteger "item","Artış Miktarı Giriniz:",0

BD.GetCheck "tabaka2", "Tüm Tabakalarda İşlem Yapılsın",0
'BD.GetCheck "tabaka3", "Tabaka Yerine Ekrandan Seçilsin",0





if BD.showmodal then
 sagul=BD.ValueByName("tabaka")
sagul2= BD.ValueByName("tabaka2")
 else
 exit sub
 end if



if sagul2=1 then
 .SetFilter nothing, ARRAY(), ARRAY(otext)
 else
 .SetFilter nothing, ARRAY(sagul), ARRAY(otext)
 end if

elifyaren=0

DO
 SET OBJ=.GETNEXTOBJECT

IF OBJ IS NOTHING THEN
 EXIT DO
 ELSE
 END IF

obj.s=obj.s+BD.ValueByName("item")
elifyaren=elifyaren+1
 .PUTOBJECT .CUROBJPOS,OBJ

LOOP



.netcadcommand("REGEN")
msgbox "İşlem Başarıyla Tamamlandı." & elifyaren & " adet yazı değiştirildi" , 64 , "[Harita Akademi, Şaban GÜL]"
end with
End Sub
 

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ı :)

3 thoughts on “Yazı Objelerinde Sayısal Değerleri Bir Miktar Artırma ( Netcad Makro )

    Taner Ağırtopçu

    (4 Kasım 2017 - 12:49)

    Şaban Bey Makro Çok Güzel Olmuş. Ben Nokta Kot Yazılarında Kullanmak istedim. Virgülden sonraki değerler için giriş yapamıyorum. Tam sayı değeri düşüyor sadece örneğin Elipsoid-Ortometrik kot farkım 34.32 fakat 34 tamsayı değerini düşüyor. Bu makroda virgülden sonraki değer için bir ilave yapılabilirmi.
    Şimdiden Teşekkür ederim.

    kenan doğan

    (26 Aralık 2017 - 17:27)

    şaban bey üç hane alınan koordinat değerini iki haneye yuvarlamak istiyorom.

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.