Makro Hakkında:
Netcad projenizdeki nokta objelerin adını belirlediğiniz bir karakter yerine farklı karakter yazabilirsiniz. Örneğin P.1 formatında yazılan yazıları P_1 olarak yazabilirsiniz.
- Makroda Üzerinde Çalıştığımız Gelişmeler:
- Girilen karakterlerin kaydedilmesi ve tekrar açıldığında direkt gelmesi özelliği eklenecek
- 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, nokta objesi, nokta bul değiştir, nokta adı değiştir.
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 nokta adları korunmayacaktır.
- Yapılan işlemde birden fazla karakter ayracı varsa ilki esas alınacaktır.
- Bu işlem tüm projenizdeki noktalara 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 Top
Dim obj
dim bd
dim bz
dim result
with Netcad
set BD = Netcad.NewBDialog("Nokta Adı Değiştirme [Harita Akademi, Şaban GÜL]")
BD.PutPrompt "Aşağıdaki Alana Eski Karakteri Giriniz:"
BD.Getstring "sagul1","Eski: ","/",50
BD.PutPrompt "Yerine Yazılacak Yeni Karakteri Giriniz:"
BD.Getstring "sagul2","Yeni: ","_",50
BD.PutPrompt " "
if BD.showmodal then
if BD.ValueByName("sagul1")="" then
result = MsgBox ("Eski Karakter Kısmı Boş Bırakıldı Devam etmek istermisiniz ", vbYesNo, "[Harita Akademi, Şaban GÜL]")
Select Case result
Case vbYes
Case vbNo
exit sub
End Select
end if
if BD.ValueByName("sagul2")="" then
result = MsgBox ("Yeni Karakter Kısmı Boş Bırakıldı Devam etmek istermisiniz ", vbYesNo, "[Harita Akademi, Şaban GÜL]")
Select Case result
Case vbYes
Case vbNo
exit sub
End Select
end if
.setfilter nothing, array(),array(opoint)
do
set obj=.getnextobject
if obj is nothing then
exit do
else
obj.s=replace(obj.s,BD.ValueByName("sagul1"),BD.ValueByName("sagul2"))
end if
.PUTOBJECT .CUROBJPOS,OBJ
loop
.resetfilter
end if
result=Msgbox("İşlem Başarıyla Tamamlandı",vbInformation, "[Harita Akademi, Şaban GÜL]")
end with
End Sub
One response
Merhaba ,
KTÜ Harita Müh. son sınıfa geçtim. Bilgisayar Mühendisliği (2.snf) Çift Anadal Programındayım. Makro ile ilgili paylaşımlarınızdan kazanım sağlamaya çalışıyorum. Kodları okumakta zorlanıyorum. Özellikle editörün solundaki metod endeksini nasıl kullanacağımı bilemedim. Daha açıklayıcı paylaşımlar yapar mısınız ? Bilgilerinize muhtacız.