Tabaka Silme Makrosu (Layer Deletion Macro)

🗺️ Netcad’de Hızlı ve Güvenli Tabaka Silme Makrosu ile Verimliliğinizi Artırın!

Boost Your Efficiency with the Fast and Secure Layer Deletion Macro in Netcad!

Bu makro, Netcad yazılımında kullanıcıların birden fazla tabakayı (layer) hızlı ve güvenli bir şekilde silmesine olanak tanır. Özellikle büyük projelerde, gereksiz veya kullanılmayan tabakaların temizlenmesi için tasarlanmıştır. Kullanıcı dostu bir arayüz sunar ve tabakaları sayfalara bölerek seçim yapmayı kolaylaştırır. Seçilen tabakalardaki tüm objeler silinir ve işlem sonunda kaç tabakanın silindiği hakkında bilgi verilir. Bu, projelerinizi düzenlerken zaman kazandırır ve hata riskini azaltır. Makro, Şaban GÜL tarafından geliştirilmiş olup, Harita Akademi’nin katkılarıyla sunulmaktadır.

This macro allows users to quickly and securely delete multiple layers in Netcad software. It is designed to clean up unnecessary or unused layers, especially in large projects. It offers a user-friendly interface, dividing layers into pages for easy selection. All objects in the selected layers are deleted, and a summary of the number of deleted layers is provided at the end. This saves time and reduces the risk of errors while organizing your projects. Developed by Şaban GÜL, it is presented with contributions from Harita Akademi.

Makro çalıştırıldığında, Netcad’deki tüm tabakalar listelenir ve bir dizi halinde saklanır. Tabakalar, her biri 10 tabaka içeren sayfalara bölünür. Bu, kullanıcıların seçim yapmasını kolaylaştırır. Her sayfada bir iletişim kutusu (dialog) açılır ve kullanıcıya silmek istediği tabakaları seçme imkanı sunulur. Kullanıcı, onay verdikten sonra seçilen tabakalar silinir ve ilgili objeler kaldırılır. İşlem tamamlandığında, kaç tabakanın silindiği bir mesaj kutusuyla bildirilir. Makro, Netcad’in “REGEN” komutunu kullanarak ekranı yeniler ve değişiklikleri anında gösterir.

When the macro is run, all layers in Netcad are listed and stored in an array. Layers are divided into pages, each containing 10 layers, to simplify selection. A dialog box opens for each page, allowing the user to select layers to delete. After user confirmation, the selected layers and their objects are deleted. Upon completion, a message box displays the total number of deleted layers. The macro uses Netcad’s “REGEN” command to refresh the screen and display changes instantly.

tabaka silme, netcad makro, harita akademi, şaban gül, cad yazılımı, tabaka yönetimi, proje düzenleme, verimlilik, harita mühendisliği, otomasyon

layer deletion, netcad macro, harita akademi, şaban gül, cad software, layer management, project organization, efficiency, surveying engineering, automation

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
' 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 layer_select(list,index)
dim tara,ad
with netcad
index=.numlayers-1
for tara=0 to index
list(tara+1,1)=.layernameof(tara)
next
end with
end function

sub main
dim dialog,list(300,2),tara,index,pagediv,pagecount,page,pagestart,lname,lcod,delcount
layer_select list,index
with netcad
pagediv=10
delcount=0
pagecount=round(index/pagediv,0)
if pagecount=0 then pagecount=1
pagestart=1
for page=1 to pagecount
set dialog = Netcad.NewBDialog("Tabaka Sil ["&pagestart&" - "&pagestart+pagediv&" arası] [Harita Akademi, Şaban GÜL]")
dialog.PutPrompt " Aşağıdan Seçilen Tabakalardaki Tüm Objeler Silinecektir."
for tara=pagestart to pagestart+pagediv
if list(tara,1)<>"" then
dialog.GetCheck "item"&tara,list(tara,1),0
end if
next

if dialog.showmodal then
for tara=pagestart to pagestart+pagediv
if list(tara,1)<>"" then
list(tara,2)=dialog.ValueByName("item"&tara)
end if
next
end if
pagestart=pagestart+pagediv+1
next
for tara=1 to index
if list(tara,2)=1 then
lname=list(tara,1)
with nclayermanager
lcod=.find(lname)
if lcod<>-1 then
.Delete .find (lname),true
delcount=delcount+1
netcad.netcadcommand("REGEN")
end if
end with
end if
next
if delcount<>0 then msgbox "Toplam "&cstr(delcount)&" Tabaka Silindi",64,"Tabaka Silme"
end with
end sub

netcad-toplu-tabaka-silme