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:
    • Bu makroda geliştirmeyi düşündüğümüz herhangi bir algoritma yoktur.
  • 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


 

No responses yet

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.