@ İle Başlayan Tabakaları Silme Makrosu ( Delete Layers Starting with @ Macro)

🚀 Netcad’de @ İle Başlayan Tabakaları Hızlıca Silen VBScript Makrosu: Verimliliği Artırın!

🌟 Fast VBScript Macro to Delete Layers Starting with @ in Netcad: Boost Your Efficiency!

Bu makro, Netcad yazılımında kullanılan bir VBScript kodudur ve projelerinizdeki tabakalardan (layers) “@” sembolü ile başlayanları otomatik olarak siler. Özellikle büyük projelerde, geçici veya gereksiz tabakaların temizlenmesi için oldukça kullanışlıdır. Makro, tüm tabakaları tarar, “@” ile başlayanları tespit eder ve bu tabakaları güvenli bir şekilde siler. Böylece proje dosyanız daha düzenli hale gelir, çalışma ortamınız sadeleşir ve performans artışı sağlanır. Kullanıcı dostu yapısıyla, manuel temizleme süreçlerini ortadan kaldırarak zaman tasarrufu sağlar.

This macro is a VBScript code used in Netcad software, designed to automatically delete layers starting with the “@” symbol in your projects. It is especially useful for cleaning up temporary or unnecessary layers in large projects. The macro scans all layers, identifies those starting with “@”, and safely deletes them. This results in a more organized project file, a simplified workspace, and improved performance. With its user-friendly structure, it eliminates manual cleanup processes, saving valuable time.

Makro, Netcad ortamında çalışır ve aşağıdaki adımları izler:

1. Tabaka Sayısını Tespit Etme: Netcad’deki toplam tabaka sayısını (numlayers) alır ve bir döngü başlatır.
2. @ İle Başlayan Tabakaları Bulma: Her tabakanın adını kontrol eder. Eğer tabaka adı “@” sembolü ile başlıyorsa, bu tabaka işaretlenir.
3. Tabakayı Silme: @ ile başlayan tabakalar, nclayermanager üzerinden güvenli bir şekilde silinir (Delete komutu ile).
4. Geçerli Tabakayı Ayarlama: İşlem tamamlandıktan sonra, Netcad’de geçerli tabaka varsayılan olarak 0 numaralı tabakaya ayarlanır.

Bu süreç, kullanıcı müdahalesi olmadan otomatik olarak gerçekleşir ve projelerdeki gereksiz tabakaları hızlıca temizler.

The macro operates within the Netcad environment and follows these steps:

• Detecting Layer Count: It retrieves the total number of layers (numlayers) in Netcad and initiates a loop.
• Identifying Layers Starting with @: It checks each layer’s name. If a layer name starts with “@”, it is flagged.
• Deleting the Layer: Layers starting with “@” are safely deleted using the nclayermanager (Delete command).
• Setting the Current Layer: After completion, the current layer in Netcad is set to the default layer (layer 0).
• This process runs automatically without user intervention, quickly cleaning up unnecessary layers in projects.

Netcad makro, tabaka silme, VBScript, proje düzenleme, otomasyon, CAD yazılımı

Netcad macro, layer deletion, VBScript, project organization, automation, CAD software

📝 Netcad NVB Code

17.05.2025 tarihli güncelleme ile for döngüsü tersten yapılarak olası hataların önüne geçilmiştir.

'Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main()
Dim obje,toptbk,tbksay,tbsagul,tbex,pc,SEL,i,j,o
Dim anliksecim,objesi,objeal,sgl_1,sgl_2,sgl_3,sgl_4,sgl_5,sgl_6,BD,a,b,c,d,e,f,sagulnet1,sagulnet2,icindeki
Dim KG1,KG2,sagulform1,sagulform2,ada
With Netcad
    toptbk = .numlayers - 1 'Toplam tabaka sayısını alır
    With nclayermanager
        For tbksay = toptbk To 0 Step -1 'Ters döngü: Son tabakadan başa doğru tarar
            If Mid(.layer(tbksay).name,1,1) = "@" Then 'Tabaka adı @ ile başlıyorsa
                .Delete tbksay, True 'Tabakayı sil
            End If
        Next
    End With
    .setcurrentlayer(0) 'Geçerli tabakayı 0 yap
End With
End Sub

netcad-@-ile-baslayan-tabaka-sil

17.05.2025 tarihli güncelleme öncesi

Sub Main()
Dim obje,toptbk,tbksay,tbsagul,tbex,pc,SEL,i,j,o
DIM anliksecim,objesi,objeal,sgl_1,sgl_2,sgl_3,sgl_4,sgl_5,sgl_6,BD,a,b,c,d,e,f,sagulnet1,sagulnet2,icindeki
dim KG1,KG2,sagulform1,sagulform2,ada

with Netcad
toptbk = .numlayers - 1 'Toplam tabaka sayısını alır
With nclayermanager
For tbksay = 0 To toptbk 'Tüm tabakaları taramak için döngü
if mid( .layer(tbksay).name,1,1) ="@" Then 'Tabaka adı @ ile başlıyorsa
   .Delete tbksay, True 'Tabakayı sil
End If
Next
End With
.setcurrentlayer(0) 'Geçerli tabakayı 0 yap
End With
End Sub