Alan Objelerinde Alan Adının Bir Karakter Öncesinin Silinmesi (Netcad Makro)

Makro Hakkında:

  • Netcad projenizdeki alan tanımlı objelerin adını belirlediğiniz bir karakterden öncesini siler yalnızca belirlediğiniz karakter sonrası kalır. Örneğin 101/1 alan objesi için karakter ayracı / olması durumunda 101/ yazısı silinir, yalnızca 1 kalır.
  • Alan adının ayrışacağı karakteri girip 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, Alan adı, yazı yazdırma, netcad alan, netcad yazı,tabaka,yazı boyu, alan yazdırma, parsel no yazdırma,ada no yazdırma, alan adı değiştirme

Uyarılar:

  • Yapılan işlemde önceki alan isimleri 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:

'Harita Akademi Web Sayfasından İndirilmiştir

' 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("Alan Objelerinin Adının Bir Kısmını Karaktere Göre Silme [Harita Akademi, Şaban GÜL]")

BD.Getstring "sagul1","Alan 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(opline)
Do
set obj=.getnextobject
if obj is nothing then
exit do
else

pos=split(obj.pname,"/")
a= obj.pname
obj.pname=replace(obj.pname,pos(0),"")

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

loop
end with
end sub

Yazar: Şaban GÜL

Zonguldak doğumlu, mutlu ve gururlu Harita Mühendisiyim. Bir gün bu piyasa arazi bilecen yiğenim, totali görecen, jalon tutacan, elle kroki çizecen diyen amcalara değil; Drone uçuran, kendi yazılımlarını yapan, yazılım kullanan değil yazılım üreten, fotogrametri bilen Genç Mühendislere kalacak. İşte o zaman herşey farklı olacak. O gün geliyor

2 thoughts on “Alan Objelerinde Alan Adının Bir Karakter Öncesinin Silinmesi (Netcad Makro)

    eser

    (20 Haziran 2019 - 10:19)

    Şaban Bey merhabalar
    makrolarınız çok işime yarıyor teşekkür ederim paylaştığınız için.
    alan objelerinde alan adının bir karakter öncesi makrosunun işleyişine ters olarak,
    projedeki tüm alanların önüne örneğin P. gibi ek karakter koyabileceğimiz bir makronuz var mı diye sormak isterim.

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.