Seçilen Obje Dışındaki Tüm Tabakaları Kapatma Makrosu (Macro to Close All Layers Except the Selected Object’s Layer)

Netcad’de Seçilen Objeye Özel Tabaka Kontrolü: Tüm Tabakaları Kapatma Makrosu 🚀

Control Layers in Netcad: Macro to Close All Layers Except the Selected Object’s Layer 🌟

Bu makro, Netcad yazılımında kullanıcı tarafından seçilen bir objenin bulunduğu tabaka hariç, diğer tüm tabakaları kapatmak için tasarlanmıştır. 🛠️ Kullanıcı dostu bir arayüzle, seçilen objenin tabakasını aktif tutarken diğer tabakaları hızlıca devre dışı bırakır. Bu, özellikle karmaşık projelerde yalnızca belirli bir tabakaya odaklanmak isteyen kullanıcılar için zaman tasarrufu sağlar. 🕒 Makro, Netcad’in VBScript dilinde yazılmıştır ve objelerin tabaka bilgilerini okuyarak otomatik bir filtreleme işlemi gerçekleştirir. CAD tabanlı projelerde verimliliği artıran bu araç, mimarlık, mühendislik ve haritacılık gibi alanlarda sıkça kullanılır.

This macro is designed to close all layers in Netcad except the layer of the selected object. 🛠️ With a user-friendly interface, it keeps the selected object’s layer active while quickly disabling others. This saves time, especially in complex projects where users need to focus on a specific layer. 🕒 Written in Netcad’s VBScript language, the macro reads object layer information and performs automatic filtering. This tool enhances efficiency in CAD-based projects and is widely used in architecture, engineering, and cartography.

Obje Seçimi: Kullanıcı, Netcad ekranından bir obje seçer. Makro, bu objenin bulunduğu tabakayı tespit eder. 🎯 Tabaka Bilgisi Toplama: Seçilen objenin tabaka numarası alınır ve diğer tabakalar bir diziye kaydedilir. Filtreleme ve Kapatma: Seçilen objenin tabakası hariç tüm tabakalar kapatılır. Bu işlem, Netcad’in tabaka kapatma komutlarıyla otomatik olarak yapılır. 🔒 Ekran Yenileme: Tabakalar kapatıldıktan sonra ekran yenilenir (REGEN komutu) ve sadece seçilen objenin tabakası görünür kalır. 🖥️
Makro, hızlı ve hatasız çalışır; özellikle büyük projelerde tabaka yönetimini kolaylaştırır. Yorum satırları (‘) ile kodun her adımı açıklanmıştır, böylece kullanıcılar kodu kolayca anlayabilir ve özelleştirebilir.

Object Selection: The user selects an object from the Netcad screen, and the macro identifies its layer. 🎯 Layer Information Collection: The selected object’s layer number is retrieved, and other layers are stored in an array. Filtering and Closing: All layers except the selected object’s layer are closed using Netcad’s layer-closing commands. 🔒 Screen Refresh: After closing the layers, the screen is refreshed (REGEN command), leaving only the selected object’s layer visible. 🖥️
The macro runs quickly and error-free, simplifying layer management in large projects. Comment lines (‘) explain each step, making the code easy to understand and customize.*

Netcad makro, tabaka kapatma, obje seçimi, CAD otomasyon, VBScript, tabaka yönetimi, proje verimliliği, Netcad script, tabaka filtreleme, obje tabaka kontrolü, CAD verimliliği, makro otomasyon, tabaka düzenleme, Netcad tabaka yönetimi, hızlı tabaka kapatma, CAD proje yönetimi, VBScript makro, Netcad otomasyon, tabaka seçimi, proje optimizasyonu

Netcad macro, layer closing, object selection, CAD automation, VBScript, layer management, project efficiency, Netcad script, layer filtering, object layer control, CAD efficiency, macro automation, layer editing, Netcad layer management, fast layer closing, CAD project management, VBScript macro, Netcad automation, layer selection, project optimization

📝 Netcad NVB Code

'Tarih : 26/05/2001 V1.00
'Amaç : Ekrandan seçilen objenin bulunduğu tabaka haricindeki tabakalar kapatılır.
'Girdiler : Netcad objeleri

SUB Main
DIM ss,o,i,j,oo,p,sel
DIM kt() ,t()

With netcad
  ReDim t(.NumLayers)
  set SEL = .NewSelectionSet             ' Yeni kume yarat
  set o = .NewObject
  if SEL.SELECT("Seçilen Obje Tabakası Hariç Tüm Tabakalar Kapatılır",array()) then ' istenen turleri kumeye ekle
  ReDim kt(sel.ne)
    for i = 0 to SEL.NE-1                ' kumenin her bir elemani icin
      j = SEL.GetSelectedObject(i, o)    ' objeyi geri koy
      kt(i)= o.tabaka
    next
    set ss = nothing
    set o = nothing               ' obje icin aldigimiz memory'i geri ver
  end if

  For i=0 to .NumLayers-1        't() ye tabakaları doldur
    t(i)=i
  Next

  For j=0 To SEl.NE-1            'Kapanacak tabakaların filtrelerini üret
    For i=0 to .NumLayers-1
      if kt(j)=i then t(i)=0
    Next
  Next

  For i=0 to .NumLayers-1        'Seçilen objelerin tabakasını kapat
    .CloseLayer t(i)
  Next
    Set sel = nothing
   .NETCADCOMMAND ("REGEN")

  '.SetFilter .GetCurrentWindow, t, array()  'Kapanan objeleri zemin renginde çiz
  '  Do
  '  set oo = .GetNextObject
  '    if oo is nothing then
  '      exit do
  '    else
  '      .drawobject oo, Black
  '    end if
  '  Loop
  '.FastRedraw
  '.ResetFilter

End With
END SUB

netcad-secilen-obje-tabaka-haric-kapat