Tabaka Bilgilerinin Excele Aktarılması (Netcad Makro)

Makro Hakkında:

Netcad Projenizdeki tabaka bilgilerinin excele aktarımı sağlar.  Tabaka adı, tabaka rengi,tabakanın görünürlüğü,tabakanın kilit durumu, tabakadaki objelerin yazıcıya gönderme durumu gibi bilgileri excele sütunlar halinde atar.

• Makroda Üzerinde Çalıştığımız Gelişmeler:
  • Şu anlık üzerinde çalıştığımız bir gelişme bulunmamaktadır. Kullanıcılardan gelen istekler ve editörlerimizin çalışmaları ile olası gelişmeler yayımlanacaktır. Bizi takip ediniz.
• 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,

Uyarılar:

• Exceldeki sütun adları ile kullanıcı formundaki sütun adlarının aynı olmasına dikkat ediniz.
• Bu makro ile en fazla 50bin satır excel satırı okunabilir.
• Yapılan işlemde önceki tabaka isimleri korunmayacaktır.
• Tabaka isimlerinde lütfen türkçe veya özel karakter kullanmayınız
• Netcad en fazla 256 tabaka üretebilir. Bunu gözönünde bulundurunuz
• Netcad tabaka adı en fazla 20 karakter olabilir.
• Bu işlem geri alınmaz.
• 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.
• 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.

function main
 dim file,fso,str,arr,excSheet,excLine
 dim i
 ' set fso = CreateObject("Scripting.FileSystemObject")
 ' set file = fso.openTextFile(path,1)
 set excSheet = CreateObject("Excel.Application")
 excSheet.workbooks.add
 excLine = 2
 excSheet.cells(1,1) ="Harita Akademi Netcad Makroları İle Üretilmiştir."
 excSheet.cells(2,1) ="Tabaka Adı"
 excSheet.cells(2,2) ="Tabaka Rengi"
 excSheet.cells(2,3) ="Tabaka Rengi RGB"
 excSheet.cells(2,4) ="Tabaka Açık"
 excSheet.cells(2,5) ="Tabaka Görünür"
 excSheet.cells(2,6) ="Tabaka Kilit"
 excSheet.cells(2,7) ="Tabaka Yazıcı Gönder"
 excSheet.cells(2,8) ="Tabaka Baş. Ölçeği"
 excSheet.cells(2,9) ="Tabaka Bit. Ölçeği"

with ncLayermanager
 for i = 0 to .numLayer-1
 excLine = excLine + 1
 excSheet.cells(excLine,1)= .layer(i).Name
 excSheet.cells(excLine,2)= .layer(i).color
 excSheet.cells(excLine,3)= .layer(i).colorBGR
 excSheet.cells(excLine,4)= .layer(i).IsOpen
 excSheet.cells(excLine,5)= .layer(i).VisibiltyActive
 excSheet.cells(excLine,6)= .layer(i).LockActive
 excSheet.cells(excLine,7)= .layer(i).PrintableActive
 excSheet.cells(excLine,8)= .layer(i).VisStartScale
 excSheet.cells(excLine,9)= .layer(i).VisEndScale

next
 excSheet.cells(excLine+1,1) =".........................................................................."
 excSheet.cells(excLine+2,1) ="Harita Akademi, Şaban GÜL"
 excSheet.cells(excLine+3,1) ="Daha fazlası için haritaakademi@gmail.com"
 end with
 excSheet.visible = True
 set fso = nothing
 set file = nothing
 end function