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.

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 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