Çizim Ölçeği Ayarlama Makrosu ( Drawing Scale Adjustment Macro )

Çizim Ölçeği Otomatik Ayar Yapma Makrosu ile Hızlı Çözümler 🚀

Fast Solutions with Drawing Scale Automatic Adjustment Macro 🚀

Bu makro, Netcad ortamında çizim ölçeğini hızlı ve otomatik bir şekilde ayarlamak için tasarlanmıştır. Özellikle “sagulcad.cizimolcek” dosyasından ölçek değerini okuyarak çizim ölçeğini günceller ve ekranı yeniler. Bu, kullanıcıların manuel olarak ölçek ayarlamasına gerek kalmadan projelerini daha hızlı tamamlamasına olanak tanır. Makro, dosya sistemiyle etkileşim kurarak ölçek verisini alır ve Netcad’in parametrelerini günceller. Hata yönetimini de destekler, böylece işlem sırasında kesintiler önlenir. 🛠️

This macro is designed to quickly and automatically adjust the drawing scale in the Netcad environment. It reads the scale value from the “sagulcad.cizimolcek” file, updates the drawing scale, and refreshes the screen. This eliminates the need for manual scale adjustments, allowing users to complete their projects faster. The macro interacts with the file system to retrieve scale data and updates Netcad’s parameters. It also supports error handling to prevent interruptions during the process. 🛠️

Dosya Okuma: Makro, “C:\SAGULCAD\AYARLAR\sagulcad.cizimolcek” yolundaki dosyayı okur. Bu dosya, ölçek ayarını içerir. Veri Ayrıştırma: Dosyadaki veriler satır satır ayrıştırılır ve ilk satırdaki ölçek değeri alınır.

Ölçek Ayarlama: Netcad’in XSetParam fonksiyonu kullanılarak ölçek parametresi (14 numaralı parametre) güncellenir.

Ekran Yenileme: netcadcommand(“REGEN”) komutu ile çizim ekranı yenilenir, böylece değişiklikler anında görünür.

Hata Yönetimi: on error resume next komutu ile olası hatalar göz ardı edilir, işlem akışı kesintisiz devam eder.

• File Reading: The macro reads the file located at “C:\SAGULCAD\AYARLAR\sagulcad.cizimolcek”, which contains the scale setting.
• Data Parsing: The file’s data is split into lines, and the scale value from the first line is retrieved.
• Scale Adjustment: The scale parameter (parameter 14) is updated using Netcad’s XSetParam function.
• Screen Refresh: The netcadcommand(“REGEN”) command refreshes the drawing screen, making changes visible instantly.
• Error Handling: The on error resume next command ensures that potential errors are ignored, keeping the process uninterrupted.

çizim ölçeği, Netcad makro, otomatik ölçek ayarı, VBScript, CAD otomasyonu, ölçek ayar makrosu, Netcad otomasyon, çizim hızlandırma, proje verimliliği, dosya okuma, ekran yenileme, hata yönetimi, CAD makro, ölçek güncelleme, otomatik çizim ayarı

drawing scale, Netcad macro, automatic scale adjustment, VBScript, CAD automation, scale adjustment macro, Netcad automation, drawing acceleration, project efficiency, file reading, screen refresh, error handling, CAD macro, scale update, automatic drawing adjustment

📝 Netcad NVB Code

ÖRNEKTE 1000 verilmiş olup .XSetParam 14,1000 satırından dilediğiniz gibi değiştirebilirsiniz.

' Yazan : 
' Tarih : 14.03.2020
' Açıklama : 

Sub Main
Dim i
'on error resume next
  with Netcad
  dim dosyaoku,frs,fso
 dim filename , listFile ,  listLines , line

  
    '' içine farklı şeyler ekle ++ -- gibi
  .XSetParam 14,1000
.netcadcommand("REGEN")
  end with
End Sub

netcad-cizim-olcegi