Makro Hakkında:
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.
14.02.2024 Tarihli Duyurumuz: Bu sayfadaki makrolarımız 10 yıl önce hazırlanmış olup artık desteklenmemekte ve daha geliştirilmiş versiyonu SAGULCAD modülü ile yine ücretsiz sunulmaktadır. Aşağıda verilen Bağlantılar hala çalışmaktadır fakat en geç 31.12.2025 tarihinde kaldırılması planlanmaktadır. Aynı makroyu SAGULCAD modülü içerisinde bulabileceğinizi unutmayınız. Lütfen aşağıdaki makroları kullanmayınız.
İ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
Comments are closed