Makro Hakkında:
Netcad nokta objelerinin adına ( eğer sayısal değer ise ) bir miktarda değer eklemek için kullanılır.
Uyarılar:
- Yapılan işlemde önceki nokta adları korunmayacaktır.
- Yapılan işlemde nokta adı sayısal değilse değer ekleme yapılmayacaktır. Mesela 1000 değer ekleme için uygulanacak makroda P.1 için P. karakteri sayı olmadığından dolayı işlem yapılmaz
- Bu işlemde geri alma işlemi tek tek yapılmaktadır. Bu nedenle ciddi anlamda yapacağınız değişikliklerde geri alma işleminiz çok uzun sürebilir.
- Bu makroda Kilitli olan tabakalardaki objelerde işlem görecektir. Bu nedenle işlem görmek istemediğiniz tabakaları kilitlemek yerine kapatınız.
- 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 Dim i dim obj dim regpoly dim bd dim sagul,sagul2 with Netcad set BD = Netcad.NewBDialog("Nokta İsimlerini Bir Miktar Artırma [Harita Akademi, Şaban GÜL]") BD.Getinteger "item","Artış Miktarı Giriniz:",0 BD.GetCombo "tabaka", "İşlem Görecek Tabaka Seçiniz: ", "0", 0 for i = 1 to .numlayers-1 BD.AddCombo .LayerNameOf(i) next BD.GetCheck "tabaka2", "Tüm Tabakalarda İşlem Yapılsın [Harita Akademi, Şaban GÜL]",0 if BD.showmodal then sagul=BD.ValueByName("tabaka") sagul2= BD.ValueByName("tabaka2") if sagul2=1 then .SetFilter nothing, ARRAY(), ARRAY(opoint) else .SetFilter nothing, ARRAY(sagul), ARRAY(opoint) end if else exit sub end if DO SET OBJ=.GETNEXTOBJECT IF OBJ IS NOTHING THEN EXIT DO ELSE END IF obj.pname=obj.pname+BD.ValueByName("item") .PUTOBJECT .CUROBJPOS,OBJ LOOP .netcadcommand("REGEN") end with End Sub
No responses yet