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
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.
Şaban GÜL
(10 Nisan 2018 - 22:40)E-posta gönderdim