Yazı Objelerine Açı Ekleme Makrosu (Text Object Angle Adjustment Macro)

Yazı Objelerinin Açısını Kolayca Düzenleyin: Netcad VBScript ile Hızlı ve Pratik Çözüm 📝✨

Easily Adjust Text Object Angles: Fast and Practical Solution with Netcad VBScript 📝✨

Bu makro, Netcad ortamında yalnızca yazı objelerinin (text objects) açısına belirli bir değer eklemek için tasarlanmıştır. Varsayılan olarak 50 derece ekler, ancak bu değer kod içinde kolayca özelleştirilebilir. Teknik çizimlerde yazıların yönünü hızlıca ayarlamak isteyenler için ideal bir çözümdür. Kullanıcı dostu bir arayüzle, seçilen yazı objesinin açısını anında günceller. Özellikle etiketleme ve açıklama eklemede zaman kazandırır! 🛠️📐

This macro is designed to add a specific value to the angle of text objects in the Netcad environment. By default, it adds 50 degrees, but this value can be easily customized in the code. It’s a perfect solution for quickly adjusting the orientation of text in technical drawings. With a user-friendly interface, it instantly updates the angle of the selected text object, saving time in labeling and annotation tasks! 🛠️📐

Makro çalıştırıldığında, Netcad ortamında bir seçim ekranı açılır ve kullanıcıdan bir yazı objesi seçmesi istenir. Seçilen yazı objesinin mevcut açısına, kodda tanımlı değer (varsayılan 50 derece) eklenir. Güncellenen yazı objesi, orijinal konumuna geri yazılır ve değişiklik anında uygulanır. Makro, seçim ve obje işlemlerini tamamladıktan sonra belleği temizler, böylece sistem kaynaklarını verimli kullanır.
Bu makro, özellikle harita çizimlerinde veya teknik projelerde yazıların yönünü hızlıca ayarlamak için mükemmel bir araçtır. ⚙️📝

When the macro is run, a selection screen opens in the Netcad environment, prompting the user to select a text object. The specified value (default 50 degrees) is added to the current angle of the selected text object. The updated text object is written back to its original position, and the change is applied instantly. The macro completes the selection and object operations, then clears the memory to ensure efficient use of system resources.
This macro is an excellent tool for quickly adjusting text orientation in map drawings or technical projects. ⚙️📝

Netcad Makro, Yazı Obje Açı Düzenleme, Teknik Çizim, VBScript, CAD Otomasyon, Yazı Objesi, Açı Ekleme, Netcad Yazı Düzenleme, Harita Çizimi, CAD Yazı Yönü, Otomasyon Makrosu, Teknik Proje, Yazı Açısı Ayarlama, Netcad Script, CAD Verimliliği

Netcad Macro, Text Object Angle Adjustment, Technical Drawing, VBScript, CAD Automation, Text Object, Angle Addition, Netcad Text Editing, Map Drawing, CAD Text Orientation, Automation Macro, Technical Project, Text Angle Adjustment, Netcad Script, CAD Efficiency

📝 Netcad NVB Code

SUB Main
DIM ss,b,h
with netcad
dim de

de=50 ' Varsayılan açı ekleme değeri (50 derece)
 set ss = .NewSelectStatus ' Anlık seçim objesi yarat
 .SelectObjectInstant "Seçtiğiniz Yazı Objesinin Açısına " & de & " eklenecektir",1,array(otext),ss ' Sadece yazı objelerini seçer
 set b= ss.objects(0) ' Seçilen yazı objesinin biçimlerini b objesine ata

 b.angle =  b.angle+de ' Yazı objesinin açısına de değerini ekle
 
 .PutObject ss.indexs(0), b ' Yazı objesini geri koy
' .DrawObject h,-1 ' Kendi rengi ile çiz (yorum satırı, aktif değil)

 set ss = nothing ' Seçim objesini temizle
 set b = nothing ' Biçim objesini temizle
 set h = nothing ' Yardımcı objeyi temizle
 end with
 
END SUB

netcad-aci-ekle