Tüm Tabakaları Kapatma Makrosu (Close All Layers Macro)

NetCAD’de Aktif Tabaka Hariç Tüm Tabakaları Kapatma Makrosu ile Hızlı Düzenleme! ✨

Streamline Your NetCAD Workflow with a Macro to Close All Layers Except the Active One!

Bu makro, NetCAD yazılımında aktif tabaka hariç tüm tabakaları hızlıca kapatmak için tasarlanmıştır. 🛠️ Proje düzenlemelerinde, yalnızca üzerinde çalıştığınız tabakayı açık tutarak diğerlerini gizlemek istediğinizde büyük kolaylık sağlar. Bu sayede ekran karmaşası azalır, odaklanma artar ve proje yönetimi daha verimli hale gelir. Özellikle büyük projelerde, çok sayıda tabaka ile çalışırken zaman tasarrufu sağlar. Makro, NetCAD’in tabaka yapısını tarar ve aktif tabaka dışındaki tüm tabakaları otomatik olarak kapatır, ardından ekranı yeniler. 🖥️

This macro is designed to quickly close all layers except the active one in NetCAD software. 🛠️ It simplifies project editing by keeping only the working layer visible, reducing screen clutter and enhancing focus. Ideal for large projects with multiple layers, it saves time by automating layer management. The macro scans NetCAD’s layer structure, closes all non-active layers, and refreshes the screen. 🖥️

Makro, NetCAD ortamında çalışır ve VBScript ile yazılmıştır. Aşağıdaki adımları izler:

Tabaka Taraması: NetCAD’deki tüm tabakaları (NumLayers) döngüyle tarar. 🔍
Aktif Tabaka Kontrolü: Döngü sırasında, o anki tabakanın aktif tabaka olup olmadığını kontrol eder (GetCurrentLayer).
Kapatma İşlemi: Aktif tabaka değilse, ilgili tabakayı kapatır (CloseLayer).
Ekran Yenileme: Tüm işlemler bittikten sonra, ekranı yenilemek için REGEN komutunu çalıştırır. 🔄
Bu basit ama etkili makro, NetCAD kullanıcılarının tabaka yönetimini hızlandırır ve iş akışını optimize eder.

*This macro runs in the NetCAD environment and is written in VBScript. It follows these steps:

• Layer Scanning: Loops through all layers in NetCAD (NumLayers). 🔍
• Active Layer Check: Checks if the current layer is the active one (GetCurrentLayer).
• Closing Layers: Closes non-active layers (CloseLayer).
• Screen Refresh: Executes the REGEN command to refresh the screen. 🔄
• This simple yet powerful macro streamlines layer management for NetCAD users, optimizing their workflow.*

NetCAD, Makro, Tabaka Yönetimi, CAD Otomasyon, Verimlilik, Tabaka Kapatma, NetCAD Makro, Proje Düzenleme, CAD Yazılımı, Otomasyon Araçları, Hızlı Düzenleme, Tabaka Kontrolü, NetCAD Script, VBScript, Ekran Yenileme

NetCAD, Macro, Layer Management, CAD Automation, Efficiency, Layer Closing, NetCAD Macro, Project Editing, CAD Software, Automation Tools, Fast Editing, Layer Control, NetCAD Script, VBScript, Screen Refresh

📝 Netcad NVB Code

'TARİH :26/05/2001 V1.00
'AMAÇ : Aktif Tabaka Haricindeki Tüm Tabakaları Kapat.
'GİRDİLER : NETCAD Objeleri

SUB Main
DIM i,oo
DIM t()

With netcad
  For i=0 to .NumLayers-1        'Tüm tabakaları kapat
  if not(i=.GetCurrentLayer)  Then
   .CloseLayer i
  end if
  Next

  .NETCADCOMMAND ("REGEN")       'Ekranı yenile
  '.ResetFilter

End With
END SUB

netcad-tum-tabaka-kapat