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