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
