Görünüm Ayarlarını Hızlıca Düzenleme Aracı (Quick Appearance Settings Adjustment Tool)

Netcad’de Görünüm Ayarlarını Kolayca Özelleştirin: Hızlı ve Etkili Çözüm 🚀

Customize Appearance Settings in Netcad Easily: Fast and Effective Solution

Bu makro, Netcad yazılımında kullanılan görünüm ayarlarını hızlıca düzenlemek için tasarlanmıştır. Özellikle, gorunumayar.sgl dosyasındaki ayarları okuyarak nokta adları, kotlar, kodlar, alan adları, kotlar, tarama ve balastro gibi parametreleri otomatik olarak Netcad’e uygular. Bu sayede, kullanıcılar manuel ayar yapma zahmetinden kurtulur ve projelerinde tutarlı bir görünüm elde eder. Zaman tasarrufu sağlarken hata riskini de azaltır. 🛠️

This macro is designed to quickly adjust appearance settings in Netcad software. It reads settings from the gorunumayar.sgl file and automatically applies parameters such as point names, elevations, codes, area names, area elevations, hatching, and ballast to Netcad. This eliminates the need for manual configuration, ensuring consistent project visuals while saving time and reducing errors. 🛠️

Dosya Okuma: Makro, C:\\SAGULCAD\\AYARLAR\\gorunumayar.sgl dosyasını açar ve içeriğini satır satır okur. Veri Ayrıştırma: Dosyadaki her satır, vbCrLf kullanılarak ayrıştırılır ve bir liste (ArrayList) oluşturulur. Parametre Atama: İlk 9 satırdaki veriler (s1’den s9’a) alınır ve Netcad’in ilgili parametrelerine (setparam 25’ten 33’e) atanır. Hata Yönetimi: On Error Resume Next komutu ile olası hatalar göz ardı edilerek işlem devam eder. Sonuç: Görünüm ayarları Netcad’e otomatik olarak uygulanır, böylece kullanıcı projeye odaklanabilir.

File Reading: The macro opens the C:\\SAGULCAD\\AYARLAR\\gorunumayar.sgl file and reads its contents line by line. Data Parsing: Each line is split using vbCrLf and stored in an ArrayList. Parameter Assignment: The first 9 lines (s1 to s9) are extracted and assigned to Netcad’s respective parameters (setparam 25 to 33). Error Handling: The On Error Resume Next command ignores potential errors, ensuring the process continues. Result: Appearance settings are automatically applied to Netcad, allowing users to focus on their projects.

Netcad Makro, Görünüm Ayarları, Otomasyon, CAD Yazılımı, VBScript, Hızlı Ayar, Parametre Atama, Dosya Okuma, Nokta Adı, Nokta Kotu, Nokta Kodu, Alan Adı, Alan Kotu, Alan Tarama, Balastro, Kalın Obje Çizimi, Yazılım Otomasyonu, Netcad Otomasyon, Görünüm Düzenleme, Makro Kodlama

Netcad Macro, Appearance Settings, Automation, CAD Software, VBScript, Quick Settings, Parameter Assignment, File Reading, Point Name, Point Elevation, Point Code, Area Name, Area Elevation, Area Hatching, Ballast, Thick Object Drawing, Software Automation, Netcad Automation, Appearance Editing, Macro Coding

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
   on error resume next ' Hata durumunda devam et


with netcad
.setparam 25,0 ' Nokta adı ayarı
.setparam 26,0 ' Nokta kot ayarı
.setparam 27,0 ' Nokta kod ayarı
.setparam 28,0 ' Alan adı ayarı
.setparam 29,0 ' Alan kotu ayarı
.setparam 30,0 ' Alan tarama ayarı
.setparam 31,0 ' Balastro ayarı
.setparam 32,0 ' Kalın obje çizimi ayarı 1
.setparam 33,0 ' Kalın obje çizimi ayarı 2
end with

end with
 
END SUB

netcad-gorunum-hizli-ayarla