Netcad Tabakalarda GRID Tabakalarının İsmine Datum Ekle (Netcad Makro)

Makro Hakkında:

• Grid ve GridKoor tabaka isimlerine datum eklemeye yarar.
• Datum ve Ayracı seçip tamam butonuna basınız.
• Basit Düzey Makro Sınıfındadır.

• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Kullanıcı kendi datum ismini ekleyebilecek
• Etiketler: Basit düzey makro, Netcad, Makro, Pratik Netcad, Netcad Araçları, Netcad tabaka, netcad seçim, Pratik Netcad, Netcadde nasıl yapılır,netcad menü, netcad araç, nvb, ücretsiz makro, harita makro,netcad tabaka, tabaka adı değiştir, grid tabakası, grid koordinat tabakası

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…

Uyarılar:

• Yapılan işlemde önceki yazılar korunmayacaktır.
• Yapılan işlemde birden fazla karakter ayracı varsa ilki esas alınacaktır.
• Bu işlem tüm projenizdeki yazılara uygulanır.
• 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 layerno
dim BD
dim sagul

set BD = Netcad.NewBDialog(\"GRID VE GRIDKOOR Tabakalarının ismine datum ismi ekle,[Harita Akademi, Şaban GÜL]\")

BD.Getradio \"item1\",\"Eklenecek Metin Giriniz\",\"ED50|ITRF|MEVZII\" ,0
 BD.GetString \"item\",\"Bir Ayraç Giriniz\",\"_\",1
 BD.PutPrompt \" \"
 BD.PutPrompt \" DİKKAT!\"&chr(13)&chr(10)&\" GRID ve GRIDKOOR tabakalarının ismi değişecek\"
 BD.PutPrompt \" \"



if BD.showmodal then
 sagul=\"\"
 if BD.ValueByName(\"item1\")=0 then sagul=\"ED50\"
 if BD.ValueByName(\"item1\")=1 then sagul=\"ITRF\"
 if BD.ValueByName(\"item1\")=2 then sagul=\"MEVZII\"

on error resume next

with NCLayerManager
 .Layer( .Find(\"GRID\") ).name= \"GRID\" & BD.ValueByName(\"item\") & sagul
 .Layer( .Find(\"GRIDKOOR\") ).name= \"GRIDKOOR\" & BD.ValueByName(\"item\") & sagul
 .layer(.Find(\"GRIDKOOR_\"&sagul)).color=17
 .layer(.Find(\"GRID_\"&sagul)).color=17
 end with

END IF



with Netcad

.SetFilter nothing, array(.foundlayer(\"GRIDKOOR_ED50\")), array(otext)

do
 set obj=.getnextobject
 if obj is nothing then
 exit do
 end if

obj.flags=1
 obj.s=\"(\"&obj.s&\")\"



.PUTOBJECT .CUROBJPOS,OBJ



loop





end with
dim elif1,elif2
elif1= \"GRID\" & BD.ValueByName(\"item\") & sagul
elif2= \"GRIDKOOR\" & BD.ValueByName(\"item\") & sagul
msgbox (\"İşlem Başarıyla Tamamlandı.\" &chr(13)&chr(10)&\"GRID Tabakasının İsmi \" & elif1 & chr(13)&chr(10)&\" GRIDKOOR Tabakasının İsmi \" & elif2 & \" olmuştur.\" ),64,\"Harita Akademi, Şaban GÜL\"

End Sub