Alan Objelerinde Alan Adınının Gözükmemesi Hatası Çözümü (Netcad Makro)

Makro Hakkında:

• Netcad alan objelerinde bazen alan adları yazılı olmasına rağmen alan adları boş gözükür. Bu hata çözümü için verilen makro kullanılabilir.
• Makroyu Çalıştırıp tamamlandı mesajı gelinceye kadar bekleyiniz.
• Basit Düzey Makro Sınıfındadır.

Makroda Üzerinde Çalıştığımız Gelişmeler:

• DİKKAT: Aşağıdaki kodu kullananlardan aldığımız geri dönüşler sonucunda koddaki  ada.flags=17 değerini uyguladığınızda taramaların kapandığı durumu ile karşı karşıya kalındığı bildirimi aldık. Bu bildirim kapsamında bu açıklamayı e-posta iletisi ile dönüş yapanlara sağladık fakat buradan da açıklamak istiyoruz.  FLAGS değerini;

• • • 1 yaptığınızda parselin adı ve taramaları kapanır,
    • 3 yaptığınızda adı kapanır, taramalar açılır,
    • 17 yaptığınızda adı açılır, taramalar kapanır,
    • 19 yaptığınızda adı ve taramalar açılır.

• Makronun ilgili satırındaki ada.flags = eşitliğine yukarıdaki bilgiler doğrultusunda dilediğinizi yazabilirsiniz.

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 adı, yazı yazdırma, netcad alan, alan adı göster,alan adı hatası, alan boş geliyor

Uyarılar:

• 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,ada,o
 with Netcad
 for i = 0 to .numobject-1 \' projedeki tum objeleri sirayla tara
 .BackMessage
 .SetMessage i
 set ada = .getobject(i) \' i. objeyi al
 if ada.tag = opline then
 .DrawObject ada, blue
 ada.flags=17
 .putobject i,ada
 end if
next
.netcadcommand(\"REGENSINGLE \" & .GetCurrentWindow.cll.y & \",\" &.GetCurrentWindow.cll.x & \" \" & .GetCurrentWindow.cur.y & \",\" & .GetCurrentWindow.cur.x)
set ada=nothing
.BackMessage 
msgbox \" Alan Adı Gösterimi Tamamlandı [Harita Akademi, Şaban GÜL]\",64 ,\" Tebrikler [Harita Akademi, Şaban GÜL]\"
 end with
End Sub