Yazı Objelerinde Bir Karakter Öncesinin Silinmesi (Netcad Makro)

Makro Hakkında:

• Yazı Objelerinde belirlenen bir karakterden öncesini siler. Netcad projenizdeki yazı tanımlı objeleri belirlediğiniz bir karakterden öncesini siler yalnızca belirlediğiniz karakter sonrası kalır.Örneğin 101/67 yazı objesi için karakter ayracı / olması durumunda 101/ yazısı silinir, yalnızca 67 kalır.
• Karakter Ayracını seçip tamam butonuna basınız.
• Orta Düzey Makro Sınıfındadır.
• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Değişen alan objelerini farklı tabakaya almak

• Etiketler: Orta 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 yazı, yazı değiştirme, bir karakter öncesi silme

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
 with netcad
 dim pos
 dim obj
 dim a
 dim elif
 dim BD
 dim sabangul
 dim elifyaren
 set BD = Netcad.NewBDialog("Yazı Objelerinin Adının Bir Kısmını Karaktere Göre Silme [Harita Akademi, Şaban GÜL]")

BD.Getstring "sagul1","Yazı Objesinin Adını Ayrıştıracak Karakteri Giriniz:","/" ,1
 ' BD.Getradio "sagul2","Hangi Kısmı Silinecek","Öncesi|Sonrası" ,0



if BD.showmodal then
 else
 exit sub
 end if



if BD.ValueByName("sagul1")="" then
 msgbox ("Herhangi bir karakter girmediniz " &chr(13)&chr(10)&"Lütfen Bir Ayraç Giriniz" &chr(13)&chr(10)&"Örnek Karakter: /" ),64,"Harita Akademi, Şaban GÜL"
 end if

if BD.ValueByName("sagul2")=1 then
 elifyaren=1
 else
 elifyaren=0
 end if

.setfilter nothing,array(),array(otext)
 Do
 set obj=.getnextobject
 if obj is nothing then
 exit do
 else

sabangul= BD.ValueByName("sagul1")
 pos=split(obj.s,sabangul)
 a= obj.s
 obj.s=replace(obj.s,pos(0),"")

elif =Mid(obj.s,2,100000)
 obj.s=elif
 if obj.s="" then
 else
 .putobject .curobjpos,obj
 end if
 end if

loop
 end with
 end sub