Nokta Adına Bir Değer Ekleme (Netcad Makro)

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