Alan Objelerinde Bul Değiştir İşlemi Yapma (Netcad Makro)

Makro Hakkında:

Netcad projenizdeki alan 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, alan objesi, bul ve değiştir

Uyarılar:

  • Yapılan işlemde önceki alan adları korunmayacaktır.
  • Yapılan işlemde birden fazla karakter ayracı varsa ilki esas alınacaktır.
  • Bu işlem tüm projenizdeki alanlara 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("Alan 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(opline)
 do
 set obj=.getnextobject

if obj is nothing then
 exit do
 else
 obj.pname=replace(obj.pname,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

 

Yazar: Şaban GÜL

Amacımız herkese yardımcı olabilmek. Haritacılık ile sınırlı kalmayıp birçok sektöre girmeye RAMAK kaldı :)

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.